array

Getrows hämtar alla poster, så du behöver ingen loop.

getword = "SELECT seek FROM image_tbl WHERE word = '"& Request.Form("sokord")&"'" 

Set RS=dbconn.Execute(getword) 

If RS.EOF Then 
%> 
<script language="javascript"> 
window.alert("inga träffar!"); 
</script> 
<% 
Else 
Arr = RS.GetRows() 
End If

Dessa rader:

<% 
Else 
Do until RS.EOF 
Dim Arr 
Arr = RS.GetRows() 
RS.MoveNext 
Loop

Ska se ut så här:

<% 
Else 
Dim Arr 
Arr = RS.GetRows()

dvs, du behöver inte loopa igenom recordsetet. Det kan du stänga och "förstöra" eftersom du har sparat hela det i arrayen.

Arrayen loopar du så här:

<%
If IsArray(Arr) Then
	For I = 0 TO UBound(Arr,2)
		strField1 = Arr(0,I)
		strField2 = Arr(1,I)
		strFieldn = Arr(n,I)

		'## -- visa resultatet --
	Next
Else
	Response.Write "Inget hittades."
End
%>

cya,
PatrikB

har nu fixat koden till :

getword = "SELECT seek FROM image_tbl WHERE word = '"& Request.Form("sokord")&"'" 
Set RS=dbconn.Execute(getword) 

	If RS.EOF Then 
	%> 
	<script language="javascript"> 
	window.alert("inga träffar!"); 
	</script> 
	<% 
	Else 
		Arr = RS.GetRows()
	End If 

	If IsArray(Arr) Then
		For I = 0 TO UBound(Arr,2)s
		strField1 = Arr(0,I)
		strField2 = Arr(1,I)
		strFieldn = Arr(n,I)'## -- visa resultatet --
		Next
		Else
		Response.Write "Inget hittades."
	End If

får fel mezz(Felaktigt matrisindex: '[number: 1]') :
strField2 = Arr(1,I)
varför ä denna matris fel???

I och med att du bara hämtar en kolumn så har arrayen bara en kolumn

If IsArray(Arr) Then
	For I = 0 TO UBound(Arr,2)
		strField1 = Arr(0,I)
'
'Gör något med strfield1
'
	Next
End If

strFieldn = Arr(n,I)'## -- visa resultatet --

Var kommer n i från? Det borde inte fungera...??

n är bara ett valfritt positivt tal. Ofta skriver man bara 1,2,3...n

jag tänkte bara vara "lite pedagogisk".
strField1 = Arr(1,I)
strFieldn = Arr(n,I)

"trodde" att "ni" skulle förstå det. :(

sorry, my mistake

cya,
PatrikB