Reporting the Quiz Results to a local server

2 questions: I would like to have the date the quiz was taken displayed when viewing results from the Quiz Results Analyzer but I don’t see it. Am I missing something? How can I have them display?

Also, my IT guys tell me the scripts shipped with Captivate don’t work with Linux without customization. Will this be offered soon?

I am new to Captivate 5 and still learning.
While creating the Quiz was pretty easy, how do we also capture the learners name or id so we know “who” answered the quiz?

I am wondering how I can capture the users name when capturing the results and sending them the this web server??

Can anybody help me here??

Can anyone help me with the solution to disable/ customize the ‘Post Resuts(prompting to enter name and email)’ popup that comes after a Quiz is taken ?

I have been trying to get the quiz results to post to my acrobat.com account with little success. When others post their quiz results they are requested to enter the email address and password to my account at acrobat.com. Is this how the reporting is suppose to work when using acrobat.com?

Does anyone have an ASP template for the internal server? I have spent several hours searching for one.

I just want a way to insert the scores, time taken etc into a mysql database simple right? well there are just no examples of how to accomplish this around the forums

This xml file it writes isn’t very helpful but then again i can’t even get that to work either. in Captivate 4 i used a hacked javascript file for sendmail() to post to a page and insert that into a database but that doenst’ work on 5

Having problems getting this to work myself. Each time I try posting it shows an error “No Connection” Any idea what that means? Ive tested the URL for my internal server directly and it works fine.

Could any one share me the modified internalserverreporting.php file. If so it would be helpful for me.

Thanks in advance.

Hello,

It seems that users that receive the libnk for the quiz have to have an Acrobat.com account in order to send their results?

THank you,
Rodica

we are setting this up and need to have the full list of steps as in many of the blogs it is not straightforward. does anyone have steps to share when using the internal web server? if you have any tips on pitfalls, challenges this is most appreciated.

Can you do this in Captivate 4?
I need to get test results into a spreadsheet. If possible point me to any “step by steps”

Reason I’m having to do this – our current LMS doesn’t allow us to capture the level of detail we need – expecially for a group of people who do not have logins to our LMS right now.
Yes, we will eventually be upgrading (to OracleLMS) but I need a robust interim solution,now.
BTW – I’m not a techy and have never done JS so an a real novice
Thanks
Jenni_NT

Great post. It mentions that ASP can be used instead of PHP. Has anyone done this? Are ASP scripts available from Adobe or from the Captivate community?

Is there a way to automatically post the results without the user having to click the X on the upper right hand corner….. currently I have an assessment posted on a site, when the assessment ends the use sees his/her score and if they DO NOT click the X the score doesn’t get posted to our spreadsheet….. Can anybody help with me this?

Hello,

I just upgraded to Captivate 5.5 from Captivate 4.0. We embed our courses in our internal intranet and have set it up so that when the user clicks the submit e-mail button the score is posted to our intranet. Now that I have upgraded to 5.5 it makes the user click the “send e-mail” button twice in order for the score to post. Can you suggest how I might set up the configurations so that the user only needs to click the send e-mail button once.

The intranet programmer at our company would not like to use the internal server option because this option just sends information to a page on a web server and our courses are embedded within the intranet using JavaScript.

Any suggestions you can give so that the users don’t have to click the “send e-mail” button twice in order for the results to post would be much appreciated! Thank you!

This is my solution in VB.net . It uses three SQL tables (which is probably overkill) to store the results. One stores the post data Captivate sends on a single row, the other two “capHeaderData” and “capData” store the parsed out data from the XMLfile that gets sent. I’m supplying scripts to create all the tables at the end also.

This is the code behind of a blank page I called captivateresults.aspx . I sent the Internal Reporting to this page which is hosted on the company Intranet. It collects the data captivate sends, then records it in capResults, then takes the XML file and parses it out into the other two tables, a header and a data table for the questions themselves.

You will need to replace “incIntranet.pubConnStringIntranet” with a connection string to your database that works in your

environment probably somethign like “Data Source=MYSQLINSTANCENAME;Initial Catalog=MYDATABASENAME;User Id=MYUSERNAME;

Password=MYPASSWORD”

*******************************************

Imports System.Data
Imports System.Data.SqlClient
Imports System
Imports System.Xml

