%@ LANGUAGE="VBSCRIPT" %> <% ' check the incoming user ThisSession = Request.ServerVariables("REQUEST_METHOD") If Not ThisSession = "POST" Then Response.Redirect("report_form.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") %>
ACCIDENT REPORT FORM
Department of Chemistry
University of Wisconsin-Madison
Signature: __________________________________________
Signature: __________________________________________ (date)________________
Chairman,
Chemistry Department Safety Committee
Research Labs: submit completed report to Dr. Gordon Bain,
room 1317 Chemistry
Instructional Labs: submit completed report to your Lab Director
<% response.write "Date and time this form was completed: "&date&" at "&time%>