/ Forside/ Teknologi / Udvikling / ASP / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
paging med kategori valg?
Fra : happydays
Vist : 243 gange
33 point
Dato : 15-08-06 15:20

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 & ">&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
Response.Write "&gt;&gt;"
End If
%>


 
 
Du har følgende muligheder
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
Søg
Reklame
Statistik
Spørgsmål : 173634
Tips : 31664
Nyheder : 719565
Indlæg : 6383602
Brugere : 218258

Månedens bedste
Årets bedste
Sidste års bedste