<% option explicit dim area 'area = 1 'Homepage 'area = 2 'Services area = 3 'Quote 'area = 4 'Portfolio 'area = 5 'Testimonials 'area = 6 'Contact Us %> Request a Quote - JMD Web Design & Development Request a Quote
<% dim sSubmit sSubmit = request("submitbutton") if sSubmit = "" then showForm() else submitForm() end if %> <%sub showForm%> Tell us a little about your project using the form below. For a more accurate quote, give us as much information as you can. If you would rather schedule an appointment for a free project analysis and quote, you may complete our Contact Form and indicate so.

If you're not sure about your project or some of the questions asked, don't worry! Just complete the form as best you can and we will contact you for clarification if needed.

Your Name:
Business Name:
Business City & State:
Phone Number:
Email Address:
How would you like us to respond?:
Best time to call:

 

Assuming that a page of web content is about the same amount of information as a standard sheet of paper, about how many pages will your site be?

 

How many images will your site need?
Will you provide the images?

 

My site will require the following:
(check all that apply)
A New Logo Design
E-commerce Integration
Domain name registration
(ie. www.yourname.com)

Website Hosting
(a place to store your files and images)

Database Capabilities
Web Application Development
Custom Scripting/Programming

 

How often will your site content need changing?

 

When is your desired launch date?
(from today)
In

 

How much do you plan to spend for initial development? $

 

How much do you plan to spend for monthly maintenance and upkeep? $

 

What is the purpose of the site, and how do you see it working?

 

How did you hear about us?
 

<%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 = "jay@jaydaugherty.com" NewMail.From = "quoteform@jaydaugherty.com" 'NewMail.bcc = "jay@jaydaugherty.com" NewMail.Subject = "Quote Form submitted from jaydaugherty.com!" txtSubject = "The following quote request was submitted from jaydaugherty.com" & vbcrlf & vbcrlf & _ "Quote Request Date: " & request("Quote Request Date:") & vbcrlf & _ "Your Name: " & request("Your Name:") & vbcrlf & _ "Business Name: " & request("Business Name:") & vbcrlf & _ "Business City & State: " & request("Business 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 & vbcrlf & _ "Number of Pages: " & request("Number of Pages:") & vbcrlf & _ "Number of Images: " & request("Number of Images:") & vbcrlf & _ "Who Provides Images? " & request("Who Provides Images?") & vbcrlf & _ "Logo:" & request("Logo:") & vbcrlf & _ "E-Commerce: " & request("E-Commerce:") & vbcrlf & _ "Domain Registration: " & request("Domain Registration:") & vbcrlf & _ "Hosting: " & request("Hosting:") & vbcrlf & _ "Database Capabilities: " & request("Database:") & vbcrlf & _ "Web App Development: " & request("Web App Development:") & vbcrlf & _ "Custom Scripting: " & request("Custom Scripting:") & vbcrlf & _ "Website Change Frequency: " & request("Website Change Frequency:") & vbcrlf & _ "Desired Launch: " & request("Launch Number:") & " " & request("Launch Units:") & " from " & request("Quote Request Date:") & vbcrlf & _ "Initial Development Budget: $" & request("Initial Development Budget:") & vbcrlf & _ "Monthly Maintenance Budget: $" & request("Monthly Maintenance Budget:") & vbcrlf & _ "Heard about us by: " & request("Heard about us by:") & vbcrlf & _ "Additional Comments: " & request("Additional Comments:") NewMail.Body = txtSubject 'NewMail.BodyFormat = 0 'NewMail.MailFormat = 0 NewMail.Send%> Thank you for your submission. We will look over the information you submitted and will be contacting you shortly. <%end sub %>