VBScript MsgBox: Trying to bypass permision denied error

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 Post Reply

5147

shweta123

692

Expert 512MB

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

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=VBscript%>
<%option Explicit%>

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

<%

sub delcont
Dim DelContconfirm
DelContConfirm = Request("DelCN")
response.write(DelContConfirm) &"<BR>"
If(DelContConfirm = "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=testconfirm.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

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...

ASP / Active Server Pages

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

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...

C / C++

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...

C# / C Sharp

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...

Visual Basic .NET

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...

Python

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

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...

Visual Basic 4 / 5 / 6

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...

Visual Basic .NET

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

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...

Windows Server

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,...

C / C++

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...

Online Marketing

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

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...

Microsoft Access / VBA