<% SUB sendMail( fromWho, toWho, Subject, Body ) DIM theMessage theMessage = "In ground pool request" & vbCRLF &_ vbCRLF &_ "Customer Name: " & name & vbCRLF &_ "Address: " & address & vbCRLF &_ "Province: " & province & vbCRLF &_ "Postal Code: " & postal & vbCRLF &_ "Tel (Res.): " & home_num & vbCRLF &_ "Tel (Bus.): " & bus_num & vbCRLF &_ "E-mail: " & email & vbCRLF &_ "Options: " & vbCRLF &_ "Size: " & size & vbCRLF &_ ladder & vbCRLF &_ main & vbCRLF &_ auto & vbCRLF &_ brom & vbCRLF &_ winter & vbCRLF &_ heater & vbCRLF &_ slide & vbCRLF &_ light & vbCRLF &_ vac & vbCRLF &_ fibresteps & vbCRLF &_ options 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" ) ) province = TRIM( Request.Form( "province" ) ) postal = TRIM( Request.Form( "postal" ) ) home_num = TRIM( Request.Form( "home_num" ) ) bus_num = TRIM( Request.Form( "bus_num" ) ) email = TRIM( Request.Form( "email" ) ) size = TRIM( Request.Form( "size" ) ) ladder = TRIM( Request.Form( "ladder" ) ) main = TRIM( Request.Form( "main" ) ) auto = TRIM( Request.Form( "auto" ) ) brom = TRIM( Request.Form( "brom" ) ) winter = TRIM( Request.Form( "winter" ) ) heater = TRIM( Request.Form( "heater" ) ) slide = TRIM( Request.Form( "slide" ) ) light = TRIM( Request.Form( "light" ) ) vac = TRIM( Request.Form( "vac" ) ) color = TRIM( Request.Form( "color" ) ) gauge = TRIM( Request.Form( "gauge" ) ) pattern = TRIM( Request.Form( "pattern" ) ) IF toWho <> "" THEN sendMail fromWho, toWho, Subject, Body END IF %> In ground pool estimate request form
">
In ground pool estimate request
Customer name
address
province
postal code
telephone
home
business
size
ladder slide
maint. pkg. pool light
auto chlorinator auto vac
brominator winter cover
fibreglass steps heater
   
other options