questa è la seconda parte del messaggio leggere prima la parte 1 (nel precedente 3d non ci entrava.....)


--------------------------------------------------------------------
pagina results.asp
---------------------------------------------------------------------

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim sessionInfo__MMColParam
sessionInfo__MMColParam = "0"
if (Request.QueryString("aicc_sid") <> "") then sessionInfo__MMColParam = Request.QueryString("aicc_sid")
%>
<%
set sessionInfo = Server.CreateObject("ADODB.Recordset")
sessionInfo.ActiveConnection = MM_LearningSite_STRING
sessionInfo.Source = "SELECT UserID, ActivityID FROM Session_IDs WHERE SessionID = " + Replace(sessionInfo__MMColParam, "'", "''") + ""
sessionInfo.CursorType = 0
sessionInfo.CursorLocation = 2
sessionInfo.LockType = 3
sessionInfo.Open()
sessionInfo_numRows = 0
%>
<% UserID = (sessionInfo.Fields.Item("UserID").Value)
ActivityID = (sessionInfo.Fields.Item("ActivityID").Value)
%>
<%
set UserInfo = Server.CreateObject("ADODB.Recordset")
UserInfo.ActiveConnection = MM_LearningSite_STRING
UserInfo.Source = "SELECT * FROM Student_Data WHERE UserID = '" + (sessionInfo.Fields.Item("UserID").Value) + "';"
UserInfo.CursorType = 0
UserInfo.CursorLocation = 2
UserInfo.LockType = 3
UserInfo.Open()
UserInfo_numRows = 0
%>
<%
set ActivityInfo = Server.CreateObject("ADODB.Recordset")
ActivityInfo.ActiveConnection = MM_LearningSite_STRING
ActivityInfo.Source = "SELECT * FROM Activities WHERE ActivityID = '" + (sessionInfo.Fields.Item("ActivityID").Value) + "'"
ActivityInfo.CursorType = 0
ActivityInfo.CursorLocation = 2
ActivityInfo.LockType = 3
ActivityInfo.Open()
ActivityInfo_numRows = 0
%>
<%
set ActivityStatus = Server.CreateObject("ADODB.Recordset")
ActivityStatus.ActiveConnection = MM_LearningSite_STRING
ActivityStatus.Source = "SELECT * FROM Activity_Status WHERE ActivityID = '" + (sessionInfo.Fields.Item("ActivityID").Value) + "' AND UserID = '" + (sessionInfo.Fields.Item("UserID").Value) + "';"
ActivityStatus.CursorType = 0
ActivityStatus.CursorLocation = 2
ActivityStatus.LockType = 3
ActivityStatus.Open()
ActivityStatus_numRows = 0
%>
<%
set ActivityDetail = Server.CreateObject("ADODB.Recordset")
ActivityDetail.ActiveConnection = MM_LearningSite_STRING
ActivityDetail.Source = "SELECT * FROM Activity_Detail WHERE ActivityID = '" + (sessionInfo.Fields.Item("ActivityID").Value) + "' AND UserID = '" + (sessionInfo.Fields.Item("UserID").Value) + "';"
ActivityDetail.CursorType = 0
ActivityDetail.CursorLocation = 2
ActivityDetail.LockType = 3
ActivityDetail.Open()
ActivityDetail_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
ActivityDetail_numRows = ActivityDetail_numRows + Repeat1__numRows
%>
<script language=JavaScript RUNAT=SERVER>
function URLDecode(encString){
var repPlus = /\+/g;
return unescape(String(encString).replace(repPlus, " "));
}
</script>
<html>
<head>
<title>Student Summary</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<table width="100%" border="0" align="center">
<tr valign="top">
<td colspan="4">
<table width="100%" border="0">
<tr>
<td rowspan="5" valign="top" name="results">[img]images/results.gif[/img]</td>
<td><font face="Arial, Helvetica, sans-serif" size="+1"><%=(UserInfo.Fields.Item("FirstName").Value)%>&nbs p<%=(UserInfo.Fields.Item("MiddleName").Value)%><% =(UserInfo.Fields.Item("LastName").Value)%></font></td>
</tr>
<tr>
<td><font face="Arial, Helvetica, sans-serif"><%=URLDecode(ActivityInfo.Fields.Item("ActivityNam e").Value)%></font></td>
</tr>
<tr>
<td><font face="Arial, Helvetica, sans-serif">Total Score: <%=(ActivityStatus.Fields.Item("Score").Value)%> </font></td>
</tr>
<tr>
<td><font face="Arial, Helvetica, sans-serif">Total Time: <%=(ActivityStatus.Fields.Item("TotalTime").Value) %></font></td>
</tr>
<tr>
<td><font face="Arial, Helvetica, sans-serif">Last Attempt:<%=(ActivityStatus.Fields.Item("ActivityDa te").Value)%></font></td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td colspan="4"></td>
</tr>
<tr valign="top">
<td colspan="4">
<table width="100%" border="1">
<tr>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="-1">Question
</font></div>
</td>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="-1">User
Response </font></div>
</td>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="-1">Result</font></div>
</td>
<td>
<div align="center"><font face="Arial, Helvetica, sans-serif" size="-1">Latency</font></div>
</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT ActivityDetail.EOF))
%>
<tr>
<td><%=(ActivityDetail.Fields.Item("Question").Val ue)%> </td>
<td><%=(ActivityDetail.Fields.Item("UserResponse") .Value)%> </td>
<td><%=(ActivityDetail.Fields.Item("Result").Value )%> </td>
<td><%=(ActivityDetail.Fields.Item("Latency").Valu e)%> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
ActivityDetail.MoveNext()
Wend
%>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
sessionInfo.Close()
%>
<%
UserInfo.Close()
%>
<%
ActivityInfo.Close()
%>
<%
ActivityStatus.Close()
%>
<%
ActivityDetail.Close()
%>