Refresh & Session Switch.

[Gary W]

Hello,

I have a page, thanks.asp which uses classic ASP VBSCRIPT & CDONTS to send
mail, for example:
<%
Set bc = Server.CreateOb ject("MSWC.Brow serType")
Set objMessage = CreateObject("C DO.Message")
objMessage.Subj ect = "Web Site Form Results"
objMessage.Send er = "ad***@domain.c o.uk"
objMessage.To = "ga**@domain.co .uk"
objMessage.Bcc = ""
objMessage.Cc = ""
objMessage.HTML Body ="MESSAGE BODY HERE"
objMessage.Send
%>

Now, imagine what happens if someone comes back to this page via the history
or if they hit refresh, another email is sent (a duplicate).
How easy is it to stop this happening?

One way I am thinking about (not sure if it will work):
----------------------------------------------------------
if Session("sendMa il") <> 0 then
Session("sendMa il") = 1
Else
Session ("sendMail") = 0
End if

If Session("sendMa il")=1 then
Send Mail
Else
Dont Send mail
End if

Session("sendMa il=0")
----------------------------------------------------------

This basically says, if there is a session called 0, then dont send mail.
However, if there is a session greater or less than 0, send the mail and
THEN set the session to 0 to stop it happening on refresh.

Is this the best way to do it?

Gary.

[Kindler Chase]

Gary W wrote:

Hello,

I have a page, thanks.asp which uses classic ASP VBSCRIPT & CDONTS to
send mail, for example:
<%
Set bc = Server.CreateOb ject("MSWC.Brow serType")
Set objMessage = CreateObject("C DO.Message")
objMessage.Subj ect = "Web Site Form Results"
objMessage.Send er = "ad***@domain.c o.uk"
objMessage.To = "ga**@domain.co .uk"
objMessage.Bcc = ""
objMessage.Cc = ""
objMessage.HTML Body ="MESSAGE BODY HERE"
objMessage.Send
%>

Now, imagine what happens if someone comes back to this page via the
history or if they hit refresh, another email is sent (a duplicate).
How easy is it to stop this happening?

One way I am thinking about (not sure if it will work):
----------------------------------------------------------
if Session("sendMa il") <> 0 then
Session("sendMa il") = 1
Else
Session ("sendMail") = 0
End if

If Session("sendMa il")=1 then
Send Mail
Else
Dont Send mail
End if

Session("sendMa il=0")
----------------------------------------------------------

This basically says, if there is a session called 0, then dont send
mail. However, if there is a session greater or less than 0, send the
mail and THEN set the session to 0 to stop it happening on refresh.

Is this the best way to do it?

Gary.

That should work fine. I'd do something like this though:

If Not Session("sendMa il") Then
If objMessage.Send Then Session("sendMa il") = True
End If

And don't forget to close out your objects:
Set objMessage = Nothing

--

kindler chase
http://www.ncubed.com
Home of SuperInvoice: The Online Invoicing Application.
Organize your billing process and impress your clients.

news://news.ncubed.com/support
n3 Support Group