%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Buffer = True %>
<%
If request.Form("cmdSend").count > 0 THEN
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
strHTML = "
"
strHTML = strHTML & ""
strHTML = strHTML & "
" & "
"
strHTML = strHTML & "
"
strHTML = strHTML & "
"
strHTML = strHTML & "Message sent via the Bubble Driving School Website
"
strHTML = strHTML & ""
Const cdoSendUsingPickup = 1
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="c:\Inetpub\mailroot\pickup"
.Update
End With
Dim iBP
With iMsg
Set .Configuration = iConf
.To = "russ@bubbledrivingschool.co.uk"
.From = Request.Form("txtEmail")
.Subject = "Email - via The Bubble Driving School Website"
.HTMLBody = strHTML
.Send
End With
' Clean up variables.
Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
response.Redirect("contact_thanks.html")
End if
%>