home *** CD-ROM | disk | FTP | other *** search
/ 207.233.110.77 / 207.233.110.77.tar / 207.233.110.77 / vbasic / newacct.asp < prev    next >
Text File  |  2003-09-18  |  4KB  |  116 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <% Option Explicit %>
  3. <!-- METADATA 
  4.    TYPE="TypeLib" 
  5.    FILE="C:\Program Files\Common Files\System\ADO\msado21.tlb" 
  6. -->
  7. <!--#include file="DatabaseConnect.asp"-->
  8. <html>
  9. <head>
  10. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  11. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  12. <meta name="ProgId" content="FrontPage.Editor.Document">
  13. <title>Create a New Visual Basic Student Account</title>
  14. </head>
  15. <body>
  16. <h1>Create a New Visual Basic Student Account</h1>
  17.  
  18. <font color="#000080">
  19.  
  20. <BR>  
  21. <FORM METHOD=POST ACTION="ProcessNewAcct.asp">
  22.   Are you a CIS-40 or CIS-41 student?
  23.   <BR>
  24.   <SELECT NAME=CIS40or41>
  25.     <OPTION VALUE="CIS40">CIS-M40
  26.     <OPTION VALUE="CIS41">CIS-M41
  27.   </SELECT>
  28.   <BR>
  29.   <BR>
  30.   Who is your Instructor?
  31.   <BR>
  32.   <SELECT NAME=Teacher>
  33.   <%
  34.     Dim objRSTeacher
  35.     Dim sSQL
  36.     Dim strTmp
  37.     sSQL = "SELECT * FROM Students WHERE Security = " & vbTeacher & " ORDER BY Name;"
  38.     Set objRSTeacher = Server.CreateObject("ADODB.Recordset")
  39.     objRSTeacher.Open sSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText
  40.     objRSTeacher.MoveFirst
  41.     'If there are no Teachers, don't do anything
  42.     If Not (objRSTeacher.EOF And objRSTeacher.BOF) Then 
  43.         Do While Not objRSTeacher.EOF
  44.             %>
  45.           <OPTION VALUE="<%=objRSTeacher("name")%>"><%=objRSTeacher("name")%>
  46.             <%
  47.             objRSTeacher.MoveNext
  48.         Loop
  49.         objRSTeacher.Close
  50.         Set objRSTeacher = Nothing
  51.       End If
  52.   %>
  53.     <!--OPTION VALUE="Campbell">Campbell
  54.     <OPTION VALUE="Mills">Mills
  55.     <OPTION VALUE="Macone">Macone-->
  56.   </SELECT>
  57.   <BR>  
  58.   <BR>  
  59.   When does your class meet?
  60.   <BR>  
  61.   <INPUT TYPE=RADIO NAME=MeetDay VALUE="MonWed">  Day - Monday/Wednesday<BR>
  62.   <INPUT TYPE=RADIO NAME=MeetDay VALUE="TueThur">  Day - Tuesday/Thursday<BR>
  63.   <INPUT TYPE=RADIO NAME=MeetDay VALUE="Saturday">  Day - Saturday<BR>
  64.   <INPUT TYPE=RADIO NAME=MeetDay VALUE="TueNite">  Evening - Tuesday<BR>
  65.   <INPUT TYPE=RADIO NAME=MeetDay VALUE="WedNite">  Evening - Wednesday<BR>
  66.   <INPUT TYPE=RADIO NAME=MeetDay VALUE="ThurNite">  Evening - Thursday<BR>
  67.   <INPUT TYPE=RADIO NAME=MeetDay VALUE="FriNite">  Evening - Friday<BR>
  68.   <BR>  
  69.  </font> 
  70.  
  71. Please enter your name:
  72. <table border="0" width="250">
  73.     <TR>
  74.         <TD ALIGN="right" width="85">First name:</TD>
  75.         <TD width="175"><font size="2"><INPUT TYPE="text" NAME="First" size="23"></font></TD>
  76.     </TR>
  77. </table>
  78. <table border="0" width="250">
  79.     <TR>
  80.         <TD ALIGN="right" width="85">Last name:</TD>
  81.         <TD width="175"><font size="2"><INPUT TYPE="text" NAME="Last" size="23"></font></TD>
  82.     </TR>
  83. </table>
  84.  
  85. <br>
  86. Your account login name must be a valid email address. Your instructor
  87. will use this email address to contact you:
  88. <table border="0" width="250">
  89.     <TR>
  90.         <TD ALIGN="right" width="120">Email:</TD>
  91.         <TD width="175"><font size="2"><INPUT TYPE="text" NAME="Email" size="23"></font></TD>
  92.     </TR>
  93. </table>
  94.  
  95. <br>
  96. Your password must be at least 4 characters long, it is CaSe sensitive and may contain letters and numbers:
  97. <table border="0" width="250">
  98.     <TR>
  99.         <TD ALIGN="right" width="75">Password:</TD>
  100.         <TD width="175"><font size="2"><INPUT TYPE="text" NAME="Password" size="23"></font></TD>
  101.     </TR>
  102. </table>
  103. <INPUT TYPE="submit" VALUE="Create Account">
  104. <INPUT TYPE="Button" VALUE="Cancel" onClick="document.location='default.asp';"> 
  105. </FORM>
  106. <BR>
  107. <hr>
  108. <p>If you have questions or comments please contact me: <a href="mailto:gcampbell@moorparkcollege.edu">Guy
  109. Campbell</a></p>
  110. </body>
  111.  
  112. </html>
  113.  
  114.  
  115.  
  116.