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) %> <% recCount = 0 Do until dbRs.EOF = True If dbRS.fields("WSType") = "WiseUp" then If recCount = 0 then %> <% end if %> <% recCount = recCount + 1 end if dbRs.movenext Loop if recCount = 0 then %> <% end if %>
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.