Hi
This is the code for the email form. I can get the session
variable info to show on the page but can't get it to email the
variable.
Thanks for your help.
**************CODE*************
'Set the response buffer to true so we execute all asp code
before sending the HTML to the clients browser
Response.Buffer = True
'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses
if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses
if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of
the user
'----------------- Place your e-mail address in the following
sting ----------------------------------
strMyEmailAddress = "me@someemail.co.uk"
'----------- Place Carbon Copy e-mail address's in the
following sting, separated by ; --------------
strCCEmailAddress = "" 'Use this string only if you want to
send the carbon copies of the e-mail
'----------- Place Blind Copy e-mail address's in the
following sting, separated by ; --------------
strBCCEmailAddress = "" 'Use this string only if you want to
send the blind copies of the e-mail
'-----------------------------------------------------------------------------------------------------
'Initialse strBody string with the body of the e-mail
strBody = "<h2>ADVERT ADDED ON THE JUST ARRIVED SA
WEBSITE</h2>"
strBody = strBody & "<br><b>Just to inform
you that an advert has been added to the Just Arrived SA website.
</b>" & Request.Form("BName")
strBody = strBody & "<br><b>Go to <a
href=""
http://www.justarrived-sa.com.asp""
target=""_blank"">www.justarrived-sa.com.asp</a> to
authorise this advert. </b>" & Request.Form("Go to <a
href=""
http://www.justarrived-sa.com.asp""
target=""_blank"">www.justarrived-sa.com.asp</a> to
authorise this advert.")
'Send the e-mail
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Who the e-mail is from (this needs to have an e-mail address
in it for the e-mail to be sent)
objCDOMail.From = Request.Form("NAME") & " <" &
strMyEmailAddress & ">"
'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress
'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress
'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress
'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0
'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0
'Set the subject of the e-mail
objCDOMail.Subject = "Enquiry sent from enquiry form on Just
Arrived-SA website"
'Set the main body of the e-mail
objCDOMail.Body = strBody
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
%>