Loop problem

Hej !

Jag har gjort ett skript som plockar ut alla kolumnrubriker ur min databas. Sedan loopar jag in informationen i en array. Det smäller dock då loopen loopar en extra gång efter det att sista posten har passerats. Varför blir det så? Hur kommer jag runt detta?

<!--- Hämtar alla rubriker --->
<% sql_question = "SELECT * FROM T_inventory " 
'response.write sql_question
set rsLabelNames = Connect.Execute(sql_question)
if rsLabelNames.eof then
	response.write "<hr> No data found <hr>"
else
	dim myArray(200) ' Sätter länden på arrayen till antalet kolumner
	x = 0
	while not rsLabelNames.eof %>
		<i><%=x%>)</i> <%=rsLabelNames.fields(x).name%><br>
		<% myArray(x) = rsLabelNames.fields(x).name %>
		<% rsLabelNames.movenext %>
		<% x = x +1 
	wend
end if %>

0. ID
1. status_id
2. location
3. history
4. last_leased_by
5. leased_by
6. leased_date
7. return_date
8. network_name
9. department_id
10. info_last_updated_date
11. info_last_verified_by
12. info_last_verified_date
13. detail_1
14. detail_2
15. detail_3
16. detail_4
17. detail_5
18. detail_6
19. detail_7
20. detail_8
21. detail_9
22. detail_10
23. manufacturer
24. model
25. serialnumber
26. service_tag
27. purchased_date
28. purchased_from
29. order_number
30. warranty_number
31. warranty_time
32. office_id
33. category_id
34. workstation_pc
35. used_as_text

Det smäller alltså på rad 36 då den inte existerar.

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/tab_offices/off_uppsala/itjour/cid2/options/define_list_look.asp, line 56

Dålig kod ovan. Detta fungerade för mitt ändamål.

<!--- Visar egenskaper för vald lista --->
<% sql_question = "SELECT * FROM T_list_look WHERE list_name ='" &sSelectedList &"'" 
set rs = Connect.Execute(sql_question)
if rs.eof then
response.write "<hr> Select <hr>"
else %>
	<% varMySelectedHeaders =  rs("show_headers")%>
<% end if %>

<!--- Hämtar alla rubriker --->
<% sql_question = "SELECT * FROM T_inventory WHERE id = 2 " 
'response.write sql_question
set rsLabelNames = Connect.Execute(sql_question)
if rsLabelNames.eof then
	response.write "<hr> No data found <hr>"
else
	%>
<%=varMySelectedHeaders%>
	<!--- sparar recordset i en array --->
	<% avarGetRowsArray = rsLabelNames.GetRows() %>
	
	<% varColsLen = Ubound(avarGetRowsArray,1)%>
	<% for x = 0 to varColsLen %>
		<%varColumnName = rsLabelNames.fields(x).name%>
		<i><%=x%>)</i>
		<% if instr(varMySelectedHeaders, varColumnName) > 0 then
		varChecked = " checked "
		else 
		varChecked = "  "
		end if	%>
		<input type="checkbox" <%=varChecked%> > <%=varColumnName%> <br>
	<% next %>

	
<% end if %>	
<hr><hr><hr>