<%
option explicit
dim area
'area = 1 'Homepage
'area = 2 'Services
'area = 3 'Quote
'area = 4 'Portfolio
'area = 5 'Testimonials
area = 6 'Contact Us
%>
Contact Information - JMD Web Design & Development
JMD Web Design & Development
<%
dim sSubmit
sSubmit = request("submitbutton")
if sSubmit = "" then
showForm()
else
submitForm()
end if
%>
<%sub showForm%>
If you need further information on our design and development
services, or need to contact us for any other reason, complete and submit the form below
and we will respond within a couple of hours (during normal business operation). If you
would like a quote for services, do not complete this form, but complete the Quote Form
in our "Request Quote" area.
City & State:
Phone Number:
Email Address:
How would you like us to respond?:
Best time to call:
How did you hear about us?:
Please enter your question or comment below.
<%end sub%>
<%sub submitForm()
Dim NewMail,txtSubject
Set NewMail = Server.CreateObject("CDONTS.NewMail")
'NewMail.AttachURL "D:\64.226.101.235\images\header_logo3.gif", "logo.gif"
'NewMail.AttachURL "D:\64.226.101.235\images\blank.gif", "blank.gif"
'NewMail.AttachURL "D:\64.226.101.235\images\shadow_vert.gif", "shadow_vert.gif"
NewMail.To = "contactform@jaydaugherty.com"
NewMail.From = "contactform@jaydaugherty.com"
'NewMail.bcc = "jay@jaydaugherty.com"
NewMail.Subject = "Contact Form submitted from jaydaugherty.com!"
txtSubject = "The following was submitted from jaydaugherty.com" & vbcrlf & vbcrlf & _
"Your Name: " & request("Your Name:") & vbcrlf & _
"City & State: " & request("City & State:") & vbcrlf & _
"Phone Number: " & request("Phone Number:") & vbcrlf & _
"Email Address: " & request("Email Address:") & vbcrlf & _
"Preferred Communication: " & request("Preferred Communication:") & vbcrlf & _
"Best time to call: " & request("Best time to call:") & vbcrlf & _
"Heard about us by: " & request("Heard about us by:") & vbcrlf & vbcrlf & _
"Question/Comment: " & request("Additional Comments:")
NewMail.Body = txtSubject
'NewMail.BodyFormat = 0
'NewMail.MailFormat = 0
NewMail.Send
%>
Thank you for your submission. We will be contacting you shortly.
<%end sub
%>
