hejsa NG
jeg har et problem med noget paging. de første billeder kommer
findt men når jeg så vil se side 2 kommer der bare en tom
side...... jeg har en ide om at det er fordi jeg trægger
billederne ud fra tabelen men en form fra en siden hvor man kan
vægle hvad man vil se og det kommer så ikke med til side 2.....
men hvordan får jeg det med til side 2 o.s.v.?
her kommer min kode:
strbil = Request.QueryString("bil")
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM fotoalbum Where kon = '" & strbil & "'"
strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("../databasse/bil.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 3
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " &
intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
%>
<div class="foto">
<a href="foto.asp?id=<%= rs("profilid") %>"><img src="album/<%=
rs("b1") %>.jpg" width="250" height="250"></a>
</div>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "</div>"
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=fotoalbum2.asp?page=" & intNum & ">"
& intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=fotoalbum2.asp?page=" & intPage - 1 &
"><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=fotoalbum2.asp?page=" & intPage + 1 &
">>></a> "
Else
Response.Write ">>"
End If
%>
håber der er en der kan hjælpe med det!
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials