This page shows the VBScript and html portions of the peer_test.htm form.
<HTML>
<HEAD>
<TITLE>Peer Evaluation Form</TITLE>
<SCRIPT language=VBScript>
Function frmPeerEval_OnSubmit
Dim strName, strEmail, strmember, strComments, total, intIndex
Dim opt01, opt02, opt03, opt04, opt05, opt06, opt07, opt08, opt09, opt10
strName = frmPeerEval.txtFromName.Value
strEmail = frmPeerEval.txtFromEmail.Value
strMember = frmPeerEval.txtTeamMember.Value
strComments = frmPeerEval.txtComments.Value
call totalFields
intIndex = frmPeerEval.lstUnderstanding.SelectedIndex
opt01 = frmPeerEval.lstUnderstanding.Options(intIndex).Text
intIndex = frmPeerEval.lstLeadership.SelectedIndex
opt02 = frmPeerEval.lstLeadership.Options(intIndex).Text
intIndex = frmPeerEval.lstQuality.SelectedIndex
opt03 = frmPeerEval.lstQuality.Options(intIndex).Text
intIndex = frmPeerEval.lstAssistance.SelectedIndex
opt04 = frmPeerEval.lstAssistance.Options(intIndex).Text
intIndex = frmPeerEval.lstAvailability.SelectedIndex
opt05 = frmPeerEval.lstAvailability.Options(intIndex).Text
intIndex = frmPeerEval.lstReliability.SelectedIndex
opt06 = frmPeerEval.lstReliability.Options(intIndex).Text
intIndex = frmPeerEval.lstContribution.SelectedIndex
opt07 = frmPeerEval.lstContribution.Options(intIndex).Text
intIndex = frmPeerEval.lstResearch.SelectedIndex
opt08 = frmPeerEval.lstResearch.Options(intIndex).Text
intIndex = frmPeerEval.lstFinalPrep.SelectedIndex
opt09 = frmPeerEval.lstFinalPrep.Options(intIndex).Text
intIndex = frmPeerEval.lstOverall.SelectedIndex
opt10 = frmPeerEval.lstOverall.Options(intIndex).Text
If strName = "" then
MsgBox "You cannot leave the Name field blank. Please enter a name.",16, "Name Required"
frmPeerEval.txtFromName.Focus
frmPeerEval_OnSubmit = False
Exit Function
ElseIf InStr(strName, " ") = 0 then
MsgBox "Please enter both first and last names.", 16, "First and Last Name Required"
frmPeerEval.txtFromName.Focus
frmPeerEval_OnSubmit = False
Exit Function
ElseIf strMember = "" then
MsgBox "You cannot leave the Team Member field blank. Please enter a name.",16, "Team Member Required"
frmPeerEval.txtTeamMember.Focus
frmPeerEval_OnSubmit = False
Exit Function
ElseIf InStr(strMember , " ") = 0 then
MsgBox "Please enter both first and last names for team member.", 16, "First and Last Name Required"
frmPeerEval.txtTeamMember.Focus
frmPeerEval_OnSubmit = False
Exit Function
ElseIf InStr(strEmail,"@") = 0 Or InStr(strEmail,".") = 0 Or Len(strEmail) < 5 then
MsgBox "Please input a valid e-mail address containing an @ sign, a period, and at least 5 characters.", _
16, "E-Mail Address Required"
frmPeerEval.txtFromEmail.Focus
frmPeerEval_OnSubmit = False
Exit Function
ElseIf (strComments = "") then
If ((opt01 < 8) or (opt02 < 8) or (opt03 < 8) or (opt04 < 8) or (opt05 < 8) or _
(opt06 < 8) or (opt07 < 8) or (opt08 < 8) or (opt09 < 8) or (opt10 < 8)) then
MsgBox "If the team member being evaluated received less than an 8 in any area, " & _
"please enter comments to clarify your evaluation. Comments are critical to " & _
"my final assessment, especially when a team member may not be contributing " & _
"as much as they should.",16, "Comments Required"
frmPeerEval.txtComments.Focus
frmPeerEval_OnSubmit = False
Exit Function
Else
frmPeerEval.txtComments.Value = "no comment submitted"
End If
End If
End Function
Function lstUnderstanding_OnChange
call totalFields
end function
Function lstLeadership_OnChange
call totalFields
end function
Function lstQuality_OnChange
call totalFields
end function
Function lstAssistance_OnChange
call totalFields
end function
Function lstAvailability_OnChange
call totalFields
end function
Function lstReliability_OnChange
call totalFields
end function
Function lstContribution_OnChange
call totalFields
end function
Function lstResearch_OnChange
call totalFields
end function
Function lstFinalPrep_OnChange
call totalFields
end function
Function lstOverall_OnChange
call totalFields
end function
Function totalFields
Dim total, intIndex
Dim opt01, opt02, opt03, opt04, opt05, opt06, opt07, opt08, opt09, opt10
total = 0
intIndex = frmPeerEval.lstUnderstanding.SelectedIndex
opt01 = frmPeerEval.lstUnderstanding.Options(intIndex).Text
total = total + CInt(opt01)
intIndex = frmPeerEval.lstLeadership.SelectedIndex
opt02 = frmPeerEval.lstLeadership.Options(intIndex).Text
total = total + CInt(opt02)
intIndex = frmPeerEval.lstQuality.SelectedIndex
opt03 = frmPeerEval.lstQuality.Options(intIndex).Text
total = total + CInt(opt03)
intIndex = frmPeerEval.lstAssistance.SelectedIndex
opt04 = frmPeerEval.lstAssistance.Options(intIndex).Text
total = total + CInt(opt04)
intIndex = frmPeerEval.lstAvailability.SelectedIndex
opt05 = frmPeerEval.lstAvailability.Options(intIndex).Text
total = total + CInt(opt05)
intIndex = frmPeerEval.lstReliability.SelectedIndex
opt06 = frmPeerEval.lstReliability.Options(intIndex).Text
total = total + CInt(opt06)
intIndex = frmPeerEval.lstContribution.SelectedIndex
opt07 = frmPeerEval.lstContribution.Options(intIndex).Text
total = total + CInt(opt07)
intIndex = frmPeerEval.lstResearch.SelectedIndex
opt08 = frmPeerEval.lstResearch.Options(intIndex).Text
total = total + CInt(opt08)
intIndex = frmPeerEval.lstFinalPrep.SelectedIndex
opt09 = frmPeerEval.lstFinalPrep.Options(intIndex).Text
total = total + CInt(opt09)
intIndex = frmPeerEval.lstOverall.SelectedIndex
opt10 = frmPeerEval.lstOverall.Options(intIndex).Text
total = total + CInt(opt10)
frmPeerEval.txtTotal.Value = total
End Function
</SCRIPT>
</HEAD>
<BODY text=black bgColor=#ffffff>
<H2 align=center>Peer Evaluation Form</H2>
<div align="center">
<center>
<table border="0" cellspacing="0" width="98%">
<tr>
<td width="100%">
<hr>
</td>
</tr>
</table>
</center>
</div>
<B>
<P align=center>Note</B>: All fields are <FONT
color=#800000>required</FONT>.<BR>
<FONT color=#800000 size=2>Be sure to SEND your inquiry, using the button at bottom of page!</FONT></P>
<FORM name=frmPeerEval action=eval.asp method=post>
<INPUT type=hidden value="Peer Evaluation" name=subject>
<INPUT type=hidden name=next-url>
<FONT face=arial,helvetica size=2>
<div align="center">
<center>
<TABLE>
<TBODY>
<TR>
<TD>
<div align="center">
<center>
<TABLE width=610 bgColor=#ffffff border=0></FONT>
<TBODY>
<TR align=middle>
<TD align=left width=127 height=30><FONT face=arial,helvetica
color=#ff0000 size=3><B>YOUR NAME:</B></FONT></TD>
<TD align=left width=192 height=30><INPUT name=txtFromName></TD>
<TD align=left width=8 height=30></TD>
<TD align=left width=74 height=30><FONT color=#ff0000><B><FONT
face=arial,helvetica>E-MAIL:</FONT> </B></FONT></TD>
<TD align=left width=192 height=30><INPUT name=txtFromEmail></TD></TR>
<TR>
<TD align=left width=127 height=30><FONT face=arial,helvetica
color=#ff0000 size=3><B>TEAM MEMBER:</B></FONT></TD>
<TD align=left width=192 height=30><INPUT name=txtTeamMember></TD>
<TD align=left width=8 height=30></TD>
<TD align=left width=74 height=30><FONT face=arial,helvetica
color=#ff0000 size=3><B>COURSE#:</B></FONT></TD>
<TD align=left width=192 height=30><B><SELECT size=1 name=txtCourse>
<OPTION selected>CIS-480-01</OPTION>
<OPTION>CIS-480-02</OPTION></SELECT></B></TD></TR></TBODY></TABLE>
</center>
</div>
<HR align=center>
<DIV align=center>
<CENTER>
<P><FONT face=arial,helvetica color=#152dc6
size=5><B>EVALUATION:</B></FONT> <BR><FONT color=#ff0000 size=4><B>[Scale:
0=Poor ------ 10=Excellent]</B></FONT></P></CENTER></DIV>
<DIV align=center>
<CENTER>
<TABLE><B>
<TBODY>
<TR>
<TD>
<TABLE width=760 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstUnderstanding> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>Understanding of
Class Material and Concepts Involved</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstLeadership> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>Leadership/Project
Coordination</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstQuality> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>Quality of Work
(Consider both quality of ideas as well as</FONT><FONT
face=Arial color=#ff0000><FONT size=4> </FONT>preparation of
deliverables)</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstAssistance> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>Willingness to assist
other team members</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstAvailability> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000>Availability (consider
accessibility via phone and e-mail as well as meeting
attendance)</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstReliability> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000><FONT
size=3>Follow</FONT>-through (did they do what they
promised)</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstContribution> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>Amount of Input
(their "fair share" or more should rate a
10)</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstResearch> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>Research (consider
both background material as well as tools used for
presentation)</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstFinalPrep> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>Final Project
Preparation</FONT></P></DIV></TD></TR>
<TR>
<TD align=left width="10%" height=30><SELECT size=1
name=lstOverall> <OPTION selected>10</OPTION>
<OPTION>9</OPTION> <OPTION>8</OPTION> <OPTION>7</OPTION>
<OPTION>6</OPTION> <OPTION>5</OPTION> <OPTION>4</OPTION>
<OPTION>3</OPTION> <OPTION>2</OPTION> <OPTION>1</OPTION>
<OPTION>0</OPTION></SELECT></TD>
<TD align=right width="90%">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>Overall
Contribution</FONT>
</P></DIV></TD></TR></TBODY></TABLE></B></TD></TR></TBODY></TABLE>
</CENTER></DIV></TD></TR></TBODY></TABLE>
</center>
</div>
<div align="center">
<center>
<TABLE>
<TBODY>
<TR>
<TD align="right">
<div align="center">
<center>
<table border="0" cellspacing="0" width="99%">
<tr>
<td width="100%">
<hr>
</td>
</tr>
</table>
</center>
</div>
<DIV align=center>
<CENTER>
<TABLE><B>
<TBODY>
<TR>
<TD>
<TABLE width=760 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD align=right width="145" height=30><INPUT
style="FONT-WEIGHT: bold; COLOR: #ff0000; FONT-FAMILY: Arial"
size=1 name=txtTotal face="Arial" color="#FF0000" font></TD><B>
<TD align=right width="601">
<DIV align=left>
<P><FONT face=Arial color=#ff0000 size=3>
</FONT>
<font face="Arial" color="#ff0000" size="4">Total</font>
</P></DIV></TD></B></TR></TBODY></TABLE><B>
<DIV align=center>
<CENTER>
<TABLE><B>
<TBODY>
<TR>
<TD>
<hr>
</TD></TR>
<TR>
<TD>
<TABLE>
<TBODY>
<TR>
<TD>
<div align="center">
<center>
<table border="0" cellspacing="0" width="75%">
<tr>
<td width="100%"><B>
<FONT face=arial,helvetica color=#152dc6
size=5>COMMENTS:</FONT></B></td>
</tr>
<tr>
<td width="100%"><B><FONT face=arial,helvetica size=3>
If the team member being evaluated received less than
an 8 in any of the above fields, please enter comments
to clarify your evaluation. Comments are
critical to my final assessment,</FONT></B> <B>
<FONT face=arial,helvetica size=3>
especially when a team member may not be contributing
as much as they should.</FONT></B></td>
</tr>
</table>
</center>
</div>
</B></B>
<DIV align=center>
<CENTER>
<P><FONT face=ARIAL,HELVETICA size=+1>
<TEXTAREA name=txtComments rows=6 wrap=VIRTUAL cols=85></TEXTAREA></FONT>
</P></CENTER></DIV>
<DIV align=center>
<TABLE cellSpacing=0 width="50%" border=0>
<TBODY>
<TR>
<TD width="33%">
<P align=center><B><FONT face=ARIAL,HELVETICA>
<INPUT type=submit value=SEND name=cmdSend>
</FONT></B></P></TD>
<TD width="34%">
<P align=center><B><FONT face=ARIAL,HELVETICA>
<INPUT type=reset value=CLEAR></FONT> </B></P>
</TD></TR></TBODY></TABLE></DIV>
<DIV align=center><PRE><FONT face=ARIAL,HELVETICA></FONT></B></PRE></DIV>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></DIV></TD></TR></TBODY>
</TABLE></CENTER></DIV></TD></TR></TBODY></TABLE></center>
</div>
</FORM>
<P align=center> </P></BODY></HTML>