Array problem
Jeg kan ikke få mit array til at virke. Det er kun data fra den første løkke der udskrives når jeg løber mit array igennem. Her er koden:SQL = "Select * from artikler where forside = 1 and userlevel >= " & session("usertypeid")
Set rs = Conn.execute(SQL)
if rs.eof then
else
do while not rs.eof
A = "<tr><td class=""overskrift""><a href="""
if rs("link") <> "" then
A = A & rs("link") & """>" & rs("titel") & "</a><br><br></td></tr>"
else
A = A & "artikler.asp?mode=vis&artikel=true&kategoriid=" & rs("kategoriid") & "&id=" & rs("artikelid") & """>" & rs("titel") & "</a></td></tr>"
A = A & "<tr><td>" & rs("teaser") & "<br><br></td></tr>"
end if
A1(0,i) = (A)
A1(1,i) = (rs("oprettet"))
i = i + 1
rs.movenext
loop
end if
SQL = "Select * from subpages where forside = 1 and userlevel >= " & session("usertypeid")
Set rs = Conn.execute(SQL)
if rs.eof then
else
do while not rs.eof
B = "<tr><td class=""overskrift""><a href=""artikler.asp?mode=vis_subpage&kategoriid=" & rs("kategoriid") & "&subpageid=" & rs("subpageid") & """>" & rs("titel") & "</a></td></tr>"
B = B & "<tr><td>" & rs("teaser") & "<br><br></td></tr>"
A1(0,i) = (B)
A1(1,i) = (rs("oprettet"))
i = i + 1
rs.movenext
loop
end if
SQL = "Select * from pressemeddelelser where forside = 1"
Set rs = Conn.execute(SQL)
if rs.eof then
else
do while not rs.eof
C = "<tr><td class=""overskrift""><a href=""pressemeddelelser.asp?mode=vis&kategoriid=2&id=" & rs("presseid") & """>" & rs("titel") & "</a></td></tr>"
C = C & "<tr><td>" & rs("teaser") & "<br><br></td></tr>"
A1(0,i) = (C)
A1(1,i) = (rs("oprettet"))
i = i + 1
rs.movenext
loop
end if
for e = 0 to Ubound(A1)
Response.Write A1(row,e)
next
