<% SUB sendMail( fromWho, toWho, Subject, Body ) DIM theMessage theMessage = "Spa request" & vbCRLF &_ vbCRLF &_ "Customer Name: " & name & vbCRLF &_ "Address: " & address & vbCRLF &_ "Tel (Res.): " & home_num & vbCRLF &_ "Tel (Bus.): " & bus_num & vbCRLF &_ "E-mail: " & email & vbCRLF &_ "Description of spa: " & vbCRLF &_ "Model: " & model & vbCRLF &_ "Colour: " & colour & vbCRLF &_ "Size: " & size 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" ) ) model = TRIM( Request.Form( "model" ) ) color = TRIM( Request.Form( "color" ) ) size = TRIM( Request.Form( "size" ) ) IF toWho <> "" THEN sendMail fromWho, toWho, Subject, Body END IF %> Spa estimate request form
">
Spa estimate request
Customer name
address
telephone
home
business
e-mail
description of spa
model  
colour
size