Finde det rigtigte billede med paging
Hej Eksperter!Jeg har på en side listet nogle billeder, se nedenstående:
----------------------------------------------------------
<%
Set RS_pic = Server.CreateObject("ADODB.RecordSet")
RS_pic.open "Select * From [billeder] where film_id = " & rs("id") & " Order by id", Conn_crew, 1, 3
Do while not RS_pic.eof
%>
<a href="popup_picture_movie.asp?id=<%=RS("id")%>">
<img src="../www/pictures/thumbs/<%=RS_pic("filnavn")%>" border="0"></a>
<%
RS_pic.movenext
loop
%>
----------------------------------------------------------
Når man trykker på et af billederne kommer det op i et popup vindue, der så fungerer som et paging site.
Se evt:
http://film.msn.dk/pgs/docs/reviewItem_dk.asp?icn=74326&pi=51516
Trykker man på et af billederne viser den i pop-up'en det billede man har trykket på, samtidig med at paging stadig fungerer.
Det kan jeg ikke helt få til at virke!
Når jeg trykker på et billede viser den altig billede nummer et.
Paging koden er her:
----------------------------------------------------------
<!-- #include file="databaseopkald.inc" -->
<!-- #include file="adovbs.inc" -->
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "Select * From [billeder] where film_id = " & request("id") & " Order by id", Conn_crew, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 1
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Billede " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
%>
<img src="../www/pictures/<%=RS("filnavn")%>" border="0">
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=popup_picture_movie.asp?id=" & request("id") & "&page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=popup_picture_movie.asp?id=" & request("id") & "&page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
----------------------------------------------------------
Håber I kan hjælpe!!!
//Arvin
