20 Authority Drive, Fitchburg, MA 01420 Phone: 978-348-1989 | Fax: 978-348-1128 | info@geosearchinc.com

<% If Request("submit") = "Submit Form" Then Call ProcessForm() Else %>

We'd Like Your Feedback... Please tell us what you think about our web site, our company and/or our on-site services. Provide us with your contact information and you will be entered into a monthly drawing worth up to $500 to be applied towards your next job with Geosearch.

Comments >

Contact Information

Name:  >

Title:  >

Company:  >

Address:  >

Telephone Number:  >

Email Address:  >

	Close Window

<% end if %> <% SUB ProcessForm() Dim strComments Dim strName Dim strTitle Dim strCompany Dim strAddress Dim strPhone Dim strEmail strComments = Request.Form("txtComments") strName = Request.Form("txtName") strTitle = Request.Form("txtTitle") strCompany = Request.Form("txtCompany") strAddress = Request.Form("txtAddress") strPhone = Request.Form("txtPhone") strEmail = Request.Form("txtEmail") ' ********************************************** strHTML ="Comments: " & strComments & vbcrlf & vbcrlf &_ "Name: " & strName & vbcrlf & vbcrlf &_ "Title: " & strTitle & vbcrlf & vbcrlf &_ "Company: " & strCompany & vbcrlf & vbcrlf &_ "Address: " & strAddress & vbcrlf & vbcrlf &_ "Phone: " & strPhone & vbcrlf & vbcrlf &_ "Email: " & strEmail & vbcrlf & vbcrlf ' ********************************************** IF Session("LiveServer") Then adminEmail = "jstamas@geosearchinc.com" CCmail = "msecino@geosearchinc.com" 'CCmail = "tf@imsx.com" ELSE adminEmail = "tf@imsx.com" CCmail = "admin@imsx.com" END IF ' ********************************************** Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.axsne.net" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com" 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = adminEmail ObjSendMail.Subject = "Feedback Form" ObjSendMail.From = strEmail ' we are sending a text email.. simply switch the comments around to send an html email instead 'ObjSendMail.HTMLBody = "this is the body" ObjSendMail.TextBody = strHTML ObjSendMail.Send Set ObjSendMail = Nothing 'Set objCDO = Server.CreateObject("CDONTS.NewMail") 'objCDO.To = adminEmail 'objCDO.CC = CCmail 'objCDO.Importance = 2 'objCDO.From = strEmail 'objCDO.Subject = "Feedback Form" 'objCDO.Body = strHTML 'objCDO.Send 'Set objCDO = Nothing ' ********************************************** %>

Thank You! Your comments have been sent. We appreciate your comments. Your name will be entered into our drawing. Close Window

<% END SUB %>