innan = "select top 1 bildID from bilder where bildID < " & intBild & " and anvID = " & intAnv & " and mappID = " & intMapp & " order by bildID desc"
dbOpen(innan)
'### Skriver ut och stänger
If (not objRS.EoF) or (not objRS.BoF) Then
Write "<a href=""?bid=" & objRS("bildID") & "&sida=" & intSida & """><< Föregående</a> "
End If
dbClose
Write " - "
efter = "select bildID from bilder where bildID > " & intBild & " and anvID = " & intAnv & " and mappID = " & intMapp & " order by bildID asc"
dbOpen(efter)
'### Skriver ut och stänger
If (not objRS.EoF) or (not objRS.BoF) Then
Write "<a href=""?bid=" & objRS("bildID") & "&sida=" & intSida & """>Nästa >></a> "
End If
dbClose
255 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2