Mystiskt problem med ASP....

[Jonas Nilsson]

Jag har ett litet problem med det där scriptet som gör att man t.ex. bara visar de fem senaste inläggen från en databas. Det står att jag använder "loop" utan "do" även fast Do finns med i koden, klart och tydligt. Mycket mystiskt. En annan sak som är konstigt är om man flyttar "loop" till efter "End If" så fungerar det fast då får man ett annat irriterande felmeddelande. Jag skulle bli mycket tacksam om Ni kunde hjälpa mig! Jag biofogar filen så ni kan se problemet.

 

<%

Set Connection = Server.CreateObject("ADODB.Connection")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & Server.MapPath ("/dreamcast/nyheter/news.mdb")

Connection.Open DSNtemp

Sql = "SELECT * FROM Nyheter Order by ID Desc"

Set RS = Connection.Execute(Sql)

Antal = 0

Do Until RS.EOF

%>

 

<%=RS("Rubrik")%>

<br>

 

<%

Antal = Antal + 1

If Antal > 5 then

RS.Close

Connection.Close

Else

RS.Movenext

Loop

End If

%>

 

<%

RS.Close

Connection.Close

%>