<%@language="VBscript"%>
<%
theDataBaseNameNews = Server.MapPath("/dbase/db.mdb")
theConnectionStringNews = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & theDataBaseNameNews & ";"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open theConnectionStringNews
function addReg()
SQL = "INSERT INTO Registration (thename,dateofbirth,email,houseNumber,Road,Town,County,Postcode,CompCode,CompResp,SendInfo,Refer) VALUES ('"&request("fname") & " " &request("lname") &"','"&request("day")&"/"&request("month")&"/"&request("year")&"','"&request("email")&"','"&request("address")&"','"&request("address")&"','"&request("town")&"','"&request("county")&"','"&request("postcode")&"','"&request("compcode")&"','"&request("compResp")&"','"&request("sendInfo")&"','"&request("hearAbout")&"')"
rsdata = objconn.execute(SQL)
end function
if request("theaction") = "addRegistration" then
addReg()
sendconf()
response.Redirect("register.asp?posted=1")
end if
Sub sendconf()
strMailBody = "Site registration" &vbcrlf
strMailBody = strMailBody & "Name : " & request("fname") & " " &request("lname") & vbcrlf
strMailBody = strMailBody & "Email : " & request("email") & vbcrlf
strMailBody = strMailBody & "Timestamp : " & now() & vbcrlf
SendMailCDOSYS "site@aegonmasterstennis.com","adam@amcreative.biz","new site registration",strMailBody,"88.208.201.86",""
end sub
Sub SendMailCDOSYS(strFrom,strTO,strSubject,strMailBody,sMailServer,sAttachPath)
Dim objCDOConf,objCDOSYS
' ** CREATE THE E-MAIL SERVER OBJECT **
Set objCDOSYS = CreateObject("CDO.Message")
Set objCDOConf = CreateObject ("CDO.Configuration")
' ** SET AND UPDATE FIELDS PROPERTIES **
With objCDOConf
' ** OUT GOING SMTP SERVER **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
' ** SMTP PORT **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' ** CDO PORT **
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
' ** TIMEOUT **
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
' ** UPDATE THE CDOSYS CONFIGURATION **
Set objCDOSYS.Configuration = objCDOConf
With objCDOSYS
' ** WHO THE E-MAIL IS FROM **
.From = strFrom
' ** WHO THE E-MAIL IS SENT TO **
.To = strTo
' ** THE SUBJECT OF THE E-MAIL **
.Subject = strSubject
' ** SET THE E-MAIL BODY FORMAT (HTMLBody=HTML TextBody=Plain) **
.HTMLBody = strMailBody
' ** SET Attachments If any **
If sAttachPath<>"" Then
.AddAttachMent (sAttachPath)
End if
' ** SEND THE E-MAIL **
.Send
End with
' ** CLOSE THE SERVER MAIL OBJECT **
Set objCDOSYS = Nothing
End Sub
%>
Welcome to the 2010 AEGON Masters Tennis at the Royal Albert Hall
