% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "website" Mailer.FromAddress= "steinmail@vasweb.com" Mailer.RemoteHost = "mail.vasweb.com" Mailer.Username = "admin@vasweb.com" Mailer.Password = "7372569" Mailer.AddRecipient "Doug Stein", "steinmail@vasweb.com" Mailer.AddExtraHeader "X-MimeOLE:Produced vasweb.com" Mailer.Subject = "Website Information Request" 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 "Form information submitted..." else Response.Write "Mail send failure. Error was " & Mailer.Response end if set Mailer = Nothing %>
To receive more information by e-mail and/or postal mail, please fill in the blanks below: |