<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/db/news.mdb") Set RS = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM galleribilder WHERE GalleriID = 1 ORDER BY ordn;" RS.Open sql, Conn, 3 bildID = Request.QueryString("ID") if Request.Querystring("ID") = "" Then bildID = RS("ID") RS.find "ID = " & bildID iW = RS("IW") iH = RS("IH") bildtext = RS("bildtext") sPath = "images\" & RS("filnamn") RS.MovePrevious If Not RS.BOF then iPrev = RS("ID") RS.MoveNext RS.MoveNext If Not RS.EOF then iNext = RS("ID") RS.MovePrevious %>
" %>
<% if iPrev > " " Then Response.Write "" %> <%=sPath%>
 <% if iNext > " " Then Response.Write "
<%=bildtext%>