home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch39 / details.asp < prev    next >
Encoding:
Text File  |  1997-07-14  |  826 b   |  42 lines
  1. <html>
  2. <%
  3.  
  4. Set Conn = Server.CreateObject("ADODB.Connection")
  5.  
  6. Conn.Open "DSN=LocalTraining"
  7.  
  8. SQL = "Select Course.* From Course Where Course.ID=" & Request.QueryString("ID")
  9.  
  10. Set RSCourse = Conn.Execute(SQL)
  11.  
  12. %>
  13. <head>
  14. <title><%=RSCourse("Title")%></title>
  15. </head>
  16.  
  17. <body bgcolor="#FFFFFF">
  18.  
  19. <p>
  20.     <font color="#FF0000" size="4" face="Verdana">
  21.         <strong><%=RSCourse("Number")%></strong>
  22.     </font>
  23.     <font color="#000000" size="4" face="Verdana">
  24.         <strong><%=RSCourse("Title")%></strong>
  25.     </font>
  26. </p>
  27.  
  28. <p><%=RSCourse("Description")%></p>
  29.  
  30. <p><strong>Audience:</strong><%=" " & RSCourse("Audience")%></p>
  31.  
  32. <p><strong>Prerequisites:</strong><%=" " & RSCourse("Prerequisites")%></p>
  33.  
  34. <p><strong>Duration:</strong><%=" " & RSCourse("Duration")%></p>
  35.  
  36. <%
  37. RSCourse.Close
  38. %>
  39.  
  40. </body>
  41. </html>
  42.