Please use the Form below to Contact Us or to get a Quote please click
here.
<%
If Request.Form("Button") = "Submit this Form" Then
If Request.Form("Name") = "" Then
sBody = "You didn't enter a name.
"
ErrorRequest = True
End If
If Request.Form("Email") = "" Then
sBody = sBody & "You didn't enter an e-mail address. We need that to get back to you.
"
ErrorRequest = True
End If
If ErrorRequest = False Then
sBody = "Thank you for your submission! We will contact you shortly regarding your questions and concerns.
Please feel free to continue browsing our site.
"
sMessage = "Below are the results of the form submission from the Video Publishers Form. It was submitted on " & now & Chr(13)
sMessage = sMessage & "-------------------------------------" & Chr(13) & Chr(13)
sMessage = sMessage & "Name: " & Request.Form("Name") & Chr(13) & Chr(13)
sMessage = sMessage & "Company: " & Request.Form("Company") & Chr(13) & Chr(13)
sMessage = sMessage & "Address: " & Request.Form("Address") & Chr(13) & Chr(13)
sMessage = sMessage & "City: " & Request.Form("CityStateZip") & Chr(13) & Chr(13)
sMessage = sMessage & "E-Mail: " & Request.Form("Email") & Chr(13) & Chr(13)
sMessage = sMessage & "Phone: " & Request.Form("Phone") & Chr(13) & Chr(13)
sMessage = sMessage & "Comments: " & Request.Form("Comments") & Chr(13) & Chr(13)
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.Body = sMessage
objMail.To = "suehart@precisemedia.com"
objMail.Subject = "Video Publishers Contact Form Submission"
objMail.From = Request.Form("Email")
objMail.Send
set objMail = nothing
Else
sBody = sBody & "Please click your browser's back button to try again.
"
End If
response.write(sBody)
Else %> Our objective with this site is to save you money and improve your results. Please let us
know how we can serve you better.