Partial Class captivateresults
Inherits System.Web.UI.Page

Public incIntranet As New classIntranet

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

‘This page is called from Adobe Captivate. The quiz reults are sent in as a Post to this page.
‘This page then loops through the request.params and and stores the data which is several fields a
‘and a file which should be in XML. This data is inserted as a row in a capQuizResults table.

Dim strListofVars As String = “”
Dim strListofFormVars As String = “”
Dim strCompanyName As String = “”
Dim strDepartmentName As String = “”
Dim strCourseName As String = “”
Dim strFilename As String = “”
Dim strFiledata As String = “”
Dim strFileUpload As String = “”

‘Request.Params goes combines all variables, Querystring, Post, Server
For Each strPost As String In Request.Params

‘If InStr(strPost, Request.ServerVariables()) = 0 Then

‘End If
strListofVars = strListofVars & strPost & ” | “
Response.Write(“” & strPost & “:” & Request(strPost).ToString & “”)

Select Case strPost

Case “CompanyName”
strCompanyName = Request(strPost).ToString
Case “DepartmentName”
strDepartmentName = Request(strPost).ToString
Case “CourseName”
strCourseName = Request(strPost).ToString
Case “Filename”
strFilename = Request(strPost).ToString
Case “Filedata”
strFiledata = Request(strPost).ToString
Case “Upload”
strFileUpload = Request(strPost).ToString
End Select

Next

For Each strPost As String In Request.Form
strListofFormVars = strListofFormVars & strPost & ” | “
Next

‘Insert into table and return the newly created ID

Dim myConnection As New SqlConnection(incIntranet.pubConnStringIntranet)
Dim strUpdateString As String = “INSERT INTO capResults (capResultsListOfVars, capResultsListOfFormVars,

capResultsCompanyName, capResultsDepartmentName, capResultsCourseName, capResultsFileName, capResultsFileData,

capResultsFileUpload) VALUES (@ListOfVars, @ListOfFormVars, @CompanyName, @DepartmentName, @CourseName, @FileName,

@FileData, @FileUpload); SELECT SCOPE_IDENTITY() as NewID “
Dim da As SqlDataAdapter = New SqlDataAdapter(strUpdateString, myConnection)

‘Dim myCommand As New SqlCommand(strUpdateString, myConnection)
da.SelectCommand.Parameters.Add(New SqlParameter(“@ListOfVars”, strListofVars))
da.SelectCommand.Parameters.Add(New SqlParameter(“@ListOfFormVars”, strListofFormVars))
da.SelectCommand.Parameters.Add(New SqlParameter(“@CompanyName”, strCompanyName))
da.SelectCommand.Parameters.Add(New SqlParameter(“@DepartmentName”, strDepartmentName))
da.SelectCommand.Parameters.Add(New SqlParameter(“@CourseName”, strCourseName))

‘da.SelectCommand.Parameters.Add(New SqlParameter(“@LearnerName”, strCourseName))
‘da.SelectCommand.Parameters.Add(New SqlParameter(“@LessonName”, strCourseName))

da.SelectCommand.Parameters.Add(New SqlParameter(“@Filename”, strFilename))
da.SelectCommand.Parameters.Add(New SqlParameter(“@Filedata”, strFiledata))
da.SelectCommand.Parameters.Add(New SqlParameter(“@FileUpload”, strFileUpload))

Dim dt As New DataTable
da.Fill(dt)

Dim intNewID As Int64 = dt.Rows(0).Item(“NewID”)

‘From the XML , insert records for each questions for this ResultsID

Dim strXML As New XmlDocument
‘strXML.LoadXml(dt.Rows(0).Item(“capResultsFileData”))
strXML.LoadXml(strFiledata)

‘Dim strXML As New XmlDocument
”strXML.LoadXml(dt.Rows(0).Item(“capResultsFileData”))
‘strXML.LoadXml(strFiledata)

