Array Values Not Set [Archive]

Nicodemas

04-22-2003, 04:08 AM

Can anyone else see why the values in my array arrQuestion is not being set with the recordset's data????





<STYLE>
body{font-family:tahoma; font-size:11px; color:000000}
#Ans {background-color:BDB76B; font-weight:heavy}
#Ques{background-color:006600; color:FFFFFF; font-weight:heavy}
</STYLE>
<P ALIGN="center"><IMG SRC="_images/PageMainQuiz.gif" WIDTH="533" HEIGHT="123">
<P>Please enter your user informaiton, and then answer the questions below. You need a minimum score of
<B>80%</B> to pass.
All fields require input. Good luck!</P>

<% If Request.QueryString("Action")="new" Then
Response.Write "<FONT COLOR='#FF0000'> The date you entered for your DEROS is not correctly formatted.</FONT>"
End If
%>


<SCRIPT SRC="/include/js_scripts/formValidate.js"></SCRIPT>

<FORM ACTION="tally.asp" METHOD="post" onSubmit="return checkrequired(this)">
<TABLE BORDER="0" CELLPADDING="3" CELLSPACING="0">
<TR>
<TD>
Rank:
</TD>
<TD>
<SELECT NAME="requiredstrRank" SIZE="1">
<%
'############# GRAB THE RANKS FROM THE tblRank FOR THE SELECT BOX #############
strSQL = "SELECT * FROM tblRank ORDER BY intControlNumber ASC"
ysnSuccess = adlExecuteSQL(strDB,strSQL,rstRank)

Do Until rstRank.EOF
Response.Write("<OPTION VALUE='" & rstRank("Rank") & "'>" & rstRank("Rank") & "</OPTION>")
rstRank.Movenext
Loop

rstRank.Close() 'close out the memory for speed
Set rstRank = Nothing

%>
</SELECT>
</TD>
</TR>
<TR>
<TD>First Name:</TD>
<TD><INPUT TYPE="text" NAME="requiredstrNameF" SIZE="20"></TD>
</TR>
<TR>
<TD>Last Name:</TD>
<TD><INPUT TYPE="text" NAME="requiredstrNameL" SIZE="20"></TD>
</TR>
<TR>
<TD>DSN Phone:</TD>
<TD><INPUT TYPE="text" NAME="requiredstrPhone" SIZE="20"></TD>
</TR>
<TR>
<TD>Unit:</TD>
<TD><INPUT TYPE="text" NAME="requiredstrUnit"></TD>
</TR>
<TR>
<TD>AFSC:</TD>
<TD><INPUT TYPE="text" NAME="requiredstrAFSC" SIZE="20"><FONT SIZE="1" COLOR="#FF0000"> Use "X" for Skill Level</FONT></TD>
</TR>
<TR>
<TD>DEROS:</TD>
<TD><INPUT TYPE="text" NAME="requiredstrDEROS" SIZE="20"><FONT SIZE="1" COLOR="#FF0000"> Format: mm/dd/yyyy</FONT></TD>
</TR>
<TR>
<TD>Email:</TD>
<TD><INPUT TYPE="text" NAME="requiredstrEmail" SIZE="20"><FONT SIZE="1" COLOR="#FF0000"> Format: first.last@base_name.af.mil</FONT></TD>
</TR>
<TR>
<TD>Network Login:</TD>
<TD><INPUT TYPE="text" NAME="requiredstrLogin" SIZE="20"></TD></TR>
</TABLE>

<DIV ALIGN="center">
<TABLE CELLPADDING="3" WIDTH="95%" CELLSPACING="0">
<TR>
<TH COLSPAN="2">
<FONT SIZE="+3">Page Maintainer Quiz</FONT>
</TH>
</TR>
<TR>
<TD ALIGN="center">
40 randomly assorted questions
</TD>
</TR>
<TR>
<TD>
<HR>
</TD>
</TR>
<%
'################################################################################################### ##################
'# USED OPENDB.ASP SO THAT OpenType IS SET AS TO ALLOW US TO RETRIEVE RecordCount. QueryDB.asp DOES NOT ##
'# ALLOW FOR THIS OPTION FOR SOME REASON. MUST REMEMBER TO LOOK INTO WHY.. AND IF AT ALL POSSIBLE, CHANGE IT. ##
'# RECORDSET = RS ##
'################################################################################################### ##################
strDB = "Maintainer_Quiz"
intDSN = 3
intOpenType = 3
strSQL = "SELECT QuestionID, Question, Answer1, Answer2, Answer3, Answer4 FROM tblQuestions"
%><%

'########################### DECLARE VARIABLES #################################################
Dim intTotalQs, intTemp0, inTemp, inTemp1, inTemp2, inTemp3, inTemp4, intNum, strQuestion
ReDim arrQuestion(intTotalQs, 5)
ReDim arrAnswer(3)

intTotalQs = RS.RecordCount '=40

Randomize Timer

'################################################################################################### ##################################
'# AUTHOR: ROBERT D. SIMPSON ##
'# DATE CREATED: 17 MAR 03 ##
'# ##
'# THE OBJECT OF THIS APPLICATION WILL BE TO LOOP THROUGH EACH OBJECT IN THE RECORDSET, RANDOMLY LOADING THE QUESTIONS IN AN ARRAY ##
'# PRINT OUT THE QUESTIONS/ANSWERS BY ITERATING THROUGH THE ARRAY ##
'################################################################################################### ##################################

