<%
if Request.Querystring("isSubmitted") = "yes" then
Dim Name
Dim Title
Dim Company
Dim area
Dim exchange
Dim Number
Dim Email
Dim objCDO
Dim Comments
Name= Request.Querystring("Name")
Title= Request.Querystring("Title")
Company= Request.Querystring("Company")
area= Request.Querystring("area")
exchange= Request.Querystring("exchange")
number= Request.Querystring("number")
Comments=Request.Querystring("Comments")
Email=Request.Querystring("Email")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From =Email
objCDO.To = "info@webdolphins.com"
objCDO.Cc = "jspringer@webdolphins.com"
objCDO.Bcc = "jboehm@webdolphins.com"
objCDO.Subject = "Web Inquiry from WEBDOLPHINS.COM"
objCDO.Body = "Name: " & Name & "" & vbcrlf& "Title: " & Title & "" & vbcrlf& "Company: " & Company & "" & vbcrlf& "Phone: " & area & " " & exchange & "-" & number& "" & vbcrlf& "Email: "& Email & "" & vbcrlf & vbcrlf & vbcrlf& "Comments/Questions: " & Comments
objCDO.BodyFormat = 1
objCDO.MailFormat = 1
objCDO.Send
Response.Redirect"thanks.html"
End If
%>
CHICAGO WEB DESIGN | WEBDOLPHINS WEB DEVELOPMENT | CHICAGO WEB SITE DEVELOPMENT | WEBDOLPHINS CHICAGO WEB SITE DESIGN | CHICAGO INTERNET MARKETING
WebDolphins Web Development
2140A Rugen Road
Glenview, IL 60026
(Phone) 847.845.7289
(Fax) 847.837.8345
