Jay=B
Nov 11th, 2000, 12:57 PM
Can anyone tell me why my data will not display in the receiving page. Both are an asp page
STUDENTGRADE.asp
<HTML>
<HEAD>
<Title>asp</Title></Head>
<Body>
<%
Dim Conn, RS, SQL, StudentID, Quiz1, Quiz2, Quiz 3, Homework1, Homework2, Homework3, Midterm
Set Conn = server.CreateObject("ADODB.Connection")
Call Conn.Open("Driver={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=a:/CPT375Project/grade.mdb" )
%>
<h3>Scores for AT 308 Fall 2000 Semester</h3>
<p>Enter the right seven characters of your student ID in the form xx-xxxx and press the Refresh button.
For example, if your student ID is 123-45-6789 then enter 45-6789.</p>
<Form method = "post" action="StudentLookup.asp">
<input type = "text" name = "SSN" size = "10" maxlength = "7">
<%
Call Conn.Close
%>
<input type = "Submit" value = "Refresh">
</Form>
</Body>
</HTML>
STUDENTLOOKUP.asp
<HTML>
<HEAD>
<TITLE>Student</Title>
</HEAD>
<Body>
<%
Dim Conn, RS, SQL, StudentID, Quiz1, Quiz2, Quiz 3, Homework1, Homework2, Homework3, Midterm
Set Conn = server.CreateObject("ADODB.Connection")
Call Conn.Open("Driver= {Microsoft Access Driver (*.mdb)}; " & _
"DBQ=a:/CPT375Project/grade.mdb" )
StudentID = Request.Form("SSN")
SQL = "SELECT * FROM Grade WHERE StudentSSN = '" & StudentID & "'"
Set RS = CONN.Execute(SQL)
%>
<h3>Raw scores for Student ID StudentID</h3>
<p>SSN: <% = RS.Fields("StudentSSN").Value %></br>
QUIZ1: <% = RS.Fields("Quiz1").Value %></br>
QUIZ2: <% = RS.Fields("Quiz2").Value %></br>
QUIZ3: <% = RS.Fields("Quiz3").Value %></br>
HOMEWORK1: <% = RS.Fields("Homework1").Value %></br>
HOMEWORK2: <% = RS.Fields("Homework2").Value %></br>
HOMEWORK3: <% = RS.Fields("Homework3").Value %></br>
MIDTERM: <% = RS.Fields("Midterm").Value %></br></p>
<%
Call RS.Close
Call Conn.close
%>
</Body>
</HTML>
Thanks in advance
STUDENTGRADE.asp
<HTML>
<HEAD>
<Title>asp</Title></Head>
<Body>
<%
Dim Conn, RS, SQL, StudentID, Quiz1, Quiz2, Quiz 3, Homework1, Homework2, Homework3, Midterm
Set Conn = server.CreateObject("ADODB.Connection")
Call Conn.Open("Driver={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=a:/CPT375Project/grade.mdb" )
%>
<h3>Scores for AT 308 Fall 2000 Semester</h3>
<p>Enter the right seven characters of your student ID in the form xx-xxxx and press the Refresh button.
For example, if your student ID is 123-45-6789 then enter 45-6789.</p>
<Form method = "post" action="StudentLookup.asp">
<input type = "text" name = "SSN" size = "10" maxlength = "7">
<%
Call Conn.Close
%>
<input type = "Submit" value = "Refresh">
</Form>
</Body>
</HTML>
STUDENTLOOKUP.asp
<HTML>
<HEAD>
<TITLE>Student</Title>
</HEAD>
<Body>
<%
Dim Conn, RS, SQL, StudentID, Quiz1, Quiz2, Quiz 3, Homework1, Homework2, Homework3, Midterm
Set Conn = server.CreateObject("ADODB.Connection")
Call Conn.Open("Driver= {Microsoft Access Driver (*.mdb)}; " & _
"DBQ=a:/CPT375Project/grade.mdb" )
StudentID = Request.Form("SSN")
SQL = "SELECT * FROM Grade WHERE StudentSSN = '" & StudentID & "'"
Set RS = CONN.Execute(SQL)
%>
<h3>Raw scores for Student ID StudentID</h3>
<p>SSN: <% = RS.Fields("StudentSSN").Value %></br>
QUIZ1: <% = RS.Fields("Quiz1").Value %></br>
QUIZ2: <% = RS.Fields("Quiz2").Value %></br>
QUIZ3: <% = RS.Fields("Quiz3").Value %></br>
HOMEWORK1: <% = RS.Fields("Homework1").Value %></br>
HOMEWORK2: <% = RS.Fields("Homework2").Value %></br>
HOMEWORK3: <% = RS.Fields("Homework3").Value %></br>
MIDTERM: <% = RS.Fields("Midterm").Value %></br></p>
<%
Call RS.Close
Call Conn.close
%>
</Body>
</HTML>
Thanks in advance