Subscrit out of range
Hej alle eksperter :)Jeg har et lille problem med en hjemmeside der lyder:
Det er et galleri hvor billeder bliver sat i rækker med 5 billeder i hver række, men jeg er stødt ind i et problem når jeg kommer over 30 billeder.
Fejlkoden:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'i'
/cases.asp, line 147
Her er koderne:
bid = request.QueryString("subid")
dim tab(30,30)
sql = "SELECT * FROM img where i_menuid = "&bid&""
set rs = Conn.Execute(sql)
do while rs.eof = false
i = i + 1
tab(i,1) = rs("i_img") <-------------------------- linje 147
tab(i,2) = rs("i_imgthumb")
tab(i,3) = rs("i_navn")
rs.movenext
loop
sql1 = "SELECT COUNT(*) AS Antal FROM img where i_menuid = "&bid&""
set rs1 = Conn.Execute(sql1)
%>
<table border="0" cellpadding="0" cellspacing="0" width="90%">
<%for i = 1 to CINT(rs1("Antal")) step 5%>
<tr>
<td width="20%" align="center" style="font-size:11px;">
<%if tab(i,1) <> "" then%>
<a href="images/gallery/<%=tab(i,1)%>" rel="lightbox[Billedserie]" title="<%=tab(i,3)%>" >
<img src="images/gallery/<%=tab(i,2)%>" style="border:solid 1px #666666;" /></a>
<%end if%>
</td>
<td width="20%" align="center" style="font-size:11px;">
<%if tab(i+1,1) <> "" then%>
<a href="images/gallery/<%=tab(i+1,1)%>" rel="lightbox[Billedserie]" title="<%=tab(i+1,3)%>" >
<img src="images/gallery/<%=tab(i+1,2)%>" style="border:solid 1px #666666;" /></a>
<%end if%>
</td>
<td width="20%" align="center" style="font-size:11px;">
<%if tab(i+2,1) <> "" then%>
<a href="images/gallery/<%=tab(i+2,1)%>" rel="lightbox[Billedserie]" title="<%=tab(i+2,3)%>" >
<img src="images/gallery/<%=tab(i+2,2)%>" style="border:solid 1px #666666;" /></a>
<%end if%>
</td>
<td width="20%" align="center" style="font-size:11px;">
<%if tab(i+3,1) <> "" then%>
<a href="images/gallery/<%=tab(i+3,1)%>" rel="lightbox[Billedserie]" title="<%=tab(i+3,3)%>" >
<img src="images/gallery/<%=tab(i+3,2)%>" style="border:solid 1px #666666;" /></a>
<%end if%>
</td>
<td width="20%" align="center" style="font-size:11px;">
<%if tab(i+4,1) <> "" then%>
<a href="images/gallery/<%=tab(i+4,1)%>" rel="lightbox[Billedserie]" title="<%=tab(i+4,3)%>" >
<img src="images/gallery/<%=tab(i+4,2)%>" style="border:solid 1px #666666;" /></a>
<%end if%>
</td>
</tr>
<tr>
<td style="font-size:11px;" align="center" >
<%if tab(i,1) <> "" then%>
<a href="images/gallery/<%=tab(i,1)%>" rel="lightbox[Billedseriet]" title="<%=tab(i,3)%>"><%=tab(i,3)%></a>
<%end if%>
</td>
<td style="font-size:11px;" align="center" >
<%if tab(i+1,1) <> "" then%>
<a href="images/gallery/<%=tab(i+1,1)%>" rel="lightbox[Billedseriet]" title="<%=tab(i+1,3)%>"><%=tab(i+1,3)%></a>
<%end if%>
</td>
<td style="font-size:11px;" align="center" >
<%if tab(i+2,1) <> "" then%>
<a href="images/gallery/<%=tab(i+2,1)%>" rel="lightbox[Billedseriet]" title="<%=tab(i+2,3)%>"><%=tab(i+2,3)%></a>
<%end if%>
</td>
<td style="font-size:11px;" align="center" >
<%if tab(i+3,1) <> "" then%>
<a href="images/gallery/<%=tab(i+3,1)%>" rel="lightbox[Billedseriet]" title="<%=tab(i+3,3)%>"><%=tab(i+3,3)%></a>
<%end if%>
</td>
<td style="font-size:11px;" align="center" >
<%if tab(i+4,1) <> "" then%>
<a href="images/gallery/<%=tab(i+4,1)%>" rel="lightbox[Billedseriet]" title="<%=tab(i+4,3)%>"><%=tab(i+4,3)%></a>
<%end if%>
</td>
</tr>
<%next%>
</table>