I forskellige sider

lav en løkke med de to første muligheder i.. så lader du den løkke indtil du ikke har flere poster...

<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/mobilspec.mdb")

SQL = "SELECT * FROM DinTabel"
Set rs =  Conn.Execute(SQL)

counter = "1"

Do While Not rs.EOF

if counter = "1" then
    Response.write "<tr>"
    Response.write "<td>" & rs("Billede") &"</td><td>" & rs("Kommentar") &"</td>"
    Response.write "</tr>"
    counter = counter + 1
end if

if counter = "2" then
    Response.write "<tr>"
    Response.write "<td>" & rs("Kommentar") &"</td><td>" & rs("Billede") &"</td>"
    Response.write "</tr>"
    counter = "1"
end if

rs.movenext
loop
Conn.close
Set Conn = nothing
%>

det kunne se sådan ud?:

<TABLE BORDER="0">
<%
Set rs = Conn.Execute(strSQL)
Do
%>

<TR>
  <TD><%=rs("tekst")%></TD>
  <TD><%=rs("billede")%></TD>
</TR>
<TR>
  <TD><%=rs("billede")%></TD>
  <TD><%=rs("tekst")%></TD>
</TR>

<%
  rs.MoveNext
Loop While Not rs.EOF
%>
</TABLE>

/jsc

a-torsten -> øv.. du kom før

jsc


Kan man ikke pga.
1: Du kan kun udskrive et recordset direkte en gang
2: Hvis man kunne, så blev de samme billeder og kommentare vist 2 gange...

-Anders

btw...

Du skal lige kaste

<table>
</table>

Unden om mit svar...

-Anders

jsc > det der virker ikke !

du kan jo komme ud for at hive noget ud selvom EOF er true


men...

a-torsten du har ret, selvom den der counter har lidt problemer med typerne :-P
(du skifter mellem tal og strenge)

skq ...

Jeg skifter ikke mellem tal og strenge... Det er pure strenge.... Og det virker o)

Men okay...

Du kan da sagtens fjerne " " ..

-Anders

a-torsten -> ja.. du har sku ret, nu jeg tænker over det...

Simpelt, men fremragende!!!:-)
VesTer

Ingen grund til at gøre det mere svært, en hvad nødvendigt er.. :o)

Der er så kun det problem, at den udskriver den samme post to gange i træk???

hmm.. jeg har vist ikke set helt rigtigt efter..., begge foreslag laver billedet og teksten to gange..

<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/mobilspec.mdb")

SQL = "SELECT * FROM DinTabel"
Set rs =  Conn.Execute(SQL)

counter = "1"

Do While Not rs.EOF

if counter = "1" then
    Response.write "<tr>"
    Response.write "<td>" & rs("Billede") &"</td><td>" & rs("Kommentar") &"</td>"
    Response.write "</tr>"
end if

if counter = "2" then
    Response.write "<tr>"
    Response.write "<td>" & rs("Kommentar") &"</td><td>" & rs("Billede") &"</td>"
    Response.write "</tr>"
    counter = "1"
end if
    counter = counter + 1
rs.movenext
loop
Conn.close
Set Conn = nothing
%>