<% ' FP_ASP ASP Automatically generated by a FrontPage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("healthsciencedb_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "TestGrade", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(10) Dim arFormDBFields0(10) Dim arFormValues0(10) arFormFields0(0) = "CollegeCode" arFormDBFields0(0) = "CollegeCode" arFormValues0(0) = Request("CollegeCode") arFormFields0(1) = "Grade" arFormDBFields0(1) = "OverallTestGrade" arFormValues0(1) = Request("Grade") arFormFields0(2) = "EmailNotificationSent" arFormDBFields0(2) = "EmailNotificationSent" arFormValues0(2) = Request("EmailNotificationSent") arFormFields0(3) = "Class" arFormDBFields0(3) = "Class" arFormValues0(3) = Request("Class") arFormFields0(4) = "Comment" arFormDBFields0(4) = "Comment" arFormValues0(4) = Request("Comment") arFormFields0(5) = "Email" arFormDBFields0(5) = "Email" arFormValues0(5) = Request("Email") arFormFields0(6) = "TestID" arFormDBFields0(6) = "TestID" arFormValues0(6) = Request("TestID") arFormFields0(7) = "Firstname" arFormDBFields0(7) = "Firstname" arFormValues0(7) = Request("Firstname") arFormFields0(8) = "Assessment" arFormDBFields0(8) = "AssessmentTitle" arFormValues0(8) = Request("Assessment") arFormFields0(9) = "Lastname" arFormDBFields0(9) = "Lastname" arFormValues0(9) = Request("Lastname") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 FP_SaveFieldToDB fp_rs, Now, "DateGraded" fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "GradeAny.html",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> New Page 0

Grading of All Assignments

This page is for sole use by the instructor. The unanswered student responses to these assignments are listed below.

Responses

<% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM ResponsesGraded WHERE (LastOfTestID IS NULL AND Class = 709)" fp_sDefault="" fp_sNoRecords="No records returned." fp_sDataConn="healthsciencedb" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=1 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_sColTypes="&LastOfID1=3&LastOfTestID=3&Class=3&CollegeCode=202&Email=202&Firstname=202&Lastname=202&Topic=202&LastOfComment=203&LastOfDateGraded=135&LastOfOverallTestGrade=3&LastOfR1=202&LastOfR2=202&LastOfR3=202&LastOfR4=202&LastOfR5=202&LastOfR6=202&LastOfR7=202&LastOfR8=202&LastOfR9=202&LastOfR10=202&LastOfR11=202&LastOfR12=202&LastOfR13=202&LastOfR14=202&LastOfR15=202&LastOfR16=202&LastOfR17=202&LastOfR18=202&LastOfR19=202&LastOfR191=202&LastOfR20=202&LastOfDate=135&LastOfS1=203&LastOfS2=203&LastOfS3=203&LastOfS4=203&LastOfS5=203&LastOfS6=203&LastOfAssessmentTitle=202&" fp_iDisplayCols=40 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %>

LastOfID1: <%=FP_FieldVal(fp_rs,"LastOfID1")%>  LastOfTestID: <%=FP_FieldVal(fp_rs,"LastOfTestID")%> Class: <%=FP_FieldVal(fp_rs,"Class")%>  CollegeCode: <%=FP_FieldVal(fp_rs,"CollegeCode")%>

<%=FP_FieldVal(fp_rs,"Email")%>  <%=FP_FieldVal(fp_rs,"Firstname")%> <%=FP_FieldVal(fp_rs,"Lastname")%>

Topic: <%=FP_FieldVal(fp_rs,"Topic")%>

LastOfComment: <%=FP_FieldVal(fp_rs,"LastOfComment")%>

LastOfDateGraded: <%=FP_FieldVal(fp_rs,"LastOfDateGraded")%>

LastOfOverallTestGrade: <%=FP_FieldVal(fp_rs,"LastOfOverallTestGrade")%>

LastOfR1: <%=FP_FieldVal(fp_rs,"LastOfR1")%>

LastOfR2: <%=FP_FieldVal(fp_rs,"LastOfR2")%>

LastOfR3: <%=FP_FieldVal(fp_rs,"LastOfR3")%>

LastOfR4: <%=FP_FieldVal(fp_rs,"LastOfR4")%>

LastOfR5: <%=FP_FieldVal(fp_rs,"LastOfR5")%>

LastOfR6: <%=FP_FieldVal(fp_rs,"LastOfR6")%>

LastOfR7: <%=FP_FieldVal(fp_rs,"LastOfR7")%>

LastOfR8: <%=FP_FieldVal(fp_rs,"LastOfR8")%>

LastOfR9: <%=FP_FieldVal(fp_rs,"LastOfR9")%>

LastOfR10: <%=FP_FieldVal(fp_rs,"LastOfR10")%>

LastOfR11: <%=FP_FieldVal(fp_rs,"LastOfR11")%>

LastOfR12: <%=FP_FieldVal(fp_rs,"LastOfR12")%>

LastOfR13: <%=FP_FieldVal(fp_rs,"LastOfR13")%>

LastOfR14: <%=FP_FieldVal(fp_rs,"LastOfR14")%>

LastOfR15: <%=FP_FieldVal(fp_rs,"LastOfR15")%>

LastOfR16: <%=FP_FieldVal(fp_rs,"LastOfR16")%>

LastOfR17: <%=FP_FieldVal(fp_rs,"LastOfR17")%>

LastOfR18: <%=FP_FieldVal(fp_rs,"LastOfR18")%>

LastOfR19: <%=FP_FieldVal(fp_rs,"LastOfR19")%>

LastOfR191: <%=FP_FieldVal(fp_rs,"LastOfR191")%>

LastOfR20: <%=FP_FieldVal(fp_rs,"LastOfR20")%>

LastOfDate: <%=FP_FieldVal(fp_rs,"LastOfDate")%>

LastOfS1: <%=FP_FieldVal(fp_rs,"LastOfS1")%>

LastOfS2: <%=FP_FieldVal(fp_rs,"LastOfS2")%>

LastOfS3: <%=FP_FieldVal(fp_rs,"LastOfS3")%>

LastOfS4: <%=FP_FieldVal(fp_rs,"LastOfS4")%>

LastOfS5: <%=FP_FieldVal(fp_rs,"LastOfS5")%>

LastOfS6: <%=FP_FieldVal(fp_rs,"LastOfS6")%>

LastOfAssessmentTitle: <%=FP_FieldVal(fp_rs,"LastOfAssessmentTitle")%>

<% Dim a, b, c, d, e a=FP_FieldVal(fp_rs,"LastOfID1") b=FP_FieldVal(fp_rs,"Topic") c=FP_FieldVal(fp_rs,"Firstname") d=FP_FieldVal(fp_rs,"Lastname") e=FP_FieldVal(fp_rs,"Email") %>

Evaluation


Test ID: >    Email:   

Topic:  >

First name >  Last name >

Overall test grade 
Comment:
 
Email sent


Return to course