This page shows the ASP, VBScript and html portions of the eval.asp page.
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Dim understanding, leadership, quality, assistance, availability, reliability
Dim contribution, research, finalprep, overall, total
Dim fromname, fromemail, teammember, course, comments, firstname, space
fromname = Request.Form("txtFromName")
space = InStr(fromname, " ")
firstname = Mid (fromname, 1, space-1)
fromemail = Request.Form("txtFromEmail")
teammember = Request.Form("txtTeamMember")
course = Request.Form("txtCourse")
understanding = Request.Form("lstUnderstanding")
leadership = Request.Form("lstLeadership")
quality = Request.Form("lstQuality")
assistance = Request.Form("lstAssistance")
availability = Request.Form("lstAvailability")
reliability = Request.Form("lstReliability")
contribution = Request.Form("lstContribution")
research = Request.Form("lstResearch")
finalprep = Request.Form("lstFinalPrep")
overall = Request.Form("lstOverall")
total = Request.Form("txtTotal")
comments = Request.Form("txtComments")
set conn=Server.CreateObject("ADODB.Connection")
cs = "Provider=Microsoft.Jet.OLEDB.4.0"
cs = cs & "; data source=\\cobweb\http\cob homepages\parkerkr\peer_form\peereval.mdb"
DBConnType = "OLE DB Connection"
conn.ConnectionString = cs
conn.Open
strInsert = "insert into peerEvaluation (submitter, teamMember, course, understanding, leadership, quality, _
assistance, availability, reliability, contribution, research, finalPrep, overall, total, comments)"
strValues = " values ('" & fromname & "', '" & teammember & "', '" & course & "'," & understanding & "," & leadership & "," _
& quality & "," & assistance & "," & availability & "," & reliability & "," & contribution & "," _
& research & "," & finalprep & "," & overall & "," & total & ",'" & comments & "' )"
set objCmd = server.CreateObject("ADODB.Command")
set objCmd.ActiveConnection = conn
objCmd.CommandText = strInsert & strValues
'Response.Write strInsert & strValues
'Response.Write("<H3>Thanks " & fromname & ". You gave " & teamMember & " a " & total & "% for the project.</h3>")
objCmd.CommandType = 1
objCmd.Execute
%>
<p> </p>
<p align="center"><b><font color="#FF0000" size="6">Peer Evaluation Received!</font></b></p>
<p align="center"> </p>
<p align="center"><font size="5" color="#0000FF">Thank you for submitting a peer evaluation, </font>
<% Response.Write("<font size=""5"" color=""#0000FF""> " & firstname & ".") %> </p>
<% Response.Write("<H3 align=""center""><font size=""5"" color=""#0000FF"">
Your evaluation of " & teamMember & " totaled " & total & "% for the project.</h3>") %>
<p align="center"><font size="5" color="#0000FF">Please be sure to evaluate your own performance as well.</font></p>
<p align="center"> </p>
<p align="center"><a href="peer_test.htm"><span style="background-color: #FFFF00">
<font size="4" color="#FF0000">Back to Evaluation Form</font></span></a></p>
<p> </p>
<p align="center"><img border="0" src="analyzing_computer.gif"></p>
</BODY>
</HTML>