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.
<%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%>
