<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName   = "RCN Webpage Form Results"
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient Request.Form("recipient"), Request.Form("recipient")
Mailer.Subject = "Form Submission"

strMsgHeader = "Form information follows" & vbCrLf

for each qryItem in Request.Form
   strMsgInfo = strMsgInfo &  qryItem & " - " & request.Form(qryItem) & vbCrLf
next

strMsgFooter = vbCrLf & "End of form information"
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter

if Mailer.SendMail then
  Response.Write "Thanks for your order. You will receive a confirmation response from someone at the dealership within 24 hours."
else
  Response.Write "Mail send failure. Error was " & Mailer.Response
end if

%>