‘Course
Dim strXMLCompany As String = strXML.GetElementsByTagName(“CompanyName”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLDepartment As String =

strXML.GetElementsByTagName(“DepartmentName”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLCourseName As String = strXML.GetElementsByTagName(“CourseName”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLLearnerName As String =

strXML.GetElementsByTagName(“LearnerName”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLLearnerID As String = strXML.GetElementsByTagName(“LearnerID”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLLessonName As String = strXML.GetElementsByTagName(“LessonName”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLQuizAttempts As String =

strXML.GetElementsByTagName(“QuizAttempts”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLTotalQuestions As String =

strXML.GetElementsByTagName(“TotalQuestions”).Item(0).Attributes.ItemOf(“value”).Value

‘Core Data
Dim strXMLStatus As String = strXML.GetElementsByTagName(“Status”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLLocation As String = strXML.GetElementsByTagName(“Location”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLRawScore As String = strXML.GetElementsByTagName(“RawScore”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLMaxScore As String = strXML.GetElementsByTagName(“MaxScore”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLMinScore As String = strXML.GetElementsByTagName(“MinScore”).Item(0).Attributes.ItemOf(“value”).Value
Dim strXMLSessionTime As String =

strXML.GetElementsByTagName(“SessionTime”).Item(0).Attributes.ItemOf(“value”).Value

‘Dim nInteractions As XmlNode = strXML.GetElementsByTagName(“InteractionData”)
‘Response.Write(nInteractions.Name & “”)

strUpdateString = “INSERT INTO capDataHeader (capResultsID, capDataHeaderCompanyName, capDataHeaderDepartmentName,

capDataHeaderCourseName, capDataHeaderLearnerName, capDataHeaderLearnerID, capDataHeaderLessonName,

capDataHeaderQuizAttempts, capDataHeaderTotalQuestions, capDataHeaderStatus, capDataHeaderLocation, capDataHeaderRawScore,

capDataHeaderMaxScore, capDataHeaderMinScore, capDataHeaderSessionTime) ” & _
“VALUES (@capResultsID, @strXMLCompany, @strXMLDepartment, @strXMLCourseName, @strXMLLearnerName, @strXMLLearnerID,

@strXMLLessonName, @strXMLQuizAttempts, @strXMLTotalQuestions, ” & _
” @strXMLStatus, @strXMLLocation, @strXMLRawScore, @strXMLMaxScore, @strXMLMinScore, @strXMLSessionTime); SELECT

SCOPE_IDENTITY() as NewHeaderID “
da = New SqlDataAdapter(strUpdateString, myConnection)

‘Dim myCommand As New SqlCommand(strUpdateString, myConnection)
da.SelectCommand.Parameters.Add(New SqlParameter(“@capResultsID”, intNewID))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLCompany”, strXMLCompany))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLDepartment”, strXMLDepartment))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLCourseName”, strXMLCourseName))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLLearnerName”, strXMLLearnerName))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLLearnerID”, strXMLLearnerID))

da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLLessonName”, strXMLLessonName))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLQuizAttempts”, strXMLQuizAttempts))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLTotalQuestions”, strXMLTotalQuestions))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLStatus”, strXMLStatus))

da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLLocation”, strXMLLocation))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLRawScore”, strXMLRawScore))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLMaxScore”, strXMLMaxScore))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLMinScore”, strXMLMinScore))
da.SelectCommand.Parameters.Add(New SqlParameter(“@strXMLSessionTime”, strXMLSessionTime))

dt = New DataTable
da.Fill(dt)

Dim intNewHeaderID As Int64 = dt.Rows(0).Item(“NewHeaderID”)

Dim strXMLDate As String
Dim strXMLInteractionTime As String
Dim strXMLInteractionID As String
Dim strXMLObjectiveID As String
Dim strXMLInteractionType As String
Dim strXMLCorrectResponse As String
Dim strXMLStudentResponse As String
Dim strXMLResult As String
Dim strXMLWeight As String
Dim strXMLLatency As String
Dim strXMLAttempt As String

myConnection.Open()

For Each nNode As XmlNode In strXML.GetElementsByTagName(“Interactions”)

