%
dim msg(2) ' Needs to be outsde the if statement
if Request.Form("submit")="submit" then
dim p1Title, p1Name, p1Tel, p1CallBackTime
p1Title = request.form("p1Title")
p1Name = request.form("p1Name")
p1Tel = request.form("p1Tel")
p1CallBackTime = request.Form("p1CallBackTime")
tracking = request.form("tracking")
if p1Name = "" then msg(0) = "Please enter your name"
if p1Tel = "" then msg(1) = "Please enter your phone number"
if p1CallBackTime = "Please Select" then msg(2) = "Please select a callback time"
For i=0 to ubound(msg)
if msg(i)<>"" then halt = "true"
Next
if halt <> "true" then
Dim NewMailObj
Dim sMailBody
sMailBody = "Tilte : " & p1Title & vbNewLine
sMailBody = sMailBody & "Name : " & p1Name & vbNewLine
sMailBody = sMailBody & "Tel : " & p1Tel& vbNewLine
sMailBody = sMailBody & "Callback : " & p1CallBackTime& vbNewLine
sMailBody = sMailBody & "Tracking : " & tracking& vbNewLine
' First Step is to create the AspEmail message object
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.From = "sendmail@westpennine.co.uk"
Mail.AddAddress "andy@westpennine.co.uk,maija@westpennine.co.uk,moll@westpennine.co.uk,steve@westpennine.co.uk"
Mail.Subject = "West Pennine - Call Back Request"
Mail.Body = sMailBody
Mail.Username = "admin@westpennine.co.uk"
Mail.Password = "wnt_03038"
Mail.Host = "smtp.dotnetted.co.uk"
Mail.Send
Set Mail = Nothing
Response.Redirect("callback-thanks.asp")
end if
end if
%>
Callback Request - We call you. - Insurance Quotes