<% errorMsg="" Success = "" Dim oConn, oRs, objRS, mysql Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open(connectstr) If Request("submit") <> "" then If Request.Form("FirstName") = "" or Request.Form("LastName") = "" or Request.Form("title") = "" or Request.Form("Company") = "" or Request.Form("email") = "" or Request.Form("phone") = "" or Request.Form("AgencyType") = "" then errorMsg = "One or more required fields are missing. Please enter the fields that are in red." elseif Request.Form("findus") = "Other" and Request.Form("findusother") = "" then errorMsg = "Please let us know how you find us." else datenow = Date() mysql="insert into Results (FirstName, LastName, title, AgencyType, Company, City, State, Email, Phone, Comments, FoundUsFrom, FoundUsOther, Remote_computer_name, User_name, Browser_type) values ('"&Request.Form("FirstName")&"','"&Request.Form("LastName")&"','"&Request.Form("title")&"', '"&Request.Form("AgencyType")&"', '"&Request.Form("Company")&"', '"&Request.Form("city")&"', '"&Request.Form("state")&"', '"&Request.Form("email")&"', '"&Request.Form("phone")&"', '"&Request.Form("Comments")&"', '"&Request.Form("findus")&"', '"&Request.Form("findusother")&"', '"&Request.ServerVariables("REMOTE_HOST")&"', '"&Request.ServerVariables("REMOTE_USER")&"', '"&Request.ServerVariables("HTTP_USER_AGENT")&"')" Set objRS = oConn.Execute(mysql) Success = "Thank you, "&Request.Form("FirstName")&" "&Request.Form("LastName")&", for contacting us. We will contact you as soon as possible." mailfrom = Request("email") mailsubject = "Contact from resourcepro.com" mailbody = "" & vbCrlf &_ ""& vbCrlf &_ "Resourcepro.com -- contact form" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" &vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" If Request("findus") = "Other" then mailbody =mailbody&"" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" end if mailbody =mailbody&"" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "" & vbCrlf &_ "
**********************************************
        Contact Form Information" &_ "
**********************************************
Name:"&Request("FirstName") & " " &Request("LastName")&"
Title:"&Request("title")&"
Company:"&Request("Company")& "
City:"&Request("city")&"
State:"&Request("state")&"
Email:"&Request("email")&"
Phone:"&Request("phone")&"
Agency Type:"&Request("AgencyType")&"
How did you find us?"&Request("findus")&"
Other:"&Request("findusother")&"
Comments:"&Request("Comments")&"
**********************************************
Remote Computer IP Address:"&Request.ServerVariables("REMOTE_HOST")&"
Remote User Name:"&Request.ServerVariables("REMOTE_USER")&"
Browser Type:"&Request.ServerVariables("HTTP_USER_AGENT")&"
" Dim Newmail Set Newmail = server.CreateObject ("cdonts.newmail") Newmail.BodyFormat = 0 Newmail.MailFormat = 0 Newmail.From = mailfrom Newmail.To = "depstein@resourcepro.com" ' phwae@yahoo.com Newmail.Subject = mailsubject Newmail.Body = mailbody Newmail.Send Set Newmail = Nothing end if end if %> ReSource Pro - Contact Us

" method="POST" name="contactform" style="margin-bottom: 0"> <% If Success <> "" then %> <% else %> <% If errorMSg <> "" then %> <% end if %> <% end if %>
<%=Success%>

For more information, please contact us by filling in the form below.

 
<%=errorMsg%>
* Required Fields United States Office

ReSource Pro, LLC
6 East 43rd Street
15th Floor
New York, NY 10017
Tel: 1-888-5-RSP LLC

China Office

ReSource Pro Qingdao
288 Ningxia Rd.
Qingdao Software Park
Building G3, Ste. 413
Qingdao, Shandong 266071
China

Or contact us at:

info@resourcepro.com
 
"" and Request.Form("FirstName") = "" then%>color:red;<% end if %> font-family: Arial, Helvetica, sans-serif">* First Name
 ">
"" and Request.Form("LastName") = "" then%>color:red;<% end if %> font-family: Arial, Helvetica, sans-serif">* Last Name
 ">
"" and Request.Form("title") = "" then%>color:red;<% end if %> font-family: Arial, Helvetica, sans-serif">* Title
 ">
"" and Request.Form("Company") = "" then%>color:red;<% end if %> font-family: Arial, Helvetica, sans-serif">* Company
 ">
City
 ">
State
"" and Request.Form("Email") = "" then%>color:red;<% end if %> font-family: Arial, Helvetica, sans-serif">* Email
 " onBlur="checkEmail()">
"" and Request.Form("Phone") = "" then%>color:red;<% end if %> font-family: Arial, Helvetica, sans-serif">* Phone (with area code)
">
"" and Request.Form("AgencyType") = "" then%>color:red;<% end if %> font-family: Arial, Helvetica, sans-serif">* Agency Type
"" and Request.Form("findus") = "" then%>color:red;<% end if %> font-family: Arial, Helvetica, sans-serif">* How did you find us?

">
Questions or Comments
 

 

> Home

"It’s gotten to the point where we feel like the employees at ReSource Pro are our employees."

Sue Sevis
Underwriter
Paul Hanson Partners