<%@ 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") %> Alum Crystals Report

Alum Crystals

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.

First Name:<%= session("FirstName")%>

Last Name: <%= session("LastName")%>

Email address: <%= session("Email")%>

Partners: <%= session("Partners")%>

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

<% ' Generate the Paragraph layout for preview If Not session("store") = "" Then response.write("

1. Where test tube was stored: " & session("store") & "

") End If If Not session("date1") = "" Then response.write("

Observations: " & session("date1") & " , ") End If If Not session("time1") = "" Then response.write(" " & session("time1") & "
") End If If Not session("obsv1") = "" Then response.write(" " & session("obsv1") & "

") End If If Not session("date2") = "" Then response.write("

Observations: " & session("date2") & " , ") End If If Not session("time2") = "" Then response.write(" " & session("time2") & "
") End If If Not session("obsv2") = "" Then response.write(" " & session("obsv2") & "

") End If If Not session("date3") = "" Then response.write("

Observations: " & session("date3") & " , ") End If If Not session("time3") = "" Then response.write(" " & session("time3") & "
") End If If Not session("obsv3") = "" Then response.write(" " & session("obsv3") & "

") End If If Not session("date4") = "" Then response.write("

Observations: " & session("date4") & " , ") End If If Not session("time4") = "" Then response.write(" " & session("time4") & "
") End If If Not session("obsv4") = "" Then response.write(" " & session("obsv4") & "

") End If If Not session("date5") = "" Then response.write("

Observations: " & session("date5") & " , ") End If If Not session("time5") = "" Then response.write(" " & session("time5") & "
") End If If Not session("obsv5") = "" Then response.write(" " & session("obsv5") & "

") End If If Not session("date6") = "" Then response.write("

Observations: " & session("date6") & " , ") End If If Not session("time6") = "" Then response.write(" " & session("time6") & "
") End If If Not session("obsv6") = "" Then response.write(" " & session("obsv6") & "

") End If If Not session("date7") = "" Then response.write("

Observations: " & session("date7") & " , ") End If If Not session("time7") = "" Then response.write(" " & session("time7") & "
") End If If Not session("obsv7") = "" Then response.write(" " & session("obsv7") & "

") End If If Not session("date8") = "" Then response.write("

Observations: " & session("date8") & " , ") End If If Not session("time8") = "" Then response.write(" " & session("time8") & "
") End If If Not session("obsv8") = "" Then response.write(" " & session("obsv8") & "

") End If If Not session("date9") = "" Then response.write("

Observations: " & session("date9") & " , ") End If If Not session("time9") = "" Then response.write(" " & session("time9") & "
") End If If Not session("obsv9") = "" Then response.write(" " & session("obsv9") & "

") End If If Not session("suggestion") = "" Then response.write("

3. Suggestions:

" & session("suggestion") & "

") End If %>

These pages are created and maintained by the Web Development Team. Last modified: 09/21/98. Send comments to genchem@chem.wisc.edu.