<% dim ObjMail, myBody On Error Resume Next if Request.Form("Submit") <> "" then myBody = "Name: " & Request.Form("Salutation") & " " & Request.Form("FirstName") & " " & Request.Form("MiddleInitial") & " " & Request.Form("LastName") myBody = myBody & vbCrLf & vbCrLf myBody = myBody & "Address:" & vbCrLf myBody = myBody & Request.Form("StreetAddress") & vbCrLf & Request.Form("StreetAddress2") & vbCrLf & Request.Form("City") & ", " & Request.Form("State") & " " & Request.Form("Zip") myBody = myBody & vbCrLf & vbCrLf myBody = myBody & "Daytime Phone: " & Request.Form("DaytimePhone") & vbCrLf & "Cellular Phone: " & Request.Form("CellularPhone") & vbCrLf & "Fax Number: " & Request.Form("FaxNumber") & vbCrLf & "Email Address: " & Request.Form("EmailAddress") myBody = myBody & vbCrLf & vbCrLf myBody = myBody & "Company: " & Request.Form("Company") & vbCrLf & "Title/Position: " & Request.Form("TitlePosition") & vbCrLf & vbCrLf & "Company Address: " & vbCrLf & Request.Form("CompanyStreetAddress") & vbCrLf & Request.Form("CompanyStreetAddress2") & vbCrLf & Request.Form("CompanyCity") & ", " & Request.Form("CompanyState") & " " & Request.Form("CompanyZip") myBody = myBody & vbCrLf & vbCrLf myBody = myBody & "Comments:" & vbCrLf & Request.Form("Comments") Set ObjMail = Server.CreateObject("CDO.Message") ObjMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.nauticom.net" ObjMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjMail.Configuration.Fields.Update ObjMail.to = "marketing@jsa-architects.com" if Request.Form("EmailAddress") = "" then objMail.from = "unknown@unknown.com" else objMail.from = Request.Form("EmailAddress") end if objMail.subject = "General Inquiries Form Submission" objMail.textbody = myBody objMail.send set objMail = nothing end if %> JSA
 
Home | Site Map | Contact Us
 
 
 
 
Map
Directions
General Inquiries
Opportunities
 
<%if Request.Form("Submit") <> "" AND Err then%>

An internal system error has occurred. Please try again later.

<%elseif Request.Form("Submit") <> "" AND NOT Err then%>

Your contact information has been sent successfully. You will be contacted shortly by one of our representatives.

<%else%>

Please fill out the form below and we will have a consultant contact you as soon as possible.

<%end if%>
Salutation:
Mr. Ms. Mrs.
First Name:
Middle Initial:
Last Name:
   
Street Address:
 
City:
State:
Zip:
   
Daytime Phone:
Cellular Phone:
Fax Number:
Email Address:
   
Company:
Title/Position:
Street Address:
 
City:
State:
Zip:
   
Comments:
   
 

Return to Top >

 
 
  Copyright © 2005 JSA. All rights reserved. Site by IMAGEBOX