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_nav igation.asp" -->
'Declare variables
Dim sch, cdoConfig, cdoMessage, holiday_ID, email, auth
holiday_ID = Request.Form("m yname")
sch = "http://schemas.microso ft.com/cdo/configuration/"
Set cdoConfig = CreateObject("C DO.Configuratio n")
With cdoConfig.Field s
'Set CDO Port
.Item(sch & "sendusing" ) = 2
'Set mailserver name either IP address, mail.yoursite.c om or
localhost
.Item(sch & "smtpserver ") = "192.156.21 7.6"
'Set SMTP port which is 25 by default
.Item(sch & "smtpserverport ") = 25
'Set number of seconds before timeout
.Item(sch & "smtpconnection timeout") = 60
.update
End With
Set cdoMessage = CreateObject("C DO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "administrator@ domain.com"
.To = "paul@ndomani.c om"
.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_nav igation.asp" -->
'Declare variables
Dim sch, cdoConfig, cdoMessage, holiday_ID, email, auth
holiday_ID = Request.Form("m yname")
sch = "http://schemas.microso ft.com/cdo/configuration/"
Set cdoConfig = CreateObject("C DO.Configuratio n")
With cdoConfig.Field s
'Set CDO Port
.Item(sch & "sendusing" ) = 2
'Set mailserver name either IP address, mail.yoursite.c om or
localhost
.Item(sch & "smtpserver ") = "192.156.21 7.6"
'Set SMTP port which is 25 by default
.Item(sch & "smtpserverport ") = 25
'Set number of seconds before timeout
.Item(sch & "smtpconnection timeout") = 60
.update
End With
Set cdoMessage = CreateObject("C DO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "administrator@ domain.com"
.To = "paul@ndomani.c om"
.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
%>
Comment