Forløkke igen igen

For t = 1 to 50

For i = 1 to 5

ellers så læse her :)
http://html.dk/tutorials/asp/lektion5.asp

jamal s:

Og det gør den så indtil der ikke er flere poster i tabellen?

Jeg har pt. følgende kode:

Her dannes mit recordset m.v.:

sql = \"SELECT * FROM Stadion_pics ORDER BY Id DESC\"
Set rs = Connect.Execute(sql)

do while rs.eof = false
    i = i + 1
    tab(i,1) = rs(\"Id\")
    tab(i,2) = rs(\"Navn\")
    tab(i,3) = rs(\"Tekst\")
    tab(i,4) = rs(\"Pic\")
rs.movenext
loop

Og her viser jeg indholdet:

    <%
    For i = 1 to 5 Step 5
    %>
    <tr>
        <td width=\"155\" align=\"center\" valign=\"top\">
            <font face=\"Verdana\" size=\"1\" color=\"#000000\">
                <%
                Set Image = Server.CreateObject(\"AspImage.Image\")
               
                Image.PadSize = 0
               
                ImgFullPath = (Server.MapPath(\"./images/stadion_pics/\"&rs(\"Pic\")&\"\"))
               
                Image.LoadImage ImgFullPath
               
                Image.GetImageFileSize ImgFullPath, X, Y
                Image.MaxX = X
                Image.MaxY = Y
               
                If X > Y OR X > 150 Then
                    ResizedX = 125
                    ResizedY = (ResizedX * Y/X)
                End if
               
                Image.Resize ResizedX, ResizedY
               
                Image.ImageFormat = 1
                Image.JPEGQuality = 100
                Image.FileName = Server.MapPath(\"./images/stadion_tmp/\"&rs(\"Pic\")&\"\")
                Image.SaveImage
               
                Response.Write \"<a href=\"\"java script:window.openPopUp(\'vis_pic.asp?id=\"&rs(\"Id\")&\"\',,\"\"><img src=\"\"images/stadion_tmp/\"&rs(\"Pic\")&\"\"\" border=\"\"0\"\"></a><br>\"&rs(\"Navn\")&\"\"
                %>
            </font>
        </td>
    </tr>
    <%
    next
    %>

Prøv det her:

do while rs.eof = false
    k = k + 1
    tab(i,1) = rs(\"Id\")
    tab(i,2) = rs(\"Navn\")
    tab(i,3) = rs(\"Tekst\")
    tab(i,4) = rs(\"Pic\")
rs.movenext
loop

For i = 1 to k Step 5

cesil og jamal:

Fandt selv ud af hvordan det skulle løses...eller det vil sige en ganske brugbar løsning til denne opgave.

Men I deler pointene.