<% Option Explicit Dim oConnect, oData, SQL, accessDB, myDSN accessDB = "data/database.mdb" myDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(accessDB) Set oConnect= Server.CreateObject("ADODB.Connection") oConnect.Open myDSN Set oData= Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM schedule" oData.Open SQL,oConnect,3,3 %> Choozy Mothers -0- Website
 
<% If NOT oData.EOF Then While NOT oData.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") oData.MoveNext Wend End If %>
Date Venue Time
" & oData("date") & "" & oData("venue") & "" & oData("time") & "

 

Keep Your Eyes Glued to this Page! NEW Dates are added frequently!!!