strXMLDate = nNode.SelectSingleNode(“Date”).Attributes.ItemOf(“value”).Value.ToString
strXMLInteractionTime = nNode.SelectSingleNode(“InteractionTime”).Attributes.ItemOf(“value”).Value.ToString
strXMLInteractionID = nNode.SelectSingleNode(“InteractionID”).Attributes.ItemOf(“value”).Value
strXMLObjectiveID = nNode.SelectSingleNode(“ObjectiveID”).Attributes.ItemOf(“value”).Value
strXMLInteractionType = nNode.SelectSingleNode(“InteractionType”).Attributes.ItemOf(“value”).Value
strXMLCorrectResponse = nNode.SelectSingleNode(“CorrectResponse”).Attributes.ItemOf(“value”).Value
strXMLStudentResponse = nNode.SelectSingleNode(“StudentResponse”).Attributes.ItemOf(“value”).Value
If Not nNode.SelectSingleNode(“Result”) Is Nothing Then
strXMLResult = nNode.SelectSingleNode(“Result”).Attributes.ItemOf(“value”).Value
Else
strXMLResult = “”
End If

strXMLWeight = nNode.SelectSingleNode(“Weight”).Attributes.ItemOf(“value”).Value
strXMLLatency = nNode.SelectSingleNode(“Latency”).Attributes.ItemOf(“value”).Value
strXMLAttempt = nNode.SelectSingleNode(“Attempt”).Attributes.ItemOf(“value”).Value

strUpdateString = “INSERT INTO capData (capDataHeaderID, capDataInteractionDateTime, capDataInteractionID,

capDataObjectiveID, capDataInteractionType, capDataCorrectResponse, capDataStudentResponse, capDataResult, capDataWeight,

capDataLatency, capDataAttempt) ” & _
“VALUES (@capDataHeaderID, @capDataInteractionDateTime, @capDataInteractionID, @capDataObjectiveID,

@capDataInteractionType, @capDataCorrectResponse, @capDataStudentResponse, @capDataResult, @capDataWeight, @capDataLatency,

@capDataAttempt) “
Dim myCommand As SqlCommand = New SqlCommand(strUpdateString, myConnection)

‘Dim myCommand As New SqlCommand(strUpdateString, myConnection)
myCommand.Parameters.Add(New SqlParameter(“@capDataHeaderID”, intNewHeaderID))
myCommand.Parameters.Add(New SqlParameter(“@capDataInteractionDateTime”, CType(strXMLDate & ” ” &

strXMLInteractionTime, Date)))
myCommand.Parameters.Add(New SqlParameter(“@capDataInteractionID”, strXMLInteractionID))
myCommand.Parameters.Add(New SqlParameter(“@capDataObjectiveID”, strXMLObjectiveID))
myCommand.Parameters.Add(New SqlParameter(“@capDataInteractionType”, strXMLInteractionType))
myCommand.Parameters.Add(New SqlParameter(“@capDataCorrectResponse”, strXMLCorrectResponse))
myCommand.Parameters.Add(New SqlParameter(“@capDataStudentResponse”, strXMLStudentResponse))
myCommand.Parameters.Add(New SqlParameter(“@capDataResult”, strXMLResult))
myCommand.Parameters.Add(New SqlParameter(“@capDataWeight”, strXMLWeight))
myCommand.Parameters.Add(New SqlParameter(“@capDataLatency”, strXMLLatency))
myCommand.Parameters.Add(New SqlParameter(“@capDataAttempt”, strXMLAttempt))
myCommand.ExecuteNonQuery()

Next

myConnection.Close()

‘ foreach ($_POST as $k => $v)
‘ {
‘ if($k == “CompanyName”)
‘ {
‘ $CompanyName = $v;
‘ }
‘ if($k == “DepartmentName”)
‘ {
‘ $DepartmentName = $v;
‘ }
‘ if($k == “CourseName”)
‘ {
‘ $CourseName = $v;
‘ }
‘ if($k == “Filename”)
‘ {
‘ $Filename = $v;
‘ }
‘ if($k == “Filedata”)
‘ {
‘ If (get_magic_quotes_gpc()) Then
‘ $Filedata = stripslashes($v);
‘ Else
‘ $Filedata = $v;
‘ }
‘ }

‘$ResultFolder = “./”.”CaptivateResults”;
‘mkdir($ResultFolder);
‘$CompanyFolder = $ResultFolder.”//”.$CompanyName;
‘mkdir($CompanyFolder);
‘$DepartmentFolder = $CompanyFolder.”//”.$DepartmentName;
‘mkdir($DepartmentFolder);
‘$CourseFolder = $DepartmentFolder.”//”.$CourseName;
‘mkdir($CourseFolder);
‘$FilePath = $CourseFolder.”//”.$Filename;
‘$Handle = fopen($FilePath, ‘w’);
‘fwrite($Handle, $Filedata);
‘fclose($Handle);

