Here is another way that points could be worked out using custom properties. First off put the values in the metadata
Metadata(en-AU, Question, label)
Q1 "Gender" categorical [1]
{
_1 "Male" [iScore = 10],
_2 "Female" [iScore = 20]
};
End Metadata
In this case Male is worth 10 points and female is worth 20. Then in your routing write a quick function to loop the results and total up the score.
Routing(Web)
Dim iTotal
Q1.Ask()
iTotal = iTotal + Score(Q1)
debug.MsgBox(ctext(iTotal))
Function Score(oQuestion)
Dim oResp,iScore
For each oResp in oQuestion.response.value
iScore = iScore + oQuestion.categories[format(oresp,"a")].properties["iScore"]
Next
Score = iScore
End Function
End Routing
Like this:
Like Loading...