home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
sau9.org
/
sau9.org.zip
/
sau9.org
/
mathapp
/
student_changestatust.asp
< prev
next >
Wrap
Text File
|
2002-11-24
|
3KB
|
80 lines
<HTML>
<head>
<title> Mathworks Student Admin
</title>
</HEAD>
<body>
<table width="90%" border="0">
<tr>
<td><font face="Arial"> <font size="6">Mathworks Change Student Status<br>
</font></font></td>
<td>
<div align="center"><img src="math.gif" width="177" height="141"></div>
</td>
</tr>
</table>
<%
Dim csdConn
Dim csdStudent
filePath = Server.MapPath("math_proj.mdb")
set csdConn=server.createObject("ADODB.connection")
csdConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
%>
<%
set csdStudent=csdConn.execute ("SELECT tblStudent.idStudent, tblStudent.txtLName, tblStudent.txtFName, tblPerformance.intStatus, tblPerformance.cntPlaceAttempt, tblPerformance.cntOperBAttempt, tblPerformance.cntOperIAttempt, tblPerformance.cntOperAAttempt, tblStatusDescr.Description FROM tblStudent INNER JOIN (tblStatusDescr INNER JOIN tblPerformance ON tblStatusDescr.idStatusNum = tblPerformance.intStatus) ON tblStudent.idStudent = tblPerformance.idStudent ORDER BY tblStudent.txtLName")
%>
<table border=1><tr><td>Student ID</td><td>First Name</td><td>Last Name</td><td>Status</td><td>IntStatus<td>Place Value <br>Attempts</td><td>Beg Oper</td><td>Int Oper</td><td>Adv Oper</td></tr>
<%
response.write "<form action=student_status_conf.asp method=post>"
dim iCount
iCount=0
do while not csdStudent.EOF
id=csdStudent("idStudent")
fname=csdStudent("txtFName")
lname=csdStudent("txtLName")
statusdesc=csdStudent("description")
intStatus=csdStudent("intStatus")
placecount=csdStudent("cntPlaceAttempt")
OpBasic=csdStudent("cntOperBAttempt")
OpInt=csdStudent("cntOperIAttempt")
OpAdv=csdStudent("cntOperAAttempt")
response.write "<tr><td><input type=hidden name="
response.write iCount & ".id value='"
response.write id
response.write "'>" & id & "</td><td>"
response.write fname
response.write "</td><td>"
response.write lname
response.write "</td><td>"
response.write statusdesc
response.write "</td><td><input type=text size =3 name="
response.write iCount & ".intStatus value="
response.write intStatus & "></td><td>"
response.write "<input type=text size=3 name="
response.write iCount & ".placecount value="
response.write placecount & ">"
response.write "</td><td><input type=text size=3 name="
response.write iCount & ".opBasic value="
response.write opBasic & ">"
response.write "</td><td><input type=text size=3 name="
response.write iCount & ".opInt value="
response.write opInt & ">"
response.write "</td><td><input type=text size=3name="
response.write iCount & ".opAdv value="
response.write opAdv & ">"
response.write "</td></tr>"
iCount=iCOunt +1
csdStudent.movenext
loop
iCount=iCount - 1
response.write "</table><input type=hidden name=count value="
response.write icount & ">"
response.write "<input type=submit value='Enter the student Changes!'>"
%>