|
Your Register.asp should look something line this:
'Send message to new user by way of the quarantine.
MessageDate = Now
Message = "From: Administrator < mailto:support@yourdomain.com" CLASS="ASPForums" TITLE="WARNING: URL created by poster. - support@yourdomain.com >" & vbCRLF
Message = Message & "To: " & EMail & vbCRLF
Message = Message & "Subject: Your quarantine area password" & vbCRLF
'****** Revision 6-11-03 ******
Message = Message & "Date: " & FormatDateTime(MessageDate, vbLongDate) & " " & FormatDateTime(MessageDate, vbLongTime) & vbCRLF
Message = Message & "Content-Type: text/html;charset=""ISO-8859-1""" & vbCRLF & vbCRLF
Message = Message & "Thank you for registering for your Spam Manager access." & vbCRLF & vbCRLF
Message = Message & "Your quarantine area Login is " & Email & vbCRLF & vbCRLF
Message = Message & "Your quarantine area password is " & Password & vbCRLF
Message = Message & "The first time you log in please select the " & vbCRLF
Message = Message & "link to change your password to a new value." & vbCRLF
Message = Message & "." & vbCRLF
SQL = "SELECT * FROM tblMsgs WHERE 0 = 1"
rs.Open(SQL)
rs.AddNew
rs("Msg") = Message
rs.Update
MsgID = rs("MsgID")
rs.Close
SQL="SELECT * FROM tblQuarantine WHERE 0 = 1"
rs.Open(SQL)
rs.AddNew
rs("EMailFrom") = " mailto:support@yourdomain.com" CLASS="ASPForums" TITLE="WARNING: URL created by poster. - support@yourdomain.com "
rs("EMailTo") = EMail
rs("Subject") = "Your quarantine area password"
rs("MsgID") = MsgID
rs("MsgDate") = MessageDate
rs("Expire") = 0
rs("Deliver") = 1
'****** Revision 6-12-03 ******
rs("ServerID") = 5
'******************************
rs("RejectDetails") = ""
rs("RejectID") = 0
rs.Update
rs.Close
Set rs = Nothing
Regards,
Dan S.
|