Udtræk fra database som array

Du kan bruge recordset .GetRows metode, den givet et array:
Et eks: http://activedeveloper.dk/artikler/default.asp?articleid=176

http://www.devguru.com/technologies/ado/quickref/recordset_getrows.html

Vil du have rækker som arrays, kolonner som arrays eller tabeller som
to dimensionelle arrays ?

<!-- #include file="conn.asp" --->
<%
strSQL = "SELECT pic,title FROM dvd_list WHERE online = 'yes' AND upcomming = 'no' ORDER BY title"
set rs = conn.execute(strSQL)

    If not rs.EOF then
       
        arrDVD = conn.getrows()
       
    End if
%>
<h1>Kommende DVD'er</h1>
<%   
    if isarray(arrDVD) then
       
        response.write "<table><tr>" & vbcrlf
        response.write "<td>Billede</td>" & vbcrlf
        response.write "<td>Titel</td></tr>" & vbcrlf
       
        for i=0 to ubound(arrDVD,2)
            response.write "<tr>" & vbcrlf
            response.write "<td>" & arrDVD(0,i) & vbcrlf
            response.write "<td>" & arrDVD(1,i) & vbcrlf
            response.write "<td>" & arrDVD(2,i) & vbcrlf
            response.write "</tr>" & vbcrlf
        next
       
        response.write "</table>"
       
    End if
%>

Kan nogen se hvad jeg gør forkert?

Eks. er taget fra

http://activedeveloper.dk/artikler/default.asp?articleid=176

har bare skrevet der lidt om

Du har ikke en  arrDVD(2,i)

den har jeg fjernet! MEn virker ikke alligevel...

Ja du har kun hetet 2 kolonner ud: pic,title
1. kolonne kommer i arrDVD(0,i)
2. kolonne kommer i arrDVD(1,i)

Hvilken fejl får du?

Tror slet ikke den laver et array... For når jeg kigger i min kilde kode på siden står der faktisk kun : <h1>Kommende DVD'er</h1>

Der mangler også </td>'er:
            response.write "<td>" & arrDVD(1,i) & vbcrlf
Sådan her:
            response.write "<td>" & arrDVD(1,i) & "</td>" & vbcrlf

Det skal også være rs.GetRows og ikke Conn.GetRows:

        arrDVD = rs.getrows()

Ups...! Kom loige til at kigge i min DB :) Der er jo selvfølgelig ikke noget i... Men tak for hjælpen.

Ja der skal også være noget i database ;)

Nu har jeg så udbygget den lidt...

<!-- #include file="conn.asp" --->
<%
strSQL = "SELECT pic FROM dvd_list WHERE online = 'yes' AND upcomming = 'no' ORDER BY title"
set rs = conn.execute(strSQL)

    If not rs.EOF then
       
        arrDVD = rs.getrows()
        Count_Image_Prints = 0
       
    End if
%>
<h1>Kommende DVD'er</h1>
<%
if isarray(arrRecords) then

    For I = 0 to ubound(arrDVD,2)
        Count_Image_Prints = Count_Image_Prints + 1

        If Count_Image_Prints = 1 then
            response.write "<tr>" & vbCrLf
        end if

        response.write "<td>" &_
                "<img src='./gfx/dvd/" & arrDVD(I) & "'>" &_
        "</td>" & vbCrLf

        If Count_Image_Prints = 3 then
            response.write "</tr>" & vbCrLf
            Count_Image_Prints = 0
        end if
    Next

End if
%>

Men nu sker der ikke rigtig noget igen...

Sådan:

<!-- #include file="conn.asp" --->
<%
strSQL = "SELECT pic FROM dvd_list WHERE online = 'yes' AND upcomming = 'no' ORDER BY title"
set rs = conn.execute(strSQL)

    If not rs.EOF then
       
        arrDVD = rs.getrows()
        Count_Image_Prints = 0
       
    End if
%>
<h1>Kommende DVD'er</h1>
<%
if isarray(arrDVD) then

    For I = 0 to ubound(arrDVD,2)
        Count_Image_Prints = Count_Image_Prints + 1

        If Count_Image_Prints = 1 then
            response.write "<tr>" & vbCrLf
        end if

        response.write "<td>" &_
                "<img src=gfx/dvd/" & arrDVD(I) & ">" &_
        "</td>" & vbCrLf

        If Count_Image_Prints = 3 then
            response.write "</tr>" & vbCrLf
            Count_Image_Prints = 0
        end if
    Next

End if
%>

Min fejl:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'arrDVD'

/dvd/upcommig.asp, line 24

PRøv at rette denne:
For I = 0 to ubound(arrDVD,2)

til:

For I = 0 to ubound(arrDVD)

samme fejl...

den giver stadig et 2 dim array så det skal være:

For I = 0 to ubound(arrDVD,2)

og så ret:
        response.write "<td>" &_
                "<img src=gfx/dvd/" & arrDVD(I) & ">" &_
        "</td>" & vbCrLf
til:
        response.write "<td>" &_
                "<img src=gfx/dvd/" & arrDVD(0,I) & ">" &_
        "</td>" & vbCrLf