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 %>
ID
status_id
location
history
last_leased_by
leased_by
leased_date
return_date
network_name
department_id
info_last_updated_date
info_last_verified_by
info_last_verified_date
detail_1
detail_2
detail_3
detail_4
detail_5
detail_6
detail_7
detail_8
detail_9
detail_10
manufacturer
model
serialnumber
service_tag
purchased_date
purchased_from
order_number
warranty_number
warranty_time
office_id
category_id
workstation_pc
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
<!--- 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>
253 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
