<%@ Language=VBScript %> <% usernr = Request.QueryString("usernr") bilder = Request.QueryString("bilder") prevnext = Request.QueryString("to") if prevnext = "prev" then prevnext1 = "<" prevnext2 = "DESC" else prevnext1 = ">" prevnext2 = "ASC" end if MyConn.Open connectme SQLText = "SELECT CONCAT(100-bilder, '_', id+1000) AS bilderid " & _ "FROM medlem " & _ "WHERE bilder > 0 " & _ "AND status <> '1980-01-01' " & _ "AND CONCAT(100-bilder, '_', id+1000) " & prevnext1 & " '" & 100-bilder & "_" & usernr+1000 & "' " & _ "ORDER BY bilderid " & prevnext2 & " LIMIT 1 " rs.Open SQLText, MyConn ' usernr = 109 Do While not rs.EOF usernr = Right(rs.Fields(0), 4) - 1000 rs.MoveNext Loop MyConn.Close Response.Redirect ("depa.asp?usernr=" & usernr) %>