|
<%
dim oConn
set oConn=Server.CreateObject("ADODB.connection")
MdbFilePath = Server.MapPath("../db/VCalendar.mdb")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
dim oRS1
set oRS1=Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM events"
oRS1.Open strSQL, oConn
Do While NOT oRS1.EOF
%>
|
