<% if Request.Querystring("isSubmitted") = "yes" then Dim fname, cname, cweb, phonevar, EmailVar, servicesvar, notesvar Dim objCDO fname = Request.Querystring("Name") cname = Request.Querystring("Company_Name") cweb = Request.Querystring("Company_Web_Site") phonevar = Request.Querystring("Phone") EmailVar = Request.QueryString("Email") servicesVar = Request.QueryString("services") notesvar = Request.QueryString("notes") strBodyText = "Name: " & fname & vbCrLf strBodyText = strBodyText & "Company Name: " & cname & vbCrLf strBodyText = strBodyText & "Company Web Site: " & cweb & vbCrLf strBodyText = strBodyText & "Phone: " & phonevar & vbCrLf strBodyText = strBodyText & "Email: " & emailvar & vbCrLf strBodyText = strBodyText & "Services: " & servicesvar & i & vbCrLf strBodyText = strBodyText & "Notes: " & notesvar & vbCrLf Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = EmailVar objCDO.To = "jakemesserly@marketlite.com" objCDO.Subject = "Web Site Inquiry" objCDO.Body = strBodyText objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send ConfirmMsg = "Thank You!" end if %> Contact MarketLite
Contact Us
402.934.1386
info@marketlite.com
Online Marketing

Contact MarketLite Today

Please fill out the information below and we will provide you with the means to unlock your company's online revenue potential.

We offer an initial consultation at no cost to you - so what do you have to lose?

<% if ConfirmMsg <> "" then %>

<%= ConfirmMsg %>

<% end if %>

Name

Company

Company Website

Phone

Email

Notes

 
© 2009 MarketLite LLC.