home *** CD-ROM | disk | FTP | other *** search
- <html>
- <%
-
- Set Conn = Server.CreateObject("ADODB.Connection")
-
- Conn.Open "DSN=LocalTraining"
-
- SQL = "Select Course.* From Course Where Course.ID=" & Request.QueryString("ID")
-
- Set RSCourse = Conn.Execute(SQL)
-
- %>
- <head>
- <title><%=RSCourse("Title")%></title>
- </head>
-
- <body bgcolor="#FFFFFF">
-
- <p>
- <font color="#FF0000" size="4" face="Verdana">
- <strong><%=RSCourse("Number")%></strong>
- </font>
- <font color="#000000" size="4" face="Verdana">
- <strong><%=RSCourse("Title")%></strong>
- </font>
- </p>
-
- <p><%=RSCourse("Description")%></p>
-
- <p><strong>Audience:</strong><%=" " & RSCourse("Audience")%></p>
-
- <p><strong>Prerequisites:</strong><%=" " & RSCourse("Prerequisites")%></p>
-
- <p><strong>Duration:</strong><%=" " & RSCourse("Duration")%></p>
-
- <%
- RSCourse.Close
-
- SQL = "Select Schedule.*,Instructor.Last_Name & ', ' & Instructor.First_Name as InstrName, "
- SQL = SQL & "Location.Name as LocName From Schedule,Instructor,Location "
- SQL = SQL & "Where (Schedule.Start_Date > Now) AND (Schedule.Course_ID=" & Request.QueryString("ID") & ") AND "
- SQL = SQL & "(Schedule.Location = Location.ID) AND (Schedule.Instructor = Instructor.ID) "
- SQL = SQL & "ORDER BY Schedule.Start_Date"
- Set RSDates = Conn.Execute(SQL)
-
- If RSDates.EOF Then
- %>
-
- <p>No Scheduled dates for this course. Contact
- <a href="mailto:training@online-can.com">
- <strong>Online</strong>
- </a>
- for more information. </p>
-
- <%Else%>
-
- <table border="0" width="100%">
- <tr>
- <td width="20%"><strong>Date</strong></td>
- <td width="30%"><strong>Location</strong></td>
- <td width="50%"><strong>Instructor</strong></td>
- </tr>
- </table>
-
- <table border="2" width="100%">
- <%
-
- Do While Not RSDates.EOF
-
- %>
- <tr>
- <td width="20%">
- <a href="registration.asp?id=<%=RSDates("Schedule_ID")%>">
- <%=RSDates("Start_Date")%>
- </a>
- </td>
- <td width="30%"><%=RSDates("LocName")%></td>
- <td width="50%"><%=RSDates("InstrName")%></td>
- </tr>
-
- <%
- RSDates.MoveNext
-
- Loop
-
- RSDates.Close
-
- End If
-
- %>
-
-
-
-
- </body>
- </html>
-