<% Dim adoCon, RS1, RS2, RS3, RS4, RS5, RS6, dmenu set adocon = Server.CreateObject("ADODB.Connection") set RS1 = Server.CreateObject("ADODB.Recordset") set RS2 = Server.CreateObject("ADODB.Recordset") 'adocon.open "DSN=adlife" adocon.open "driver={MySQL ODBC 3.51 Driver};server=db.iserve.net.nz;uid=adam1;pwd=bbq2007;database=BOB;option=16387" %> Adventure life - Adlife Dinner Registration

Adventure Life Final Dinner Registration

<% If request.querystring("mode")="send" then %> <% waffle = "Last Name: " & request.form("lastname") & "
" waffle = waffle & "First Name: " & request.form("firstname") & "
" waffle = waffle & "Mobile #: " & request.form("mobile") & "
" waffle = waffle & "Email Address: " & request.form("email") & "
" waffle = waffle & "No. Attending: " & request.form("numattend") & "
" Set myMail=CreateObject("CDO.Message") myMail.Subject="Adlife Dinner Reg: " & request.form("lastname") & " (" & request.form("numattend") & ")" myMail.From="adlife@ihug.co.nz" myMail.To="adlife@ihug.co.nz" myMail.HTMLBody=waffle myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mx1.iserve.net.nz" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 'myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")= "" 'myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" myMail.Configuration.Fields.Update myMail.Send set myMail=nothing %> Thanks, your registration has been successfully sent.

Click here to return to the main page. <% else %> Sunday 29th March 2009, (7pm)
Gengis Khan Restaurant, East Tamaki
Please note: this is for all leaders and teenage leaders, past and present.

Last Name:
First Name:
Mobile #:
E-Mail Address:
Number of People attending:
<% End If %>