Crash1hd
05-21-2003, 04:33 AM
THe following code for some reason doesnt work
<%
Dim MessageBody, objMail
MessageBody = "<LINK href='http://www.alwaysremember.ca/Scripts/style.css' rel='stylesheet' type='text/css'>"
MessageBody = MessageBody & "<p align='center'><a name='Top' href='http://www.Alwaysremember.ca'><img name='Title' src='http://www.Alwaysremember.ca/Images/title.gif' alt='Title' border='0'></a></p><br>"
MessageBody = MessageBody & "Welcome " & First_Name & " " & Last_Name & " to <a name='Top' href='http://www.Alwaysremember.ca'>Alwaysremember.ca</a><br><br>"
MessageBody = MessageBody & "<b><a href=http://www.Alwaysremember.ca/Login/register.asp?emc='" & email & "'&uid=" & userid & ">Please click here to confirm your registration and activate your account:</a></b>"
MessageBody = MessageBody & "<hr>"
MessageBody = MessageBody & " Username: " & username & "<br>"
MessageBody = MessageBody & " Password: " & pass & " *Don't forget your password*<br>"
MessageBody = MessageBody & "<hr>"
MessageBody = MessageBody & "Remember to never give out you password<br><br>"
MessageBody = MessageBody & "Thankyou for registering with us!<br><br>"
MessageBody = MessageBody & "Adam Kirk<br>Customer Service Manager<br><a name='Top' href='http://www.Alwaysremember.ca'>Alwaysremember.ca</a><br><br>"
MessageBody = MessageBody & "Please feel free to contact us at <A href='mailto: customerservice@alwaysremember.ca' target=_blank>customerservice@alwaysremember.ca</A>"
MessageBody = MessageBody & "<br><br><br><br><br><br><br><br><p align='center'>If you have recieved this email and you never requested this <a href=#>click here</a></P>"
MessageBody = MessageBody & "<form name='Confirm' action='http://www.Alwaysremember.ca/test2.asp' method='post'>"
MessageBody = MessageBody & "<input type='text' name='Confirm' value='01'>"
MessageBody = MessageBody & "<input type='submit' name='Members' value='Update'>"
MessageBody = MessageBody & "</form>
s
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = email
objMail.From = "registrar@alwaysremember.ca"
objMail.Subject = "Registration Email Confirmation for Alwaysremember.ca"
objMail.BodyFormat = 0
objMail.MailFormat = Request.Form("MailFormatField")
objMail.Body = MessageBody
objMail.Send
Set objMail = Nothing
%>
The part in red doesnt work?
<%
Dim MessageBody, objMail
MessageBody = "<LINK href='http://www.alwaysremember.ca/Scripts/style.css' rel='stylesheet' type='text/css'>"
MessageBody = MessageBody & "<p align='center'><a name='Top' href='http://www.Alwaysremember.ca'><img name='Title' src='http://www.Alwaysremember.ca/Images/title.gif' alt='Title' border='0'></a></p><br>"
MessageBody = MessageBody & "Welcome " & First_Name & " " & Last_Name & " to <a name='Top' href='http://www.Alwaysremember.ca'>Alwaysremember.ca</a><br><br>"
MessageBody = MessageBody & "<b><a href=http://www.Alwaysremember.ca/Login/register.asp?emc='" & email & "'&uid=" & userid & ">Please click here to confirm your registration and activate your account:</a></b>"
MessageBody = MessageBody & "<hr>"
MessageBody = MessageBody & " Username: " & username & "<br>"
MessageBody = MessageBody & " Password: " & pass & " *Don't forget your password*<br>"
MessageBody = MessageBody & "<hr>"
MessageBody = MessageBody & "Remember to never give out you password<br><br>"
MessageBody = MessageBody & "Thankyou for registering with us!<br><br>"
MessageBody = MessageBody & "Adam Kirk<br>Customer Service Manager<br><a name='Top' href='http://www.Alwaysremember.ca'>Alwaysremember.ca</a><br><br>"
MessageBody = MessageBody & "Please feel free to contact us at <A href='mailto: customerservice@alwaysremember.ca' target=_blank>customerservice@alwaysremember.ca</A>"
MessageBody = MessageBody & "<br><br><br><br><br><br><br><br><p align='center'>If you have recieved this email and you never requested this <a href=#>click here</a></P>"
MessageBody = MessageBody & "<form name='Confirm' action='http://www.Alwaysremember.ca/test2.asp' method='post'>"
MessageBody = MessageBody & "<input type='text' name='Confirm' value='01'>"
MessageBody = MessageBody & "<input type='submit' name='Members' value='Update'>"
MessageBody = MessageBody & "</form>
s
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = email
objMail.From = "registrar@alwaysremember.ca"
objMail.Subject = "Registration Email Confirmation for Alwaysremember.ca"
objMail.BodyFormat = 0
objMail.MailFormat = Request.Form("MailFormatField")
objMail.Body = MessageBody
objMail.Send
Set objMail = Nothing
%>
The part in red doesnt work?