P
paulmitchell507
I have a file called email2.asp which I am using to mail data obtained
from a SQL query. I would like to pass the holiday_ID value in the
querystring attached to the end of the URL. It all works except that
I can't get the value of holiday_ID included as a querystring. As a
test I can insert a value after the ?id= and this is passed as a
querystring.
I am sure it's just the syntax that I am having problem with
<%
Option Explicit
<!--#include file="admin_navigation.asp" -->
'Declare variables
Dim sch, cdoConfig, cdoMessage, holiday_ID, email, auth
holiday_ID = Request.Form("myname")
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
'Set CDO Port
.Item(sch & "sendusing") = 2
'Set mailserver name either IP address, mail.yoursite.com or
localhost
.Item(sch & "smtpserver") = "192.156.217.6"
'Set SMTP port which is 25 by default
.Item(sch & "smtpserverport") = 25
'Set number of seconds before timeout
.Item(sch & "smtpconnectiontimeout") = 60
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "(e-mail address removed)"
.To = "(e-mail address removed)"
.Subject = ""& email
'Send the email in HTML format
.HTMLBody = "<a href='http://192.156.217.134/authorise.asp?
id=holiday_ID'>delete record</a><br><br>"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
from a SQL query. I would like to pass the holiday_ID value in the
querystring attached to the end of the URL. It all works except that
I can't get the value of holiday_ID included as a querystring. As a
test I can insert a value after the ?id= and this is passed as a
querystring.
I am sure it's just the syntax that I am having problem with
<%
Option Explicit
<!--#include file="admin_navigation.asp" -->
'Declare variables
Dim sch, cdoConfig, cdoMessage, holiday_ID, email, auth
holiday_ID = Request.Form("myname")
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
'Set CDO Port
.Item(sch & "sendusing") = 2
'Set mailserver name either IP address, mail.yoursite.com or
localhost
.Item(sch & "smtpserver") = "192.156.217.6"
'Set SMTP port which is 25 by default
.Item(sch & "smtpserverport") = 25
'Set number of seconds before timeout
.Item(sch & "smtpconnectiontimeout") = 60
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "(e-mail address removed)"
.To = "(e-mail address removed)"
.Subject = ""& email
'Send the email in HTML format
.HTMLBody = "<a href='http://192.156.217.134/authorise.asp?
id=holiday_ID'>delete record</a><br><br>"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>