% db = Server.MapPath("db/galleri.mdb") %>
<%
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%> |