End Sub
End Class

***************************************************

This is the sql scripts I used to create the tables involved. You will have to change “IntranetWeb” to the name of your

database:

USE [IntranetWeb]
GO

/****** Object: Table [dbo].[capResults] Script Date: 05/08/2012 15:45:58 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

SET ANSI_PADDING ON
GO

CREATE TABLE [dbo].[capResults](
[capResultsID] [int] IDENTITY(1,1) NOT NULL,
[capResultsDate] [datetime] NOT NULL,
[capResultsListOfVars] [varchar](5000) NULL,
[capResultsListOfFormVars] [varchar](5000) NULL,
[capResultsCompanyName] [varchar](50) NULL,
[capResultsDepartmentName] [varchar](50) NULL,
[capResultsCourseName] [varchar](50) NULL,
[capResultsFileName] [varchar](50) NULL,
[capResultsFileData] [varchar](max) NULL,
[capResultsFileUpload] [varchar](max) NULL,
CONSTRAINT [PK_capResults] PRIMARY KEY CLUSTERED
(
[capResultsID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS =

ON) ON [PRIMARY]
) ON [PRIMARY]

GO

SET ANSI_PADDING OFF
GO

ALTER TABLE [dbo].[capResults] ADD CONSTRAINT [DF_capResults_capResultsDate] DEFAULT (getdate()) FOR [capResultsDate]
GO

USE [IntranetWeb]
GO

/****** Object: Table [dbo].[capDataHeader] Script Date: 05/08/2012 15:46:02 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

SET ANSI_PADDING ON
GO

CREATE TABLE [dbo].[capDataHeader](
[capDataHeaderID] [int] IDENTITY(1,1) NOT NULL,
[capResultsID] [int] NULL,
[capDataHeaderCompanyName] [varchar](50) NULL,
[capDataHeaderDepartmentName] [varchar](50) NULL,
[capDataHeaderCourseName] [varchar](50) NULL,
[capDataHeaderLearnerName] [varchar](50) NULL,
[capDataHeaderLearnerID] [varchar](50) NULL,
[capDataHeaderLessonName] [varchar](50) NULL,
[capDataHeaderQuizAttempts] [int] NULL,
[capDataHeaderTotalQuestions] [int] NULL,
[capDataHeaderStatus] [varchar](50) NULL,
[capDataHeaderLocation] [varchar](50) NULL,
[capDataHeaderRawScore] [int] NULL,
[capDataHeaderMaxScore] [int] NULL,
[capDataHeaderMinScore] [int] NULL,
[capDataHeaderSessionTime] [datetime] NULL,
CONSTRAINT [PK_capDataHeader] PRIMARY KEY CLUSTERED
(
[capDataHeaderID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS =

ON) ON [PRIMARY]
) ON [PRIMARY]

GO

SET ANSI_PADDING OFF
GO

USE [IntranetWeb]
GO

/****** Object: Table [dbo].[capData] Script Date: 05/08/2012 15:46:07 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

SET ANSI_PADDING ON
GO

CREATE TABLE [dbo].[capData](
[capDataID] [bigint] IDENTITY(1,1) NOT NULL,
[capDataHeaderID] [int] NOT NULL,
[capDataInteractionDateTime] [datetime] NOT NULL,
[capDataInteractionID] [int] NULL,
[capDataObjectiveID] [varchar](50) NULL,
[capDataInteractionType] [varchar](50) NULL,
[capDataCorrectResponse] [varchar](50) NULL,
[capDataStudentResponse] [varchar](50) NULL,
[capDataResult] [varchar](50) NULL,
[capDataWeight] [int] NULL,
[capDataLatency] [datetime] NULL,
[capDataAttempt] [int] NULL,
CONSTRAINT [PK_capData] PRIMARY KEY CLUSTERED
(
[capDataID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS =

ON) ON [PRIMARY]
) ON [PRIMARY]

GO

SET ANSI_PADDING OFF
GO

Does the Quiz Results include information about the test taker like an email address or name?