Paging - nästa bild

Har typ ett galleri som visar bilder osv. Bilderna ligger uppdelade i olika mappar...
Hur ska jag få fram/tillbaka knappar på det hela?

		visaBild = "select bilder.* from bilder where " & _
		" bilder.bildID = " & intBild & ""

		With objRS
		 .Cursorlocation = 3
		 .Open visaBild, objConnect
		End With

		If (not objRS.EoF) or (not objRS.BoF) Then

		Write "<table style=""border: 0px;"">"

		While Not objRS.EoF

			Write "<table style=""border: 0px"" align=""center""><tr><td>"

			Write "<b>" & objRS("fil") & " - " & objRS("datum") & "</b><br />"
			Write "<img src=""" & objRS("anvID") & "/" & objRS("fil") & """ border=""0"" alt=""" & objRS("fil") & """><br />"
			Write objRS("beskrivning") & "<br /><br />"

  		objRS.Movenext
		Wend

Saken är det att jag vill inte ha fram nästa ID utan nästa ID som tillhör den kategorin... låter kanske lite konstigt...

http://www.webforum.nu/search.php?s=&action=showresults&searchid=259687&sortby=lastpost&sortorder=descending

Kanske finns något där?

ne jag får inte fram svaret på min fråga där...
Alltså jag visar en bild genom ett id som jag får via en QueryString
Jag visar bara en bild åt gången så vet inte om jag behöver paging... det jag vill nu är att få fram framåt o tillbaka länkar bara.

		If (not objRS.EoF) or (not objRS.BoF) Then
			Write "<a href=""?bid=" & objRS("bildID") & "&sida=" & intSida & """>&lt;&lt; Föregående</a> "
		End If

Det är ovanstående jag vill uppnå men saken är att föregående bild kanske inte har bildID -1 skulle mkt väl kunna vara bildID -10 beroende på hur många andra bilder som laddats upp av någon annan imellan... Jag vill på nåt sätt ta ut det ID som ligger före det jag e på...
Alltså bilderna ligger i olika mappar med hjälp av mappID, hur gör jag för att få fram bilden som ligger framför respektive bakom nuvarande id?

Bifogar hela koden nedan:

	'### Visar bild (bid)
	If Not Request.QueryString("bid") = False Then

		'### Ger intBild id från en querystring
		intBild = Request.QueryString("bid")
		intSida = Request.QueryString("sida")

		'### Öpnnar ett RS med angiven sql-sats
				[b]visaBild = "select bilder.*, mappar.namn as mappNamn from bilder, mappar where " & _
		" bilder.bildID = " & intBild & _
		" and mappar.mappID = bilder.mappID "	[/b]	dbOpen(visaBild)

		'### Skriver ut och stänger
		If (not objRS.EoF) or (not objRS.BoF) Then

			Write "<table style="" width: 352; border: 0px"" align=""center""><tr><td>"

			If Not objRS("width") = 352 Then
				width = (objRS("width") / 352)
				height = (objRS("height") / width)
			Else
				height = 288
			End If

			Write "<span class=""rubrik"">" & objRS("fil") & " - " & objRS("datum") & "</span><br /><br />"
			Write "<img width=""352"" height=""" & height & """ src=""" & objRS("anvID") & "/" & objRS("fil") & """ border=""0"" alt=""" & objRS("fil") & """>"
			If Not objRS("width") = 352 Then Write "<a href=""" & objRS("anvID") & "/" & objRS("fil") & """ target=""_blank"" title=""Klicka för att förstora""><img src=""max.jpg"" style=""border: 0; margin: 0 0 6px -50px;"" /></a>"
			Write "<br />" & objRS("beskrivning") & "<br /><br />"

			intAnv = objRS("anvID")
			intMapp = objRS("mappID")

		dbClose

		innan = "select bildID from bilder where bildID = (" & intBild & " - 1) and anvID = " & intAnv & " and mappID = " & intMapp & " "
		dbOpen(innan)

		'### Skriver ut och stänger
		If (not objRS.EoF) or (not objRS.BoF) Then
			Write "<a href=""?bid=" & objRS("bildID") & "&sida=" & intSida & """>&lt;&lt; Föregående</a> "
		End If
		dbClose

			Write " - "

		innan = "select bildID from bilder where bildID = (" & intBild & " + 1) and anvID = " & intAnv & " and mappID = " & intMapp & " "
		dbOpen(innan)

		'### Skriver ut och stänger
		If (not objRS.EoF) or (not objRS.BoF) Then
			Write "<a href=""?bid=" & objRS("bildID") & "&sida=" & intSida & """>Nästa &gt;&gt;</a> "
		End If
		dbClose

		If Not Request.QueryString("sida") = False Then

			Write "<br /><a href=""?mid=" & intMapp & "&sida=" & intSida & """>Tillbaka till sida " & intSida & "</a>"

		Else
			Write "<br /><a href=""?mid=" & intMapp & """>Tillbaka...</a>"
		End If
			Write "</td></tr></table>"
			
		Else

			Write "Bilden du söker finns inte..."
			tebax

		End If

nån? Redigerade ovanstående inlägg...