<%@LANGUAGE="VBSCRIPT" %> <% if Request("submit") <> "" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "info@hobsonstrategicvision.com" objCDO.To = "info@hobsonstrategicvision.com" objCDO.Subject = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Email: " objCDO.TextBody = objCDO.TextBody & Request("Email") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Name: " objCDO.TextBody = objCDO.TextBody & Request("Name") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "OrgName: " objCDO.TextBody = objCDO.TextBody & Request("OrgName") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Phone: " objCDO.TextBody = objCDO.TextBody & Request("Phone") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "City: " objCDO.TextBody = objCDO.TextBody & Request("City") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "State/Province/Country: " objCDO.TextBody = objCDO.TextBody & Request("State/Province/Country") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "ProjectDesc: " objCDO.TextBody = objCDO.TextBody & Request("ProjectDesc") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "PhnCtc: " objCDO.TextBody = objCDO.TextBody & Request("PhnCtc") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "EmlCtc: " objCDO.TextBody = objCDO.TextBody & Request("EmlCtc") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to ' Response.Redirect "thanks.html" or similar Response.Redirect "CtcSuccess.html" ' Response.Write "Your Message has been sent. Thank you!" Response.End end if %> Microsoft Certified Small Business Specialists Small Business Marketing for Small Businesses

 

 

Services

Products

Portfolio

About

contact

.
HobsonStrategicVision
 

Contact

Is your organization at a cross-roads? Want an objective opinion? Need assistance?
Or would you just like to discuss an idea with someone in the field to make sure you are on a solid track.
If so, tell us how to get in touch with you and a brief description of your project.
" onsubmit="return validate();" style="margin:0; padding:0" >


Email:*

Name:*

Organization Name:

Phone:

City:

State/Province/Country:

Brief Project Description:

I prefer to be contacted by:

Phone:. ...Email:..

Offices in Cary, NC (Raleigh-Durham area)

Home|Services|Products|Portfolio|About|Contact|Partners|Privacy Policy

Copyright © 2000-2012 Hobson Renaissance Solutions LLC dba Hobson Strategic Vision.  All Rights Reserved