<%@ LANGUAGE="VBSCRIPT" %> <% ' check the incoming user ThisSession = Request.ServerVariables("REQUEST_METHOD") If Not ThisSession = "POST" Then Response.Redirect("vinegar_report.asp") End If For each x In Request.Form If Not IsEmpty(Request.Form(x)) Then Session(x) = Request.Form(x) End If Next session("txtReviewer") = session("FirstName") & " " & session("LastName") %> Activity 1 Report

Activity 1 Report

Your answers have been formatted and displayed below. Proofread the report and print   a copy of the report. To make corrections use the back button to return to the report form. Edit the previous form and re-submit before printing.

 NameEmail Address%Contribution
Reporter: <%= session("reporter")%> <%= session("Emailreporter")%> <%= session("contributionreporter")%>
Contributor 1: <%= session("Partner1")%> <%= session("Email1")%> <%= session("contribution1")%>
Contributor 2: <%= session("Partner2")%> <%= session("Email2")%> <%= session("contribution2")%>
Contributor 3: <%= session("Partner3")%> <%= session("Email3")%> <%= session("contribution3")%>

<% response.write "Date and time this report was posted: "&date&" - "&time%>

<% If Not session("estimatereporter") = "" Then response.write("1. Each person's estimate in miles:

Reporter's estimate: " & session("estimatereporter") & "
") End If If Not session("estimate1") = "" Then response.write("Contributor 1's estimate: " & session("estimate1") & "
") End If If Not session("estimate2") = "" Then response.write("Contributor 2's estimate: " & session("estimate2") & "
") End If If Not session("estimate3") = "" Then response.write("Contributor 3's estimate: " & session("estimate3") & "
") End If %>

<% If Not session("comments") = "" Then response.write("" & session("comments") & "

") End If %>

<% If Not session("AVEestimate") = "" Then response.write("2. AVERAGE estimate in miles:" & session("AVEestimate") & "

") End If If Not session("AVEcomments") = "" Then response.write("Did all of your group members use the same number of significant figures in their estimate? How did this affect the average distance you reported?

" & session("AVEcomments") & "

") End If %>

<% If Not session("MapItmiles") = "" Then response.write("3. Distance calculated by MapIt in miles:" & session("MapItmiles") & "

") End If If Not session("MapItuncertainty") = "" Then response.write("What is the uncertainty of the distance reported by the Mapit function?

" & session("MapItuncertainty") & "

") End If If Not session("Accurate") = "" Then response.write("How accurate was your estimate?

" & session("Accurate") & "

") End If %>