<% if request.form("func") = "Send Message" then name = trim(request.form("name")) coname = trim(request.form("coname")) email = trim(request.form("email")) website = trim(request.form("website")) message = trim(request.form("message")) msg = "Web Form " & chr(10) & chr(10) msg = msg & "Name : " & name & chr(10) msg = msg & "Company Name : " & coname & chr(10) msg = msg & "Email : " & email & chr(10) msg = msg & "Website : " & website & chr(10) msg = msg & "Comments : " & message & chr(10) Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = email .To = "kate@ispysearch.com" .Subject = "Message sent via I Spy Search website" .TextBody = msg End With Err.Clear objMail.Send Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing Dim confString confString="Thank you for your message." end if %>
 
 
 
Want to know how search engine friendly your site is?

Please complete the form below to submit your website to I Spy Search.

One of our engineers will evaluate your site and contact you to discuss ways in which we can help you to improve your search engine presence.

This review will include analysing your site for the main search ranking factors such as meta tags (including Title tags, description tags etc), keyword strategy, back-links, site interlinking, content relevance and more.

Name :*
Company Name :*
Email :*
Website :*
Comments :

<%=confString%>

img