home *** CD-ROM | disk | FTP | other *** search
/ sau9.org / sau9.org.zip / sau9.org / mathapp / page1.asp < prev    next >
Text File  |  2002-12-04  |  4KB  |  127 lines
  1.  
  2. <% Response.ExpiresAbsolute = Now() - 1 %>
  3. <HTML>
  4. <head>
  5. <title> Login Verification
  6. </title>
  7.  
  8.  
  9.  
  10. </HEAD>
  11.  
  12.  
  13. <body>
  14.  
  15.  
  16. <%
  17. Dim csdConn
  18. Dim filePath
  19.  
  20. filePath = Server.MapPath("math_proj.mdb")
  21. set csdConn=server.createObject("ADODB.connection")
  22. csdConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
  23.  
  24.  
  25. Dim csdRS
  26.  
  27. set pw =request("pw")
  28. set id = request ("id")
  29.  
  30.  sql="SELECT tblStudent.idStudent,  tblStudent.txtFName, tblStudent.pwStudent, tblPerformance.cntPlaceAttempt, tblperformance.cntOPerBAttempt, tblperformance.cntOperIAttempt, tblperformance.cntOperAAttempt, tblperformance.intstatus, tblStatusDescr.description  FROM tblStudent INNER JOIN (tblStatusDescr INNER JOIN tblPerformance ON tblStatusDescr.idStatusNum = tblPerformance.intStatus) ON tblStudent.idStudent = tblPerformance.idStudent where tblstudent.idstudent="
  31.  
  32.  sql=sql & id
  33.  
  34.  
  35. 'response.write sql
  36.  
  37. set csdRS=csdConn.execute(sql)
  38. idStudent=id
  39. Password=csdRs("pwStudent")
  40. txtFname=csdRs("txtFname")
  41. cntPlaceAttempt=csdRS("cntPlaceAttempt")
  42. intstatus=csdRS("intstatus")
  43. cntOperBAttempt=csdRS("cntOperBAttempt")
  44. cntOperIAttempt=csdRS("cntOperIAttempt")
  45. cntOperAAttempt=csdRS("cntOperAAttempt")
  46. descr=csdRS("description")
  47. if pw=Password then
  48. csdConn.close
  49. set csdRs=nothing
  50.  
  51.  
  52. %>
  53. <table width="90%" border="0">
  54.   <tr>
  55.     <td><font face="Arial"> <font size="6">Mathworks <br>
  56.        </font></font></td>
  57.     <td>
  58.       <div align="center"><img src="math.gif" width="177" height="141"></div>
  59.     </td>
  60.   </tr>
  61. </table>
  62. <%
  63. 'response.write cntOperBAttempt & "<P>"
  64. 'response.write idStudent
  65. 'response.write "  Password from table=" & password
  66. 'response.write " intStatus= " & intstatus
  67. 'response.write "<p>"
  68. 'response.write cntOperBAttempt & "<P>"
  69. response.write "<font face=tahoma size=5>Hello " & txtFName & "! Glad you could make it! <br><font size=3> Your status:"
  70. response.write descr
  71. Select case intStatus
  72.     case 1
  73.     
  74. response.write "<form action=place_tut.asp method=post>"
  75. response.write "<input type=hidden name=level value="
  76. response.write cntPlaceAttempt
  77. response.write "><input type=hidden name=idStudent value="
  78. response.write idStudent & "><input type=hidden name=intstatus value="
  79. response.write intstatus 
  80. response.write "><input type=submit value=Continue></form>"
  81.  
  82.     case 2
  83. response.write "<form action=dec_add.asp method=post>"
  84. response.write "<input type=hidden name=level value="
  85. response.write cntOPerBAttempt
  86. response.write "><input type=hidden name=idStudent value="
  87. response.write idStudent & "><input type=hidden name=intstatus value="
  88. response.write intstatus
  89. response.write "><input type=submit value=Continue></form>"
  90.  
  91. case 3
  92. response.write "<form action=dec_add.asp method=post>"
  93. response.write "<input type=hidden name=level value="
  94. response.write cntOPerIAttempt
  95. response.write "><input type=hidden name=idStudent value="
  96. response.write idStudent & "><input type=hidden name=intstatus value="
  97. response.write intstatus
  98. response.write "><input type=submit value=Continue></form>"
  99.  
  100. case 4
  101. response.write "<form action=dec_add.asp method=post>"
  102. response.write "<input type=hidden name=intplaceAttempt value="
  103. response.write cntOPerAAttempt
  104. response.write "><input type=hidden name=idStudent value="
  105. response.write idStudent & "><input type=hidden name=intstatus value="
  106. response.write intstatus
  107. response.write "><input type=submit value=Continue></form>"
  108.  
  109. case 5 
  110. response.write " <br>All modules completed"
  111.  
  112. case else
  113. response.write "Error"
  114. end select
  115.  
  116.  
  117. else 
  118. response.write "<font face=Tahoma color=red size=4>Oops, incorrect password, please press the back button and try again!"
  119.  
  120. end if
  121.  
  122.  
  123. %></body>
  124.  
  125.  
  126. </html>
  127.