home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch39 / course.asp < prev    next >
Encoding:
Text File  |  1997-07-08  |  1.2 KB  |  67 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <html>
  3. <head>
  4. <title>Courses</title>
  5. </head>
  6. <%
  7.  
  8. Set conn = Server.CreateObject("ADODB.Connection")
  9. Conn.Open "DSN=LocalTraining"
  10.  
  11. SQL = "Select Course.Number, Course.Title, "
  12. SQL = SQL & "Course.Description, Category.Name as CourseGroup "
  13. SQL = SQL & "From Course,Category "
  14. SQL = SQL & "Where Course.SubGroup = Category.ID "
  15. SQL = SQL & "Order by Category.Name,Course.Title"
  16.  
  17. Set RSCourses = Conn.Execute(SQL)
  18.  
  19. CourseGroup = ""
  20.  
  21. %>
  22.  
  23. <body bgcolor="#FFFFFF">
  24.  
  25. <%
  26.  
  27. Do While Not RSCourses.EOF
  28.  
  29. %>
  30.  
  31. <%
  32. If CourseGroup <> RSCourses("CourseGroup") Then
  33.     CourseGroup = RSCourses("CourseGroup")    
  34. %>
  35.     <table width="100%" bgcolor="#000000"> 
  36.         <tr>
  37.             <td>
  38.                 <font color="#FFFFFF" size="5" face="Verdana">
  39.                     <strong><%=RSCourses("CourseGroup")%></strong>
  40.                 </font>
  41.             </td>
  42.         </tr>
  43.     </table>
  44. <%End If%>
  45.  
  46.     <p>
  47.         <font color="#FF0000" size="4" face="Verdana">
  48.             <strong><%=RSCourses("Number")%></strong>
  49.         </font>
  50.         <font color="#000000" size="4" face="Verdana">
  51.             <strong><%=RSCourses("Title")%></strong>
  52.         </font>
  53.     </p>
  54.  
  55.     <p><%=RSCourses("Description")%></p>
  56.  
  57.     <p> </p>
  58. <%
  59.     RSCourses.MoveNext
  60.  
  61. Loop
  62.  
  63. RSCourses.Close
  64. %>
  65. </body>
  66. </html>
  67.