varför loopas den inte

Om jag har fattat rätt så vill du visa bilderna i top 5, eller???

Om det är så borde det här fungera.

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

strSQL = "Select Top 5 * From galleri Where visa=True Order By Datum desc"
objRs.Open strSQL, objConn

If objRs.EOF Then

Response.Write "Databasen är tom."

ELSE

Do until objRs.EOF
     Response.Write objRs("blabl")
     objRs.MoveNext
Loop

End If

Om du skriver TOP 5 så är det ingen garanti att du får högst 5 poster i ditt resultat. Om det finns flera bilder med samma datum som den 5:e bilden så kommer dessa också med i resultatet.

cnt = 0
Do until objRs.EOF
     Response.Write objRs("blabl")
     objRs.MoveNext
     cnt = cnt + 1
     if cnt = 5 then exit do
Loop

varför loopas den inte

Hejsan,

Jag fattar inte varför denna kod inte loopar igenom de fem första posterna i databasen, så här ser det ut hos mig...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
%>

diverse html kod

<%SQL = "Select Top 5 * From galleri Where visa=True Order By Datum desc"
RecSet.Open SQL, Conn%>

<%If RecSet.EOF Then%>

diverse html kod

<%ELSE%>

divese html kod, denna kod vill jag ska loopas, dvs jag har en bild och lite text som jag läst in från databasen genom <%=RecSet("blabl")%> och detta vill jag skall loppas

<%
Do while not RecSet.EOF
Recset.MoveNext
Loop
%>

Får varken ngt felmeddelande när jag gör detta utan den första posten listas bara, jag har ju satt top 5 i sql satsen, när jag tar bort Do while no RecSet.EOF så får jag ett felmeddelande som lyder komplimeringsfel en loop utan do

Någon som kan hjälpa mig??

Har du lagt dina utskrifter mellan do och loop?

Är du säker på att du har mer än en post i tabellen?

Om ja på frågorna, skulle det underlätta att se luite mer kod, sammanhängande.

Mvh,