%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If (CStr(Request("MM_insert")) <> "") Then ' send email ' change to address of your own SMTP server strHost = Session("aspladminemailhost") Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.Username = Session("aspladminemailusername") Mail.Password = Session("aspladminemailpassword") Mail.AddAddress Session("aspladminemailusername") Mail.From = Session("aspladminemailusername") Mail.FromName = Request("FromName") ' optional ' message subject if request.querystring("from") <> "invest" then Mail.Subject = "Contact info sent from THESTEINERGROUP.COM" else Mail.Subject = "Investment Opportunity info sent from THESTEINERGROUP.COM" end if ' message body Mail.Body = "name = " + Request("name") + chr(10) + _ "email = " + Request("email") + chr(10) + _ "company = " + Request("Company") + chr(10) + _ "address1 = " + Request("address1") + chr(10) + _ "address2 = " + Request("address2") + chr(10) + _ "city = " + Request("city") + chr(10) + _ "state = " + Request("state") + chr(10) + _ "zipcode = " + Request("zipcode") + chr(10) + _ "phone = " + Request("phone") + chr(10) + _ "origindate = " + Request("Origindate") + chr(10) + _ "question? = " + chr(10) + Request("Question") 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 %>
![]() | |||
![]() |
Contact Us | ||
| |||
|
|
|
![]() |