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 >
Text File  |  2003-09-18  |  2KB  |  80 lines
  1. <html>
  2. <head>
  3. <title>Moorpark College Visual Basic Student Support Home</title>
  4. </head>
  5. <body OnLoad="document.loginform.email.focus();">
  6.  
  7. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="138">
  8.   <tr>
  9.     <td width="120" background="images/left_back.gif" height="1"> </td>
  10.     <td width="88%" height="112" background="images/bodyMC.JPG">
  11.     <img border="0" src="images/topMC.JPG" hspace="8"></td>
  12.   </tr>
  13.   <tr>
  14.     <td width="120" background="images/left_back.gif" height="264"> </td>
  15.     <td width="88%" rowspan="2" height="138" background="images/bodyMC.JPG">
  16.  
  17. <HR>
  18.     <br>
  19. <%
  20. Dim dHour
  21. dHour = Hour(Now)
  22. If dHour < 12 Then
  23.     Response.Write "   Good morning on "
  24. ElseIf dHour < 17 Then
  25.     Response.Write "   Good afternoon on "
  26. Else
  27.     Response.Write "   Good evening on "
  28. End If
  29. Response.Write(Date())
  30. Response.Write(" at ")
  31. Response.Write(Time())
  32. %>
  33. <BR>
  34. <%
  35. Dim IPAddress
  36. IPAddress = Request.ServerVariables("REMOTE_ADDR")
  37. Response.Write "   Your IP Address is: " & IPAddress
  38.  
  39. 'Initialize some Session variables
  40. Session("ValidatedAdministrator") = False
  41. Session("ValidatedStudent") = False
  42. Session("NewFolderError") = False
  43. Session("UserIP") = IPAddress
  44. %>
  45.  
  46. <BR>  
  47. <FORM METHOD=POST NAME=loginform ACTION="validatelogin.asp">
  48.   <p>  
  49.   Email: <BR>
  50.     
  51.   <INPUT TYPE=TEXT NAME=email size="40">
  52.   <BR>
  53.     
  54.   Password: <BR>
  55.     
  56.   <INPUT TYPE=PASSWORD NAME=Password size="20">
  57.   <BR>
  58.     
  59.   <INPUT TYPE=SUBMIT VALUE=Login> </p>
  60. </FORM>
  61.  
  62. <HR>
  63.     <p>  
  64. <INPUT TYPE="Button" VALUE="Create New Account" onClick="document.location='newacct.asp';"> 
  65. <INPUT TYPE="Button" VALUE="I Forgot My Password" onClick="document.location='forgotpassword.asp';"> 
  66. <br>
  67.     </p>
  68. <hr>
  69. <p>   If you have questions or comments please contact me: <a href="mailto:gcampbell@moorparkcollege.edu">Guy
  70. Campbell</a></p>
  71.  
  72.     <p> </td>
  73.  </tr>
  74.  <tr>
  75.     <td width="120" height="39" background="images/left_back.gif"><img border="0" src="images/left_bottom.gif"></td>
  76.  </tr>
  77. </table>
  78.  
  79. </body>
  80. </html>