VBScript MsgBox: Trying to bypass permision denied error

1 New Member

Hello,

Im using ASP with VBScript.
At some point of the code of the application that Im making some changes, I need to get a confirmation from the user if he wants or not to send a confirmation e-mail for the action he performed.

Its simple, like this:

Expand|Select|Wrap|Line Numbers

 sendEmail = MsgBox("Send e-mail?",5,"Confirmation")

if sendEmail = 6 then
 
Set objmail = Server.CreateObject("CDONTS.NewMail") 

            objmail.from = trim(rs("EMAIL"))

            objmail.Value("Reply-To") = trim(rs("EMAIL"))

            objmail.to = trim(rs("EMAIL_RESPONSAVEL"))&";"&trim(rs("EMAIL_GRUPO"))

            objmail.subject = trim(rs("EMAIL_ASSUNTO_FECHAMENTO_RESPONSAVEL"))&" "&trim(rs("NOME_TIPO_DOCUMENTO"))

            objmail.body = texto 

            objmail.BodyFormat = 0

            objmail.Importance = 2    

            objmail.MailFormat = 0            

            objmail.send

        set objmail = nothing
 
end if

rs is just a recordset with some data on.

The thing is like this, I get the old Permission Denied error..
So I tryed like that, that I dont know is its going to work or not until someone uses this part of the application:

Expand|Select|Wrap|Line Numbers

         <SCRIPT language="VBScript">
 
        sendEmail = MsgBox("Send e-mail?",5,"Confirmation")
 
        if sendEmail = 6 then
 
        send = true
 
                                end if
 
        </SCRIPT>
 
        <%
 
        if send = true
 
        Set objmail = Server.CreateObject("CDONTS.NewMail") 

            objmail.from = trim(rs("EMAIL"))

            objmail.Value("Reply-To") = trim(rs("EMAIL"))

            objmail.to = trim(rs("EMAIL_RESPONSAVEL"))&";"&trim(rs("EMAIL_GRUPO"))

            objmail.subject = trim(rs("EMAIL_ASSUNTO_FECHAMENTO_RESPONSAVEL"))&" "&trim(rs("NOME_TIPO_DOCUMENTO"))

            objmail.body = texto 

            objmail.BodyFormat = 0

            objmail.Importance = 2    

            objmail.MailFormat = 0            

            objmail.send

        set objmail = nothing
 
                                end if

        %>

Moving the MsgBox to run on the client side works, but I dont belive if the 'send' variable created in the client-side code will be seen by the code runned server-side.

Anyone know some way to get this working?

Thank you very much in advance!

Oct 7 '08 #1

Subscribe Reply

5171

shweta123

692

Recognized Expert Contributor

Hi,

You can write the code to get the confirmation before sending the email at the client side using javascript function.
You can do this using following steps :

1> Create a hidden field in your ASP page and set the value of this hidden field to TRUE or FALSE using javascript function.
e.g.

Expand|Select|Wrap|Line Numbers

<input type="hidden" name= "hidEmail">

2> Now , Write the javascript function in order to set the value of hidden field .

Expand|Select|Wrap|Line Numbers

 
<script>

function setEmail()

    {

      //set the hidden field Email

      document.form1.hidEmail.value = confirm("Do you want to send email?");

    }

</script>

3> Call the above javascript function on the Submit button.
e.g.

Expand|Select|Wrap|Line Numbers

<Input type = "Submit" onClick = "setEmail();">

4> Retrieve the value of the hidden field on The ASP page in order to decide if Email should be sent or not.
e.g.

