<% Response.Expires = 0 Dim objRS, strQuery, todayDate, bColor, objConn todayDate = Date() bColor = "#FFFFFF" ' Open Connections Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=c:\sites\Single50\washingtoninst\database\classes.mdb;" _ & "Jet OLEDB:Database Password=healthcenter;" strQuery = "SELECT DISTINCT Class.classID, Class.firstDate, Class.timeStart, Class.name, Class.classLevel, Class.online, Users.lastName, Location.locationID, Location.state FROM Users INNER JOIN (Location INNER JOIN Class ON Location.locationID=Class.locationID) ON Users.userID=Class.instructorID WHERE ((((Class.firstDate)>=#"&todayDate&"#) AND (Class.online = TRUE)) OR (Class.online = TRUE AND Location.locationID = 17)) ORDER BY Class.firstDate, Class.name" Set objRS = objConn.Execute(strQuery) if Not objRS.EOF Then objRS.MoveFirst %> <% While Not objRS.EOF if (bColor = "#CCCCCC") then bColor = "#FFFFFF" else bColor = "#CCCCCC" end if %> <% objRS.MoveNext %> <% Wend %>

Date	Title	Level	Location	More
<% if (IsNull(objRS("firstDate")) or IsEmpty(objRS("firstDate"))) then Response.Write ("N/A") else Response.Write(objRS("firstDate")) end if %>	<%=objRS("name")%>	<%=objRS("classLevel")%>	<% if (objRS("locationID") = 17) then Response.Write("On-line (On Demand)") else %> " target="_blank"><%=objRS("state")%> <% If (objRS("online")) Then Response.Write(" or On-line (Live)") End If end if %>	">Details

<% Else %>

No on-line classes available!!!
Please Contact our office for futher details.
Go to Contact page

<% End If objRS.close Set objRS = Nothing objConn.close Set objConn = Nothing %>