<%

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

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.Redirect Request.Form("redirect")
else
  Response.Write "Mail send failure. Error was " & Mailer.Response
end if

%>