---
title: "Loop problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108963-loop-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mattiasnordin"
published: "2004-08-11T13:06:50.000Z"
updated: "2004-08-11T14:49:20.000Z"
replies: 1
views: 197
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/108963-loop-problem"
---

# Loop problem

## #1 — mattiasnordin, 2004-08-11T13:06Z

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
> 36)

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

Permalänk: https://www.webforum.nu/p/108963

## #2 — mattiasnordin, 2004-08-11T14:49Z

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>
```

Permalänk: https://www.webforum.nu/p/1408458

---

Tråden på webben: https://www.webforum.nu/amne/asp/108963-loop-problem