Arrays and sessions

[nam4520]

will someone please tell me why I'm getting the 'type mismatch' error on this piece of code. the error comes from the 'for i= 0 to ubound(sysmods)' line. thanks


DIM QRY2, RST2, SYSMODS
QRY2= "select P.PRE_SYSMOD_NO, F.TAPE_NO from FIXPRE P, FIX F where P.SYSMOD_NO ='" & SESSION("SYSMODS&quot & "'"_
& " and F.SYSMOD_NO = P.PRE_SYSMOD_NO"_
& " and F.TAPE_NO > '" & TAPE_no & "'"_
& " order by PRE_SYSMOD_NO DESC;"
SET RST2= cnn.Execute(QRY2)
dim myarray(), num, i
num=0
'num =myarray(0)
Response.Write(&quot;<table>&quot
Call gettape(sysmod_no)
DO WHILE NOT(RST2.EOF)
num=num + 1
redim preserve myarray(num)
myarray(num)= rst2(&quot;pre_sysmod_no&quot
SESSION(&quot;SYSMODS&quot= myarray(num) & &quot;<br>&quot;
SYSMODS=SESSION(&quot;SYSMODS&quot
rst2.movenexT
loop

for i = 0 to UBOUND(SYSMODS)
Response.Write(sysmods(i))
next

 

[baddos]

Try this

<% If IsArray(SYSMODS) Then
For i = 0 TO Ubound(SYSMODS)
Response.Write SYSMODS(i)
Next
Else
Response.Write &quot;SYSMODS is not an Array&quot;
Response.End
End If %>

 

[vbkris]

there is an error here
SESSION(&quot;SYSMODS&quot= myarray(num) & &quot;<br>&quot;
here only the last value of myarray is stored and NOT the array
therefore SYSMODS will also not be an array
try this
SESSION(&quot;SYSMODS&quot= myarray & &quot;<br>&quot;

 

[BG12424]

Here is full source for this.

' Checks if variable is an array
If IsArray(Session("SYSMODS")) Then

	' store in local variable
	myArray = Session("SYSMODS")
	currItem = 0
	
	' loop through each element of array
	While currItem <= Ubound(myArray, 1)

		' html encode the text in array element, good if you working with database
		Response.Write(&quot;myArray(&quot; & currItem & &quot;) = &quot; & Server.HTMLEncode(myArray(currItem) & &quot;<br/>&quot;)

		' increment our counter
		currItem = currItem + 1

		' loop through the next element
	Wend
End If

' Destroy
Set currItem = Nothing
Erase myArray
Session.Contents.Remove &quot;myArray&quot;

_______________________________
regards,
Brian
AOL IM: FreelanceGaines