home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch39 / NewCourse.asp < prev    next >
Encoding:
Text File  |  1997-07-14  |  2.0 KB  |  73 lines
  1. <html>
  2. <%
  3.  
  4. Set Conn = Server.CreateObject("ADODB.Connection")
  5.  
  6. SQL = "Select * From Category"
  7.  
  8. Set RSCategory = Conn.Execute(SQL)
  9.  
  10. %>
  11. <head>
  12. <title>New Course</title>
  13. </head>
  14. <body bgcolor="#FFFFFF">
  15. <h1>Add Course</h1>
  16. <form action="AddCourse.asp" method="POST" name="New Course">
  17.     <table border="0">
  18.         <tr>
  19.             <td><strong>Category:</strong></td>
  20.             <td><select name="Category" size="1">
  21. <%Do While Not RSCategory.EOF
  22.                 <option value="<%=RSCategory("ID")%>"><%=RSCategory("name")%></option>
  23. <%
  24.     RSCategory.MoveNext
  25. Loop
  26.  
  27. RSCategory.Close
  28.  
  29. %>
  30.             </select></td>
  31.         </tr>
  32.         <tr>
  33.             <td><strong>Number:</strong></td>
  34.             <td><input type="text" size="5" name="Number"></td>
  35.         </tr>
  36.         <tr>
  37.             <td width="80"><strong>Title:</strong></td>
  38.             <td><input type="text" size="50" name="Title"></td>
  39.         </tr>
  40.         <tr>
  41.             <td valign="top"><strong>Description:</strong></td>
  42.             <td><textarea name="Description" rows="2"
  43.         cols="50"></textarea></td>
  44.         </tr>
  45.         <tr>
  46.             <td valign="top"><strong>Audience:</strong></td>
  47.             <td><textarea name="Audience" rows="2"
  48.         cols="50"><%=RSCourse("Audience")%></textarea></td>
  49.         </tr>
  50.         <tr>
  51.             <td valign="top"><strong>Prerequisites:</strong></td>
  52.             <td><textarea name="Prerequisites" rows="2"
  53.         cols="50"></textarea></td>
  54.         </tr>
  55.         <tr>
  56.             <td><strong>Cost:</strong></td>
  57.             <td><input type="text" size="20" name="Cost"></td>
  58.         </tr>
  59.         <tr>
  60.             <td><strong>Duration:</strong></td>
  61.             <td><input type="text" size="20" name="Duration"></td>
  62.         </tr>
  63.         <tr>
  64.             <td> </td>
  65.             <td><p align="right"><input type="submit"
  66.             name="Submit" value="Add"></p>
  67.             </td>
  68.         </tr>
  69.     </table>
  70. </form>
  71. </body>
  72. </html>
  73.