<% 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%>
Postal Mail: P.O. Box 3473 Phone/Fax: 336.222.8438
Burlington, NC 27217 Web: www.jaydaugherty.com

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.

Your Name:
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 %>