Problem med att lista bilder..

Du måste berätta vad det är som inte fungerar.
Jag antar att det inte står bilder.är.slut i koden?

ja du, jag vet inte själv hur jag ska lyckas med detta (eller hur koden ska se ut), det är så att jag vill skriva ut bilderna ur en db och dom ska listas enligt:

bild1 l bild2 l bild3 l bild4
bild5 l bild6 l bild7 l bild8 osv osv..

Som @nders sa: vad är felet? Felmeddelande? Står det "bilder.är.slut" så är det väldigt FEL!
Eller står det så här?

<% 
intCounter = 0
do until objRS.eof
       intCounter = intCounter + 1
       %> 
       <td><img src="<%= bildurl %>" border="0"></td> 
       <% 
       if intCounter MOD 4 = 0 Then Response.Write "</tr><tr>"
objRS.movenext 
loop 
%>

Om du har bilder.är.slut så är det fel. Det är bara ett exempel eftersom personen antagligen inte visste vad ditt recordset hette.

<% Session.LCID = 1053 %>
<%
strSQL = "SELECT * FROM bilder01 ORDER BY bildnamn DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bilder.mdb")
Set objRS = objCon.Execute(strSQL)
%>

<% 
intCounter = 0
do until ObjRs.EOF
     intCounter = intCounter + 1
     %> 
     <td><img src="<%=ObjRs("bildurl")%>" border="0"></td> 
     <% 
     if intCounter MOD 4 = 0 Then Response.Write "</tr><tr>"
     ObjRs.movenext 
loop 
%>

Jag ser dessutom inte att du ger variabeln, "bildurl" något värde.

Du saknar dessutom kolumnnamn: strSQL = "SELECT HÄR FROM bilder01 ORDER BY bildnamn DESC"

<% Session.LCID = 1053 %>
<%
strSQL = "SELECT FROM bilder01 ORDER BY bildnamn DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databaser/bilder.mdb")
Set objRS = objCon.Execute(strSQL)
%>

<% 
intCounter = 0
do until objRS.eof
       intCounter = intCounter + 1
       %> 
       <td><img src="<%= bildurl %>" border="0"></td> 
       <% 
       if intCounter MOD 4 = 0 Then Response.Write "</tr><tr>"
objRS.movenext 
loop 
%>

Felmeddelande:
The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

bilder.asp, line 6

Se: http://www.webforum.nu/showthread.php?s=&postid=705819#post705819

Heter din tabell Bilder01? Och har du en kolumn som heter Bildurl samt bildnamn?

<% Session.LCID = 1053 %>
<%
strSQL = "SELECT * FROM bilder01 ORDER BY bildnamn DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bilder.mdb")
Set objRS = objCon.Execute(strSQL)
%>

<% 
intCounter = 0
do until ObjRs.EOF
     intCounter = intCounter + 1
     %> 
     <td><img src="<%=ObjRs("bildurl")%>" border="0"></td> 
     <% 
     if intCounter MOD 4 = 0 Then Response.Write "</tr><tr>"
     ObjRs.movenext 
loop 
%>

Kanon nu fungerar det !
tack alla ;)

:birp

Fan det blir inte riktigt som jag vill :x

Jag vill ha så att bilderna listas 4 på rad och sen ska jag skriva lite info om varje bild som ska ligga under bilden.

Kolla den bifogade bilden så förstår ni. :birp

<% Session.LCID = 1053 %>
<%
strSQL = "SELECT * FROM bilder01 ORDER BY bildnamn DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bilder.mdb")
Set objRS = objCon.Execute(strSQL)
%>

<% 
intCounter = 0
do until ObjRs.EOF
     intCounter = intCounter + 1
     %> 
     <td align="center"><img src="<%=ObjRs("bildurl")%>" border="0"><br><%=ObjRs("bildnamn")%></td> 
     <% 
     if intCounter MOD 4 = 0 Then Response.Write "</tr><tr>"
     ObjRs.movenext 
loop 
%>

Gjorde en liten redigering.. kolla igen!

snyft =(
Det blir inte rätt, bilderna listas under varandra.

Det ska ju alltså vara:

BILD1 l BILD2 l BILD3 l BILD4 l
text text text text

Var har du resterande table kod då? alltså
<table>
<tr>

samt
</tr>
</table>

Dessa ska vara untanför asp taggarna samt DO until ObjRS.EOF och Loop.
annars blir inte tabellen korrekt skapad.

aha ok så här?

<% Session.LCID = 1053 %>
<%
strSQL = "SELECT * FROM bilder01 ORDER BY bildnamn DESC"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databaser/bilder.mdb")
Set objRS = objCon.Execute(strSQL)
%>

<table>
<tr>
<% 
intCounter = 0
do until ObjRs.EOF
     intCounter = intCounter + 1
     %> 
     <td align="center"><img src="<%=ObjRs("bildurl")%>" width="100" height="100" border="0"><br><%=ObjRs("bildnamn")%></td> 
     <% 
     if intCounter MOD 4 = 0 Then Response.Write "</tr><tr>"
     ObjRs.movenext 
loop 
%>
</tr>
</table>

Testa!

jippi! tack SteveP (och alla ni andra)