Hello,
I am getting this error.
error '80020009'
/courseeval/business/summary1.asp, line 249
my code is
Sub GetAnswerPlus(QC)
Dim ANSWERS(), Acount
Dim QTYP
Dim X, I, J
QTYP = Question(2,QC)
' Say "Question " & QC & " has type " & QTYP & "<BR>"
SQL = "SELECT * FROM QVAL Summary WHERE QVALQTYPID = " & QTYP & ";"
Set RS = AC.Execute(SQL)
Acount = 0
Do while not(RS.EOF)
Acount = Acount + 1
ReDim Preserve ANSWERS(2, Acount)
ANSWERS(1,Acount) = RS("QVALDesc")
RS.MoveNext
Loop
' Say "Acount was " & Acount & "<BR>"
RS.Close
' Say "Count is " & COUNT & "<br>"
For X = 1 to COUNT
RESP = RESPID(X)
SQL = "SELECT * FROM Summary WHERE XFRQQUESID = " & QC & " "
SQL = SQL & " AND XFRQRESPID = " & RESP & " "
SQL = SQL & " AND QVALID <> 23;"
Set RS = AC.Execute(SQL)
' If RS.EOF Then
' Say "N/R" & "<BR>"
' Else
' Say "<b>" & RS("QVALDesc") & "</b><BR>"
' End if
For I = 1 to ACount
If RS("QVALDesc") = ANSWERS(1,I) Then ---------->error line
ANSWERS(2,I) = ANSWERS(2,I) + 1
Exit For
End If
Next
RS.Close
' Say SQL & "<br>"
Next
Say "<Table width=100% border=0>"
For I = 1 to Acount
J = CInt(ANSWERS(2,I))
Say "<TR>"
Say "<td width=50% class=left>" & ANSWERS(1,I) & "</td>"
If J > 0 then
Say "<td width=40% class=left><b>" & Int(((J)/Count)*100) & "%</b></td>"
Else
Say "<td width=40% class=left> </td>"
End if
Say "<td width=10% class=left>" & J & "</td>"
Say "</tr>"
' Say ANSWERS(1,I) & ": " & J & " " & Int(((J)/Count)*100) & "%<BR>"
Next
Say "</table>"
End Sub
Can anybody help with my code.
\\ ~ ~ //
( @ @ )
OOo-(_)-oOO
Ananda V Rajeurs
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/cd_AJB/QnQLAA/TtwFAA/saFolB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
