3 svar · 208 visningar · startad av Josef
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,
