<% Option Explicit %>
<%
' Create the Grades connection
Set cnGrades = Server.CreateObject("ADODB.Connection")
cnGrades.ConnectionString = "DSN=InetF03_Grades"
cnGrades.Open
' Create the grades recordset
Set rsGrdInfo = CreateObject("ADODB.Recordset")
sqlQuery = "SELECT * FROM GradeInfo WHERE FirstName = '" & Request("FirstName") & "' AND LastName = '" & Request("LastName") & "'"
' Response.Write sqlQuery & "
"
rsGrdInfo.CursorLocation = 3 ' adUseClient or client-side cursor
' Open the Grades recordset
rsGrdInfo.Open sqlQuery, cnGrades
NumRecG = rsGrdInfo.RecordCount
If (NumRecG <> 1) Then
GoodToGo = 0
End If
If (GoodToGo = 1) Then
For each fld in rsGrdInfo.Fields
FieldName = fld.Name
' Response.Write FieldName & " " & Trigger & "
"
Grade = fld.Value
%>
| <%=FieldName%> |
Due date: <%=strDate%> |
<%=Grade%> |
<%
Next
%>
Call or email David Bowen if you have questions or comments.
<%
Else
Response.Write "There is a problem with this Grade Report.
"
If (NumRecC <> 1) Then
Response.Write "Either you are not in the class database, or you have mistyped your login information.
"
ElseIf (ReportsOK = 0) Then
Response.Write "Use the Course Information Form to change GradeReports to Yes.
"
End If
Response.Write "Please contact David Bowen if you need help straightening this out.
"
End If