Forrige billede og næste billede - hvordan?

Her er noget kode som kan finde forrige og næste. Det kræver at billederne har et id og at man viser billederne fra mindste id til største id eller omvendt. Billederne kan også vises i en anden rækkefølge bare det er defineret som en kolonne så man kan sortere på det i SQL sætningerne.


<%
id = Request("id")  'Id på det billede som skal vises
katID = Request("katid")  'Id på den kategori billederne er i

'Find næste og forrige ID
SQL = "SELECT TOP 1 ID FROM tabelnavn WHERE kategori = " & katID & " AND ID > " & id
set rs = Conn.Execute(SQL)
if rs.EOF then
  nesteID = ""
else
  nesteID = rs("ID")
end if

SQL = "SELECT TOP 1 ID FROM tabelnavn WHERE kategori = " & katID & " AND ID < " & id & " ORDER BY ID DESC"
set rs = Conn.Execute(SQL)
if rs.EOF then
  forrigeID = ""
else
  forrigeID = rs("ID")
end if



'og så udskrive linksne:

if forrigeID = "" then
  Response.Write "Forrige "
else
  Response.Write "<a href=""?id=" & forrigeID & """>Forrige</a> "
end if

if nesteID = "" then
  Response.Write "Næste "
else
  Response.Write "<a href=""?id=" & nesteID & """>Næste</a> "
end if

%>

SQL = "SELECT TOP 1 * FROM partyPic WHERE partyid='"&request("id")&"' & " AND ID > " & id ORDER BY id DESC "
set rs = Conn.Execute(SQL)

Det forstår den ikke - den siger:

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "SELECT TOP 1 * FROM "]'

Har du et connection object som hedder conn?

arh så lige noget prøv at rette:
SQL = "SELECT TOP 1 * FROM partyPic WHERE partyid='"&request("id")&"' & " AND ID > " & id ORDER BY id DESC "

Til:
SQL = "SELECT TOP 1 * FROM partyPic WHERE partyid='"&request("id")&"' AND ID > " & id & " ORDER BY id DESC "

Har fået det til at virke :-)

Har givet point.