<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If (CStr(Request("MM_insert")) <> "") Then ' send email ' change to address of your own SMTP server strHost = "webmail.webnj.net" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.Username = "webinfo@capitolrecoveryservice.com" Mail.Password = "webnj" Mail.AddAddress "webinfo@capitolrecoveryservice.com" Mail.From = Session("webinfo@capitolrecoveryservice.com") Mail.FromName = Request("FromName") ' optional ' message subject Mail.Subject = "Guest Info sent from www.capitolrecoveryservice.com" ' message body Mail.Body = "name = " + Request("1a-From") + chr(10) + _ "email = " + Request("1b-Email") + chr(10) + _ "Address = " + Request("1c-Addr") + chr(10) + _ "city = " + Request("1d-City") + chr(10) + _ "state = " + Request("1e-State") + chr(10) + _ "zip = " + Request("1f-Zip") + chr(10) + _ "phone = " + Request("1g-Phone") + chr(10) + _ "fax = " + Request("1h-Fax") + chr(10) + _ "Comment = " + Request("1i-Comment") + chr(10) + _ "Interest = " + Request("1j-Interest") + chr(10) + _ "Info = " + Request("Info")+ chr(10) strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If Response.Redirect(Request("REDIRECT")) End If %> Capitol Recovery Service Guest Book & Feedback Form