%
if Request.Querystring("isSubmitted") = "yes" then
Dim Services
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 = "Services: " & Services & "" & vbcrlf& & vbcrlf& "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
|
|
 |
 |
|
|
|
© Copyright
** WebDolphins Web Development , LLC ** All Rights Reserved |