For objCounter = 1 to intTotalQs
arrQuestion(objCounter, 0) = RS("QuestionID")
arrQuestion(objCounter, 1) = RS("Question")
arrQuestion(objCounter, 2) = RS("Answer1")
arrQuestion(objCounter, 3) = RS("Answer2")
arrQuestion(objCounter, 4) = RS("Answer3")
arrQuestion(objCounter, 5) = RS("Answer4")
RS.MoveNext
Next

RS.close 'close out memory for speed
Set RS = Nothing
conn.close
Set conn = Nothing

For o = 1 to intTotalQs 'MIX EVERTHING UP WITHIN THE ARRAY. MOVE EACH QUESION AND CHOICE ANSWER TO A RANDOM ORDINAL
intRnd1 = (o * rnd)+1 '1st RANDOM NUMBER
intRnd2 = (o * rnd)+1 '2nd

intTemp0 = arrQuestion(intRnd1,0) 'SET TEMPORARY VARIABLE(S) EQUAL TO THE VALUES IN RANDOM SPOT IN THE MULTIDIMENSIONAL ARRAY
intTemp = arrQuestion(intRnd1, 1)
intTemp1 = arrQuestion(intRnd1, 2)
intTemp2 = arrQuestion(intRnd1, 3)
intTemp3 = arrQuestion(intRnd1, 4)
intTemp4 = arrQuestion(intRnd1, 5)

arrQuestion(intRnd1, 0) = arrQuestion(intRnd2, 0) 'QuestionID
arrQuestion(intRnd1, 1) = arrQuestion(intRnd2, 1) 'The Question
arrQuestion(intRnd1, 2) = arrQuestion(intRnd2, 2) 'Answer1
arrQuestion(intRnd1, 3) = arrQuestion(intRnd2, 3) 'Answer2
arrQuestion(intRnd1, 4) = arrQuestion(intRnd2, 4) 'Answer3
arrQuestion(intRnd1, 5) = arrQuestion(intRnd2, 5) 'Answer4

arrQuestion(intRnd2, 0) = intTemp0
arrQuestion(intRnd2, 1) = intTemp
arrQuestion(intRnd2, 2) = intTemp1
arrQuestion(intRnd2, 3) = intTemp2
arrQuestion(intRnd2, 4) = intTemp3
arrQuestion(intRnd2, 5) = intTemp4
Next

For x = 1 to intTotalQs
intNum = arrQuestion(x, 0)
strQuestion = arrQuestion(x,1)
arrAnswer(0) = arrQuestion(x,2)
arrAnswer(1) = arrQuestion(x,3)
arrAnswer(2) = arrQuestion(x,4)
arrAnswer(3) = arrQuestion(x,5)

Response.Write("<TR>")
Response.Write("<TD ID='Ques'>")
Response.Write(x & "." & strQuestion)
Response.Write("</TD>")
Response.Write("</TR><TR>")
Response.Write("<TD ID='Ans'>")

For i = 0 To 3
If Not arrAnswer(i) = "" Then
Response.Write("<INPUT TYPE='radio' NAME='strAns"&intNum&"' VALUE='" & arrAnswer(i) & "'>" & arrAnswer(i) & "
")
End If
Next
Response.Write("</TD></TR>")
Next

%>
<TR>
<TD><INPUT TYPE="Submit" VALUE="Submit your Answers"></TD>
</TR>
</TABLE>
</DIV>
</FORM>

Nicodemas

04-23-2003, 12:59 AM

That is actually the trouble spot.

I verified that the recordset has been populated by response.write'ing the value of RS("Question") before, and inside that loop.

For objCounter = 1 to intTotalQs
arrQuestion(objCounter, 0) = RS("QuestionID")
Response.Write RS("Question")

arrQuestion(objCounter, 1) = RS("Question")
arrQuestion(objCounter, 2) = RS("Answer1")
arrQuestion(objCounter, 3) = RS("Answer2")
arrQuestion(objCounter, 4) = RS("Answer3")
arrQuestion(objCounter, 5) = RS("Answer4")
RS.MoveNext
Next

That returns all the questions being written. But if I try to take a value out of the array and response.write it, nothing.

For objCounter = 1 to intTotalQs
arrQuestion(objCounter, 0) = RS("QuestionID")
arrQuestion(objCounter, 1) = RS("Question")
arrQuestion(objCounter, 2) = RS("Answer1")
arrQuestion(objCounter, 3) = RS("Answer2")
arrQuestion(objCounter, 4) = RS("Answer3")
arrQuestion(objCounter, 5) = RS("Answer4")
RS.MoveNext

Next

Response.Write arrQuestion(1,1) renders nothing, for example.

After that, I tried to verify that the value was being passed, so I used RS(" ... ").Value just in case.

I tried to response.write the recordset and the array (1,1) value after the recordset closed, but before the randomization and I am all out of ideas. What do you think, Mr. Clark?
It is like the value of the recordset just doesn't want to go in the array, but I have no reasonable answer for this.

Nicodemas

04-23-2003, 09:17 AM

After that, I tried to verify that the value was being passed, so I used RS(" ... ").Value just in case.

I had already tried that one and it didn't work. I tried the hack as well, with similar results.

Nicodemas

04-24-2003, 02:21 AM

Yeah, that's mostly why I am absolutely dumbfounded for an answer.

What if I used the GetRows method to place the information in an array? Think that would be better?

Nicodemas

04-28-2003, 03:36 AM

The answer???

I was trying to ReDim arrQuestion with the value intTotalQs before intTotalQs had been declared.

---Silly Rob, now you have cataracts.

bloke

04-30-2003, 06:18 AM

I'm having a similar problem when using getrows, but it appears to affect random fields.

The details are here:

http://forums.webdeveloper.com/showthread.php?s=&threadid=8697

I am desperately in need of help!

Cheers

bloke
blokeinthekitchen.con