<% Dim m_strMode, m_intAction m_strMode = Request.QueryString("M") m_intAction = CInt(Request.QueryString("A")) If m_intAction = 1 then 'Replaying (Validate data entered) Dim Error Error = "N" If trim(Request.Form("txtname")) = "" _ or trim(Request.Form("txtstreet")) = "" _ or trim(Request.Form("txtcity")) = "" _ or trim(Request.Form("cbostate")) = "" _ or trim(Request.Form("txtzipcode")) = "" _ or trim(Request.Form("txthomephone")) = "" _ or trim(Request.Form("txtworkphone")) = "" _ or trim(Request.Form("txtemail")) = "" _ or trim(Request.Form("textareadetails")) = "" then Error = "Y" Else Dim msg set msg = Server.CreateOBject("JMail.Message") msg.Logging = true msg.silent = true msg.From = Trim(Request.Form("txtemail")) msg.FromName = Trim(Request.Form("txtName")) msg.AddRecipient "info@homediscoveryinc.com", "Home Discovery" Dim strBody If m_strMode = "S" then msg.Subject = "Customer Selling Their Home" strBody = "This is an email from a customer on the website. He/she is selling their home." & Chr(13) & Chr(10) & Chr(13) & Chr(10) else msg.Subject = "Customer Renting Their Home" strBody = "This is an email from a customer on the website. He/she is renting their home." & Chr(13) & Chr(10) & Chr(13) & Chr(10) end if strBody = strBody & "Name: " & Chr(9) & Chr(9) & Trim(Request.Form("txtname")) & Chr(13) & Chr(10) strBody = strBody & "Street: " & Chr(9) & Chr(9) & Trim(Request.Form("txtstreet")) & Chr(13) & Chr(10) strBody = strBody & "City: " & Chr(9) & Chr(9) & Trim(Request.Form("txtcity")) & Chr(13) & Chr(10) strBody = strBody & "State: " & Chr(9) & Chr(9) & Trim(Request.Form("cbostate")) & Chr(13) & Chr(10) strBody = strBody & "Zip Code: " & Chr(9) & Trim(Request.Form("txtzipcode")) & Chr(13) & Chr(10) strBody = strBody & "Home Phone: " & Chr(9) & Trim(Request.Form("txthomephone")) & Chr(13) & Chr(10) strBody = strBody & "Work Phone: " & Chr(9) & Trim(Request.Form("txtworkphone")) & Chr(13) & Chr(10) strBody = strBody & "Email: " & Chr(9) & Chr(9) & Trim(Request.Form("txtemail")) & Chr(13) & Chr(10) strBody = strBody & "Details: " & Chr(9) & Chr(9) & Trim(Request.Form("textareadetails")) & Chr(13) & Chr(10) msg.Body = strBody msg.Maildomain = "mail.homediscoveryinc.com" msg.MailServerUserName = "emailer@hd" msg.MailServerPassword = "emailxyz" msg.Send ("mail.homediscoveryinc.com") Response.Redirect("message.asp") End If End If %> Home Discovery, Inc.