%
If Request.QueryString("send") = "true" Then
dim myMail
dim sBodyText
dim bMailSent
set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = request.form("txtEmail")
myMail.To = "info@thewantagegym.co.uk"
myMail.Cc = "jays@meridiantd.co.uk"
myMail.Subject = "Online enquiry from thewantagegym.co.uk"
sBodyText = "Customer Name:" & request.form("txtName")
sBodyText = sBodyText & vbCRLF & "Customer Home Phone:" & request.form("txtHomePhone")
sBodyText = sBodyText & vbCRLF & "Customer Work/Mobile Phone:" & request.form("txtWorkPhone")
sBodyText = sBodyText & vbCRLF & "Customer Address:" & request.form("txtAddress")
sBodyText = sBodyText & vbCRLF & "Membership requirement:" & request.form("cboMembership")
sBodyText = sBodyText & vbCRLF & "Comments:" & request.form("txtComments")
if request.form("chkPass") <> True then
sBodyText = sBodyText & vbCRLF & "Would like free 5 day pass and info: Yes"
else
sBodyText = sBodyText & vbCRLF & "Would like free 5 day pass and info: No"
end if
myMail.Body = sBodyText
myMail.Send
set myMail = Nothing
bMailSent = True
end if
%>
.:KA Fitness:. the new members gym in the heart of wantage