HTML form to email Print

 
 Code Sample for Sending Email Using CDO.NewMail Object on Windows 2003   Server:
 
 
 
 ==========================================
 
 Code Sample:
 
 ==========================================
 
 < %
 
 for each item in request.form
 
 strHTML= strHTML & "" & item &   ": " & request.form(item) &   "
"
 
 next
 
 
 
 Dim myMail
 
 
 
 Set myMail = server.CreateObject("CDO.Message")
 
 
 
 myMail.From = "website@screenwritinggoldmine.com"
 
 myMail.To = "website@screenwritinggoldmine.com"
 
 myMail.Subject = "Web Site Information Submission."
 
 myMail.TextBody = strHTML
 
 myMail.Send
 
 Set myMail = Nothing
 
 
 
 
 
 % >
 
 
 
 Thank you for submitting the following information:
 
 

 
 < % =strHTML % & gt;