<% db = Server.MapPath("db/galleri.mdb") %> S*Swift's Cornish Rex
<% InlaggPerSida = 5 db = Server.MapPath("db/galleri.mdb") Function Fixa(str) Fixa = Replace(Trim(str),"'","''") End function Function FixDigits(Value,Digits) FixDigits = Space(Digits) & Value FixDigits = Right(FixDigits,Digits) FixDigits = Replace(FixDigits," ","0") End Function%> <%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db Set Recset = Server.CreateObject("ADODB.Recordset") Sidan = Request.QueryString("next") If Sidan = "" then sida = 1 Else sida = Sidan End If If Not IsNumeric(sida) Then sida = 1 End If With RecSet .CursorLocation = 3 .CacheSize = InlaggPerSida End With Select Case Request.QueryString("namn") Case "askar" sql_namn = "askar" Case "lucy" sql_namn = "lucy" Case "imse" sql_namn = "imse" Case "imse2" sql_namn = "imse2" Case "mis" sql_namn = "mis" End Select SQL = "Select * From galleri Where namn = '" & sql_namn & "' Order by ID1 desc" RecSet.Open SQL, Conn If Not RecSet.EOF Then With RecSet .MoveFirst .PageSize = InlaggPerSida .AbsolutePage = sida End With Sidor = RecSet.PageCount If Sidor > 1 Then End If X = 0 Do While Not RecSet.EOF And X < RecSet.PageSize%> <% If Trim(RecSet("bild")) <> "" Then %> " border="1"> <% End If %>
<% If Trim(RecSet("info")) <> "" Then %> <% =Trim(RecSet("info")) %> <% End If %>

<%X = X+ 1 Recset.MoveNext Loop If Sidor > 1 Then%> <%For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=FixDigits(Sid,2)%><%Else%> <%=FixDigits(Sid,2)%> <%End If Next %> <% End If End If Recset.Close Set Recset = Nothing Conn.Close Set Conn=Nothing%>