<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' change to address of your own SMTP server strHost = "localhost" strBody = strBody & "ORDER APPRAISAL FORM " & vbcrlf strBody = strBody & "Client information " & vbcrlf strBody = strBody & "First name: " & request.form("Clients First Name") & vbcrlf strBody = strBody & "Last name: " & request.form("Clients Last Name") & vbcrlf strBody = strBody & "Company: " & request.form("Company") & vbcrlf strBody = strBody & "Title: " & request.form("Title") & vbcrlf strBody = strBody & "Address: " & request.form("Clients Address") & vbcrlf strBody = strBody & "Address (con't): " & request.form("Clients Address Cont") & vbcrlf strBody = strBody & "City: " & request.form("Clients City") & vbcrlf strBody = strBody & "State: " & request.form("Clients State") & vbcrlf strBody = strBody & "Zip: " & request.form("Clients Zip") & vbcrlf strBody = strBody & "Phone Number: " & request.form("Clients Phone") & vbcrlf strBody = strBody & "Fax Number: " & request.form("Clients Fax") & vbcrlf strBody = strBody & "Email: " & request.form("Clients Email") & vbcrlf strBody = strBody & vbcrlf strBody = strBody & "Subject Property Information " & vbcrlf strBody = strBody & "First name: " & request.form("Borrowers First Name") & vbcrlf strBody = strBody & "Last name: " & request.form("Borrowers Last Name") & vbcrlf strBody = strBody & "Address: " & request.form("Borrowers Address") & vbcrlf strBody = strBody & "Address (con't): " & request.form("Borrowers Address Cont") & vbcrlf strBody = strBody & "City: " & request.form("Borrowers City") & vbcrlf strBody = strBody & "State: " & request.form("Borrowers State") & vbcrlf strBody = strBody & "Zip: " & request.form("Borrowers Zip") & vbcrlf strBody = strBody & "Value Type: " & request.form("Value Type") & vbcrlf strBody = strBody & "Value Amount: " & request.form("Value") & vbcrlf strBody = strBody & "FHA Case Number: " & request.form("FHA Case Number") & vbcrlf strBody = strBody & vbcrlf strBody = strBody & "Payment Method: " & request.form("pmethod") & vbcrlf strBody = strBody & vbcrlf strBody = strBody & "Property Access Contact Information " & vbcrlf strBody = strBody & "Contact Name: " & request.form("paname") & vbcrlf strBody = strBody & "Phone One Type: " & request.form("paptype") & vbcrlf strBody = strBody & "Phone One Number: " & request.form("paphone") & vbcrlf strBody = strBody & "Phone Two Type: " & request.form("paptype2") & vbcrlf strBody = strBody & "Phone Two Number: " & request.form("paphone2") & vbcrlf strBody = strBody & vbcrlf strBody = strBody & "Property Information " & vbcrlf strBody = strBody & "Building Type: " & request.form("Property Type") & vbcrlf strBody = strBody & "Appraisal Type: " & request.form("Appraisal Type") & vbcrlf strBody = strBody & "Purpose: " & request.form("Purpose") & vbcrlf strBody = strBody & vbcrlf strBody = strBody & "Comments: " & request.form("comments") & 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 Appraisal for Collins Appraisal Service" ' optional Mail.Priority = 1 'Mail.AddAddress request.form("forwardto") 'Mail.AddAddress "darin@collinsappraisalservice.com" Mail.AddAddress "info@collinsappraisalservice.com" 'Mail.AddAddress "george@collinsappraisalservice.com" 'Mail.AddAddress "allen@nbbservices.com" Mail.AddReplyTo request.form("email") ' message subject Mail.Subject = "Message from Web site user: " & request.form("Clients First 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.asp?msg=error") else response.redirect("order.asp?msg=ok") End If response.redirect(url) %>