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 >
Wrap
Text File
|
2003-09-18
|
4KB
|
116 lines
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!-- METADATA
TYPE="TypeLib"
FILE="C:\Program Files\Common Files\System\ADO\msado21.tlb"
-->
<!--#include file="DatabaseConnect.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Create a New Visual Basic Student Account</title>
</head>
<body>
<h1>Create a New Visual Basic Student Account</h1>
<font color="#000080">
<BR>
<FORM METHOD=POST ACTION="ProcessNewAcct.asp">
Are you a CIS-40 or CIS-41 student?
<BR>
<SELECT NAME=CIS40or41>
<OPTION VALUE="CIS40">CIS-M40
<OPTION VALUE="CIS41">CIS-M41
</SELECT>
<BR>
<BR>
Who is your Instructor?
<BR>
<SELECT NAME=Teacher>
<%
Dim objRSTeacher
Dim sSQL
Dim strTmp
sSQL = "SELECT * FROM Students WHERE Security = " & vbTeacher & " ORDER BY Name;"
Set objRSTeacher = Server.CreateObject("ADODB.Recordset")
objRSTeacher.Open sSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText
objRSTeacher.MoveFirst
'If there are no Teachers, don't do anything
If Not (objRSTeacher.EOF And objRSTeacher.BOF) Then
Do While Not objRSTeacher.EOF
%>
<OPTION VALUE="<%=objRSTeacher("name")%>"><%=objRSTeacher("name")%>
<%
objRSTeacher.MoveNext
Loop
objRSTeacher.Close
Set objRSTeacher = Nothing
End If
%>
<!--OPTION VALUE="Campbell">Campbell
<OPTION VALUE="Mills">Mills
<OPTION VALUE="Macone">Macone-->
</SELECT>
<BR>
<BR>
When does your class meet?
<BR>
<INPUT TYPE=RADIO NAME=MeetDay VALUE="MonWed"> Day - Monday/Wednesday<BR>
<INPUT TYPE=RADIO NAME=MeetDay VALUE="TueThur"> Day - Tuesday/Thursday<BR>
<INPUT TYPE=RADIO NAME=MeetDay VALUE="Saturday"> Day - Saturday<BR>
<INPUT TYPE=RADIO NAME=MeetDay VALUE="TueNite"> Evening - Tuesday<BR>
<INPUT TYPE=RADIO NAME=MeetDay VALUE="WedNite"> Evening - Wednesday<BR>
<INPUT TYPE=RADIO NAME=MeetDay VALUE="ThurNite"> Evening - Thursday<BR>
<INPUT TYPE=RADIO NAME=MeetDay VALUE="FriNite"> Evening - Friday<BR>
<BR>
</font>
Please enter your name:
<table border="0" width="250">
<TR>
<TD ALIGN="right" width="85">First name:</TD>
<TD width="175"><font size="2"><INPUT TYPE="text" NAME="First" size="23"></font></TD>
</TR>
</table>
<table border="0" width="250">
<TR>
<TD ALIGN="right" width="85">Last name:</TD>
<TD width="175"><font size="2"><INPUT TYPE="text" NAME="Last" size="23"></font></TD>
</TR>
</table>
<br>
Your account login name must be a valid email address. Your instructor
will use this email address to contact you:
<table border="0" width="250">
<TR>
<TD ALIGN="right" width="120">Email:</TD>
<TD width="175"><font size="2"><INPUT TYPE="text" NAME="Email" size="23"></font></TD>
</TR>
</table>
<br>
Your password must be at least 4 characters long, it is CaSe sensitive and may contain letters and numbers:
<table border="0" width="250">
<TR>
<TD ALIGN="right" width="75">Password:</TD>
<TD width="175"><font size="2"><INPUT TYPE="text" NAME="Password" size="23"></font></TD>
</TR>
</table>
<INPUT TYPE="submit" VALUE="Create Account">
<INPUT TYPE="Button" VALUE="Cancel" onClick="document.location='default.asp';">
</FORM>
<BR>
<hr>
<p>If you have questions or comments please contact me: <a href="mailto:gcampbell@moorparkcollege.edu">Guy
Campbell</a></p>
</body>
</html>