Wise Up Workshops
<% strToday = Now() 'SET UP DSN-LESS DATABASE CONNECTION AND ACCESS IT Set DB = Server.CreateObject("ADODB.Connection") dbPath = "DBQ=" & Server.Mappath("DataBases/WiseWorkShop.mdb") 'Response.Write dbPath & "" & vbCrLf DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " &dbPath sqlCommand = "SELECT * FROM Schedule" sqlCommand = sqlCommand + " WHERE WSDate >= #" &strToday& "#" sqlCommand = sqlCommand + " ORDER BY WSDate, WSTime" 'response.Write sqlCommand & "sqlCommand" & vbCrLf 'response.Write(strKey) Set dbRs = DB.Execute(sqlCommand) %>
| DATE | SUBJECT | TIME | ROOM |
| <%=dbRS.Fields("WSDate")%> | <%=dbRS.Fields("Subject")%> | <%=dbRS.Fields("WSTime")%> | <%=dbRS.Fields("Room")%> |
|
No Wise Up session are currently scheduled. Please check again soon. |
|||