home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
207.233.110.77
/
207.233.110.77.tar
/
207.233.110.77
/
vbasic
/
default.asp
< prev
next >
Wrap
Text File
|
2003-09-18
|
2KB
|
80 lines
<html>
<head>
<title>Moorpark College Visual Basic Student Support Home</title>
</head>
<body OnLoad="document.loginform.email.focus();">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="138">
<tr>
<td width="120" background="images/left_back.gif" height="1"> </td>
<td width="88%" height="112" background="images/bodyMC.JPG">
<img border="0" src="images/topMC.JPG" hspace="8"></td>
</tr>
<tr>
<td width="120" background="images/left_back.gif" height="264"> </td>
<td width="88%" rowspan="2" height="138" background="images/bodyMC.JPG">
<HR>
<br>
<%
Dim dHour
dHour = Hour(Now)
If dHour < 12 Then
Response.Write " Good morning on "
ElseIf dHour < 17 Then
Response.Write " Good afternoon on "
Else
Response.Write " Good evening on "
End If
Response.Write(Date())
Response.Write(" at ")
Response.Write(Time())
%>
<BR>
<%
Dim IPAddress
IPAddress = Request.ServerVariables("REMOTE_ADDR")
Response.Write " Your IP Address is: " & IPAddress
'Initialize some Session variables
Session("ValidatedAdministrator") = False
Session("ValidatedStudent") = False
Session("NewFolderError") = False
Session("UserIP") = IPAddress
%>
<BR>
<FORM METHOD=POST NAME=loginform ACTION="validatelogin.asp">
<p>
Email: <BR>
<INPUT TYPE=TEXT NAME=email size="40">
<BR>
Password: <BR>
<INPUT TYPE=PASSWORD NAME=Password size="20">
<BR>
<INPUT TYPE=SUBMIT VALUE=Login> </p>
</FORM>
<HR>
<p>
<INPUT TYPE="Button" VALUE="Create New Account" onClick="document.location='newacct.asp';">
<INPUT TYPE="Button" VALUE="I Forgot My Password" onClick="document.location='forgotpassword.asp';">
<br>
</p>
<hr>
<p> If you have questions or comments please contact me: <a href="mailto:gcampbell@moorparkcollege.edu">Guy
Campbell</a></p>
<p> </td>
</tr>
<tr>
<td width="120" height="39" background="images/left_back.gif"><img border="0" src="images/left_bottom.gif"></td>
</tr>
</table>
</body>
</html>