Hej Alle
Jeg har hentet noget paging kode til min grafikside - tilsat lidt script så grafikken ikke fylder så meget - og det virker perfekt. Vil jeg så opdele og hente grafikken i forskellige kategorier såsom mennesker, dyr, bil osv. så vises kun side 1, efterfølgende sider er tomme. Har nogen derude et forklaring på dette?
På forhånd tak. mvh René
kode herunder:
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
StrSQL = "SELECT * FROM grafik WHERE kategori_navn = '" & request("kategori_navn") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/hh.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 16
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p>Side " & intPage & " af " & intPageCount & "</p>"
Do While Not rs.EOF And intRecCount > 0
i = Int(i + 1)
s_gfx = rs("grafik_adresse")
s_gfx = Replace(s_gfx, "<img ", "<img style=""height:140px;width:140px;"" ", 1, -1, 1)
Response.Write("<a href=valg_design.asp?grafik_navn=" & rs("grafik_navn") & ">" & s_gfx & "</a>")
If i = 4 Then
Response.Write ("<br />")
i = 0
End If
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
|