<% 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 - Home
:: Use the navigation button to the right to browse the site ::
Number of visits:
 
Portal Page

About Us

Contact

Downloads
 
<% 'init first day of year da1="January 1, " & datepart("YYYY", date) 'convert to a computer date format da=cdate(da1) 'get current date da2=cdate(dateadd("d", 0, date)) 'how many weeks it has been this year week = datediff("ww", da, da2, 1, 1) 'if it is sunday, pretend it is next week 'if weekday(date) = 1 then week = week + 1 week = week + 1 response.write("") 'make next week, next week nextweek=week + 1 'compensate for year rollover if nextweek > 52 then nextweek = week - 52 %> Click here to book for the Leaders Dinner





Click here to book for the Leaders Dinner