Simpelt: Udtræk i 2 kolonner

Jeg rener med du vil være tilfreds med en udskrift i dette format:
1  2
3  4
5  6
Jeg kommer med et forslag lige straks

Hej igen nhm du hjalp mig med noget lignende for et par dage siden
men jeg vil helst have
1 4
2 5
3 6

Er der igen kun ca. 100 poster?

ja
jeg skal løbe nu men ser på dit forslag i morgen

Sådan er princippet, ret og tilpas til din egen:
<%
...

LinkCount = 0
Do Until rs.EOF

If LinkCount Mod 4 = 0 Then 'skift nummer til det antal som du vil
    If LinkCount <> 0 Then Response.Write"</tr>"
            Response.Write "<tr><td><img width=100 src=images/" & RS("filename") & "></td>"
    Else
            Response.Write "<td><img width=100 src=images/" & RS("filename") & "></td>"

    End If
    LinkCount = LinkCount + 1
    rs.MoveNext
Loop
...
%>

Inden jeg kommer med det endelige forslag, så se lige, hvordan det kommer til at se ud i det format, jeg først foreslog. Hvis du synes, det ser godt nok ud, laver jeg det i det format du ønsker.
Det er jo noget med billeder, og nu laver jeg en tabel uden om det hele med to søjler. Det ser måske ikke godt nok ud.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/db/billeder.mdb")
strSQL = "Select * From Images"
Set RS = Conn.Execute(strSQL)

countSQL = "Select Count(ID) As Count From Images"
RS2 = Conn.Execute(countSQL)
%>
<table>
<tr>
<%skift=false%>
<% Do While Not rs.EOF %>
<td>
<table border="0" cellpadding="0" cellspacing="4" width="40%" bgcolor="#999966">
    <tr>
        <td rowspan="3" width="25%">
        <A HREF="java script:displayWindow('gallerishowimg.asp?id=<%=RS("ID")%>',<%=RS("Width")%>,<%=RS("Height")%>)">
        <img src="../pic/ungdom/galleri/<%=RS("Images")%>.<%=RS("Filtype")%>" height=100 width=169 border=0></a></td>
        <td width="75%"><font size="1" face="Tahoma">Filtype: <strong><%= RS("Filtype")%></strong></font></td>
    </tr>
    <tr>
        <td width="75%"><font size="1" face="Tahoma">Højde: <strong><%= RS("Height")%></strong> pixel, Bredde: <strong><%= RS("Width")%></strong> pixel</font></td>
    </tr>
    <tr>
        <td width="75%"><font size="1" face="Tahoma">Beskrivelse: <strong><%= RS("Description")%></strong> </font></td>
    </tr>
</table>
</td>
<%
if skift then response.write("</tr><tr>")
skift=not skift
RS.MoveNext
Loop
%>
</tr>
<table>

rettelse: det sidste <table> skal være </table>

nmh>>>> Dit forslag fungere som godt nok men formatet er forkert
Det skal være
1 4
2 5
3 6
Så hvis du kan lave det sådan vil jeg være glad

Det er lavet sådan som du har skrevet i 12/07-2003 23:35:52 du kan putte flere kolonne ind ved at ændre på variablen, ANTAL_KOLONNER som er sat til 2 lige nu:
ANTAL_KOLONNER = 2


Det er lagt ind i din kode bliver som her:



<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
'Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/db/billeder.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db12.mdb")
strSQL = "Select * From Images"
RS.Open strSQL, Conn, 1

ANTAL_KOLONNER = 2
noPrRow = (rs.RecordCount/ANTAL_KOLONNER)
if noPrRow > int(noPrRow) then noPrRow = Int(noPrRow)+1
Response.Write noPrRow

antalIrow = 0
%>
<table><tr><td>
<% Do While Not rs.EOF

if antalIrow = 0 then
  Response.Write "<table><tr><td>"
end if
%>

<table border="0" cellpadding="0" cellspacing="4" width="40%" bgcolor="#999966">
    <tr>
        <td rowspan="3" width="25%">
        <A HREF="java script:displayWindow('gallerishowimg.asp?id=<%=RS("ID")%>',<%=RS("Width")%>,<%=RS("Height")%>)">
        <img src="../pic/ungdom/galleri/<%=RS("Images")%>.<%=RS("Filtype")%>" height=100 width=169 border=0></a></td>
        <td width="75%"><font size="1" face="Tahoma">Filtype: <strong><%= RS("Filtype")%></strong></font></td>
    </tr>
    <tr>
        <td width="75%"><font size="1" face="Tahoma">Højde: <strong><%= RS("Height")%></strong> pixel, Bredde: <strong><%= RS("Width")%></strong> pixel</font></td>
    </tr>
    <tr>
        <td width="75%"><font size="1" face="Tahoma">Beskrivelse: <strong><%= RS("Description")%></strong> </font></td>
    </tr>
</table>

<%
antalIrow = antalIrow +1
if antalIrow = noPrRow then
  Response.Write "</td></tr></table>"
  Response.Write "</td><td>"
  antalIrow = 0
end if

RS.MoveNext
Loop
if antalIrow > 0 then
  Response.Write "</td></tr></table>"
end if
rs.Close
%>
</td></tr></table>

hmmm ret lige connnecten tilbage til din egen og ikke min connection til db12 ;)

eagleeye der er noget galt her
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/db/billeder.mdb")
strSQL = "Select * From Images"
RS.Open strSQL, Conn, 1

ANTAL_KOLONNER = 2
noPrRow = (rs.RecordCount/ANTAL_KOLONNER)
if noPrRow > int(noPrRow) then noPrRow = Int(noPrRow)+1
Response.Write noPrRow

antalIrow = 0
%>

Ikke så vidt jeg kan se.
Kan du prøve at beskrive hvad der er galt?

sorry nu har jeg fået det til at fungere, men hvordan får jeg kolonnerne til at blive top_justeret hvis du forstår

Arh ok, nej det er de ikke lige nu.

Ret disse linjer.
%>
<table><tr><td>
<% Do While Not rs.EOF

Til:
%>
<table><tr><td valign="top">
<% Do While Not rs.EOF



Samt denne linje:
  Response.Write "</td><td>"


Til denne:
  Response.Write "</td><td valign=""top"">"

ja det så bedre ud, men der står et 4-tal øverst på min side hvorfor det??
Kig selv på
http://www.insideout.dk/ungdom/galleri.asp

Er det ikke denne "kode" der skriver 4-tallet?????????

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/db/billeder.mdb")
strSQL = "Select * From Images"
RS.Open strSQL, Conn, 1

countSQL = "Select Count(ID) As Count From Images"
RS2 = Conn.Execute(countSQL)

ANTAL_KOLONNER = 2
noPrRow = (rs.RecordCount/ANTAL_KOLONNER)
if noPrRow > int(noPrRow) then noPrRow = Int(noPrRow)+1
Response.Write noPrRow

antalIrow = 0
%>

;) ups fik ikke fjernet den linje som udskriver hvor mange der skal være i hver kolonne:

Bar fjern denne linje:

Response.Write noPrRow

Så fungere det jo tak for hjælpen

Vil du ikke være sød at prøve at kigge på et andet spørgsmål jeg har kørende, hvis du skal have flere point så får du det skam

http://www.eksperten.dk/spm/371376

jeg giver nmh 20 point for hans forslag som jeg godt kan bruge selvom det ikke præcis var det jeg ønskede

Eagleeye for 40 point for hans forslag som var det jeg ønskede