Expand|Select|Wrap|Line Numbers

 <%

           Dim emailconfirm

           emailconfirm = Request. Form("hidEmail")
 
           If(emailconfirm = TRUE) then

                  '''''''''''''''Write the code for sending email   

           End if

           %>

Oct 7 '08 #2

jim bradshaw

New Member

I almost gave up on this before I made it work by using "true" instead of TRUE. Thought it might help someone else out. Otherwise, thanks for the useful info. My (working) code:

<%@ Language=VBscri pt%>
<%option Explicit%>

<script language = javascript type = text/javascript>
function SetDelCN(){
document.getEle mentById("DelCN ").value = confirm("Are you sure you want to Delete?")
}</script>

<%

sub delcont
Dim DelContconfirm
DelContConfirm = Request("DelCN" )
response.write( DelContConfirm) &"<BR>"
If(DelContConfi rm = "true") then
response.write "delete the record" & "<BR>"
else
response.write "dont delete the record" & "<BR>"
end if
end sub

execute request("action ")

%>

<html>
<head>
<title></title>
</head>
<body>

<form name=formx action=testconf irm.asp method=post>
<input type=hidden name=action value=DelCont>
<input type=hidden name= DelCN>
<input size = 3 type=submit name=delrec onclick = SetDelCN() value="Delete">
</form>

</body>
</html>

Feb 9 '09 #3

Similar topics

2131

VBScript and asp...

by: Leszek | last post by:

Hello gurus! I wrote a code in VBS, that will check, that current user is in one from three groups. But i don't know how asimilate it with asp.net. This page will be a bridge between 2 - main menu and report page. Tomorrow to the 8 a.m. i must do this, but i don't know how.... Can someone help me? There are few messageboxes for help. Here is my code (it's vbs):

ASP / Active Server Pages

396

VbScript

by: Ana Rita | last post by:

Hello to all. I'm trying to do call a vbscript sub in one page aspx. My vbscript sub is in a file with the extension (vbs) and it looks like this: Sub Mens (strmens) Msgbox strmens

.NET Framework

7035

VBScript OLE Automation from a C Application

by: Joe Caverly | last post by:

Hi, I'm using Visual C++ 32-bit Professional Edition 5.0 Using Microsoft Knowledge Base Article 181473 as a basis, I'm trying to transform this VB Code; Dim sc As Object Dim code As String Set sc = CreateObject("ScriptControl") sc.Language = "VBScript"

C / C++

3348

Error accessing my C# app from VBScript

by: AdamM | last post by:

Hi all, When I run my VbScript, I get the error: "ActiveX component can't create object: 'getobject'. Error 800A01AD". Any ideas what I did wrong? Here's my VBScript: dim o set o=getobject(,"ConsoleApplication2.Program") msgbox o.TestString

C# / C Sharp

1576

permision denied

by: Sigfredo N. Jayme | last post by:

Good Day! Hello to everyone! I encountered some problems when i tried to debug my activeX dll (in process). This is the scenario. 1.I created a simple activex dll called myproject.dll. I added INitINIFile class. Within that class, I created a Function called 'Read_INI'.

Visual Basic .NET

1649

python cgi permision error

by: avenpace | last post by:

Hi I have python cgi script, but when I call it I got server internal error. The log in my apache is (13)Permission denied: exec of '/srv/www/cgi-bin/helo.cgi' failed Premature end of script headers: helo.cgi caught SIGTERM, shutting down

Python

30917

Microsoft VBScript runtime (0x800A000D) Type mismatch: '[string: "

by: Snow | last post by:

Hello: I have Error Type: Microsoft VBScript runtime (0x800A000D) Type mismatch: '' The error happened at this line: if session("systemIdCount" & arrSystems(iLoop)) 0 The code like this:

ASP / Active Server Pages

1856

VBscript hell

by: AHMEDYO | last post by:

hi all, first its my first time to post question in internet, but vbs really let me crazy. my problem is : ---------------------- i wanna to transfer exe file to machine that i can access by real ip no VPN and i cant access machine sharing but i can remote to this machine using remote desktop, sure u will ask me for download, but this machine cant go online because of physical security and firewall. i was think about 2 solution 1-i...

Visual Basic 4 / 5 / 6

4027

VB.NET COM DLL form a VBScript

by: MicheleG | last post by:

Hi to all! I created a VB.Net COM DLL which I can use in VBScript. I followed the steps in the following article: http://msdn2.microsoft.com/en-us/library/x66s8zcd(VS.71).aspx (I used the method "with COM class template") My DLL got created fine - no errors in build process. The "Make Assembly COM-Visible" checkbox is checked.

Visual Basic .NET

9579

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...

Windows Server

10577

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...

C / C++

10332

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...

Online Marketing

10320

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...

Windows Server

7620

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...

Microsoft Access / VBA

6853

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...

C# / C Sharp

5521

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...

Networking - Hardware / Configuration

4299

transfer the data from one system to another through ip address

by: 6302768590 | last post by:

Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system

C# / C Sharp

3820

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP