<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' change to address of your own SMTP server strHost = "localhost" strBody = strBody & "APPRAISAL STATUS CHECK " & vbcrlf strBody = strBody & "Contact name: " & request.form("name") & vbcrlf strBody = strBody & "Phone Number: " & request.form("phone") & vbcrlf strBody = strBody & "Email: " & request.form("email") & vbcrlf strBody = strBody & "Address: " & request.form("address") & vbcrlf strBody = strBody & "Address (con't): " & request.form("address2") & vbcrlf strBody = strBody & "City: " & request.form("city") & vbcrlf strBody = strBody & "State: " & request.form("state") & vbcrlf strBody = strBody & "Zip: " & request.form("zip") & vbcrlf strBody = strBody & vbcrlf strBody = strBody & "Contact Method: " & request.form("method") & vbcrlf Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.host = strHost Mail.From = "webform@collinsappraisalservice.com" ' From address - must be active email user Mail.FromName = "Order Status for Collins Appraisal Service" ' optional Mail.Priority = 1 'Mail.AddAddress request.form("forwardto") 'Mail.AddAddress "allen@nbbservices.com" 'Mail.AddAddress "darin@collinsappraisalservice.com" Mail.AddAddress "info@collinsappraisalservice.com" 'Mail.AddAddress "george@collinsappraisalservice.com" Mail.AddReplyTo request.form("email") ' message subject Mail.Subject = "Message from Web site user: " & request.form("name") ' message body Mail.Body = strBody strErr = "" On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description response.redirect("order_status.asp?msg=error") else response.redirect("order_status.asp?msg=ok") End If response.redirect(url) %>