<% If (Request.Form("Submitted") = "Submitted") Then ''// this only gets executed when the ValidateFom function returns true! Meaning all conditions have been met! myName = Trim(Request.Form("yName")) myCompany = Trim(Request.Form("yCompany")) myEmail = Trim(Request.Form("emailAddress")) myNum = Trim(Request.Form("phoneNumber")) myLocation = Trim(Request.Form("location")) myProjectType = Trim(Request.Form("projectType")) myTimeline = Trim(Request.Form("timeline")) myWebBudget = Trim(Request.Form("webBudget")) myPrintBudget = Trim(Request.Form("printBudget")) myHosting = Trim(Request.Form("hosting")) myComments = Trim(Request.Form("comments")) ''// change this value to redirect to different page redirectTo = "thanku.htm" mailAdmin = "contact@stonewaterson.com" mailSubject = "Quote Request - Stone Waterson" HTMLBody = CStr("The following person has submitted a quote request on the Stone Waterson website.

") HTMLBody = CStr(HTMLBody & "Name: " & myName & "

") HTMLBody = CStr(HTMLBody & "Company Name: " & myCompany & "

") HTMLBody = CStr(HTMLBody & "Email Address: " & myEmail & "
Phone Number: " & myNum & "

") HTMLBody = CStr(HTMLBody & "Location: " & myLocation & "

Timeline: " & myTimeline & "
") HTMLBody = CStr(HTMLBody & "Project Type: " & myProjectType & "
Web Budget: " & myWebBudget & "
") HTMLBody = CStr(HTMLBody & "Print Budget: " & myPrintBudget & "
") HTMLBody = CStr(HTMLBody & "Hosting: " & myHosting & "

Comments: " & myComments & "") Dim objMail Set objMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") ''Configuration: objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort objConfig.Fields(cdoSMTPServer)="mail.stonewaterson.com " objConfig.Fields(cdoSMTPServerPort)=25 objConfig.Fields(cdoSMTPAuthenticate)=cdoBasic objConfig.Fields(cdoSendUserName)="contact@stonewaterson.com" objConfig.Fields(cdoSendPassword)="c0nt4ct" ''Update configuration objConfig.Fields.Update Set objMail.Configuration = objConfig ''// send admin email objMail.From = "contact@stonewaterson.com" objMail.To = mailAdmin objMail.Subject = mailSubject objMail.HTMLBody = HTMLBody objMail.Send ''Response.Write(HTMLBody) %> <% End If %>
Stone Waterson HomepageWeb Design & Print PortfolioAbout Stone WatersonEmail Stone Waterson

Please enter your requirements below.
We will respond within 24 hours.

Required Fields
Your Name:
Your Company Name:
Email Address:
Telephone Number:
City and Province/State:
Project Specifics
Project Type:
Web Budget:
Print or Identity Budget:
Launch Or Release Date:
Do you require site hosting:
Yes No
Comments:

See our Privacy Statement for information regarding our privacy policies and personal information security.


Stone Waterson, Inc.
5609 Dalcastle Hill NW
Calgary, Alberta
Canada, T3A 2A2

tel. 403.850.3716
email. contact@stonewaterson.com