<% Response.Expires = 0 Dim objRS, strQuery, todayDate, codigo, strQuery2, objRS2, objConn codigo = Request.QueryString("id") if (IsNumeric(codigo)) then if (codigo = "") then Response.Redirect("class.asp") end if 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 Class.classID, Class.name, Class.description, Class.classLevel, Class.price, Class.firstDate, Class.timeStart, Class.timeEnd, Class.online, Location.locationID, Location.city, Location.state, Users.firstName, Users.userID, Users.lastName, Users.preTitle, Users.posTitle FROM Users INNER JOIN (Location INNER JOIN Class ON Location.locationID=Class.locationID) ON Users.userID=Class.instructorID WHERE Class.classID="&codigo strQuery2 = "SELECT * FROM ClassDates WHERE classID="&codigo Set objRS = objConn.Execute(strQuery) Set objRS2 = objConn.Execute(strQuery2) if objRS.EOF Then %>

Invalid Request!!!

<% else %>

<%=objRS("name")%> Level: <%=objRS("classLevel")%>
Description: <%=objRS("description")%> <% if not objRS2.EOF then objRS2.MoveFirst While not objRS2.EOF %> <% objRS2.MoveNext Wend end if %> Date Time Start Time End <% if (Not IsNull(objRS("firstDate")) AND (Not IsEmpty(objRS("firstDate")))) then Response.Write(FormatDateTime(objRS("firstDate"),1)) else Response.Write("N/A") end if %> <%=objRS("timeStart")%> <%=objRS("timeEnd")%> <%=FormatDateTime(objRS2("additionalDate"),1)%> <%=objRS2("timeStart")%> <%=objRS2("timeEnd")%> Instructor: <%=objRS("preTitle")%> <%=objRS("firstName")%> <%=objRS("lastName")%><%=objRS("posTitle")%> " target="_blank">More Details Location: <% If ((objRS("online")) AND (objRS("locationID") <> 17)) Then %> <%=objRS("city")%>, <%=objRS("state")%> " target="_blank">More Details or On-line (Live) This class can be taken live on-line with Adobe Connect on the advertised class date. To register call our office at (202) 686-8202 to make your payment. Shortly after the payment is received you will be given the link to Adobe Connect in order to attend the class. <% Else If (objRS("locationID") = 17) Then %> On-line (On Demand) This class can be taken On Demand through an on-line connection with Adobe Connect. To register call our office at (202) 686-8202 to make your payment. Shortly after the payment is received you will be given the link to Adobe Connect in order to attend the class. <% Else %> <%=objRS("city")%>, <%=objRS("state")%> " target="_blank">More Details <% End If End If %> Price: <%=FormatCurrency(objRS("price"))%>