Movelast virker ikke...
Hvad sker der ??Set DB = Server.CreateObject("adodb.connection")
DBpath = "DBQ=" & Server.MapPath("munster.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & DBpath
' Find ID for gamle artikler
SQL = "SELECT * FROM MunVisteArt" 'WHERE Dato = '" & Date & "'"
Set RS = DB.Execute (SQL)
While Not RS.EOF
Response.Write RS("Dato") & " - "
'response.write Dato
ArtikelID = RS("ArtikelID")
'response.write ArtikelID
'FoundOne = True
SQL = "SELECT * FROM munster WHERE InfoID =" & ArtikelID
Set RS2 = DB.Execute (SQL)
'If RS("Dato") <> Date Then
Navn = RS2("Navn")
Response.write Dato & "<A HREF='visartikelmun.asp?ArtikelID=" & ArtikelID & "'><font face='verdana,arial,helvetica' size='1'>" & Navn & "</font></A><BR>"
'End IF
RS.MoveNext
Wend
'---------------------
Dette virker
'--------------------
SQL = "SELECT * FROM MunVisteArt" 'WHERE Dato = '" & Date & "'"
Set RS = DB.Execute (SQL)
RS.MoveLast
While Not RS.BOF
Response.Write RS("Dato") & " - "
'response.write Dato
ArtikelID = RS("ArtikelID")
'response.write ArtikelID
'FoundOne = True
SQL = "SELECT * FROM munster WHERE InfoID =" & ArtikelID
Set RS2 = DB.Execute (SQL)
'If RS("Dato") <> Date Then
Navn = RS2("Navn")
Response.write Dato & "<A HREF='visartikelmun.asp?ArtikelID=" & ArtikelID & "'><font face='verdana,arial,helvetica' size='1'>" & Navn & "</font></A><BR>"
'End IF
RS.MovePrevious
Wend
'---------------------------
Denne del giver følgende fejlmeddelelse:
Microsoft OLE DB Provider for ODBC Drivers error '80040e24'
The rowset does not support fetching backwards
/AspMunster/gammelartikel.asp, line 58
Hvad gør jeg forkert ??
Svaret må gerne være lidt udførligt, jeg er nybegynder i ASP!
/Rasmus
