<% SUB sendMail( fromWho, toWho, Subject, Body ) DIM theMessage theMessage = "Above ground pool request" & vbCRLF &_ vbCRLF &_ "Customer Name: " & name & vbCRLF &_ "Address: " & address & vbCRLF &_ "Tel (Res.): " & home_num & vbCRLF &_ "Tel (Bus.): " & bus_num & vbCRLF &_ "E-mail: " & email & vbCRLF &_ "Pool Model: " & model & vbCRLF &_ "Size: " & size & vbCRLF &_ "Wall: " & wall & vbCRLF &_ "Liner: " & liner & vbCRLF &_ "Ladder: " & ladder & vbCRLF &_ "Solar Blanket: " & solar & vbCRLF &_ "Winter Cover: " & winter & vbCRLF &_ "Date Required: " & re_date DIM myMail SET myMail = Server.CreateObject("CDONTS.Newmail") myMail.From = fromWho myMail.To = toWho myMail.Subject = Subject myMail.Body = theMessage myMail.Send SET myMail = Nothing END SUB fromWho = TRIM( Request.Form( "fromWho" ) ) toWho = TRIM( Request.Form( "toWho" ) ) Subject = TRIM( Request.Form( "Subject" ) ) name = TRIM( Request.Form( "name" ) ) address = TRIM( Request.Form( "address" ) ) home_num = TRIM( Request.Form( "home_num" ) ) bus_num = TRIM( Request.Form( "bus_num" ) ) email = TRIM( Request.Form( "email" ) ) model = TRIM( Request.Form( "address" ) ) size = TRIM( Request.Form( "size" ) ) wall = TRIM( Request.Form( "wall" ) ) liner = TRIM( Request.Form( "liner" ) ) ladder = TRIM( Request.Form( "ladder" ) ) solar = TRIM( Request.Form( "solar" ) ) winter = TRIM( Request.Form( "winter" ) ) re_date = TRIM( Request.Form( "re_date" ) ) IF toWho <> "" THEN sendMail fromWho, toWho, Subject, Body END IF %> Above ground pool estimate request form
">
Above ground pool estimate request
Customer name
address
telephone
home
business  

e-mail

  
description of pool and equipment (optional)
pool model  
size (approximate)
wall
liner
ladder
solar blanket
winter cover
date required