opsætning af billeder i loop
Jeg har følgende kode som bruger Persits ASPJPEG til at lave thumbnails og vise dem. Ud over det har siden en paging funktion som viser 10 billeder pr. side.Mit problem er billederne bliver vist i én lang kolonne. Er det mulight somehow at vise 5 billeder på række, hvorefter scriptet skifter til en ny række og viser de 5 næste på en række, så hver page består af 2 rækker af 5 billeder?
Den er sgu' lidt tricky for mig!
Håber på hjælp!
-mescalito
<%
id = Request.QueryString("id")
%>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM billeder INNER JOIN kategori ON billeder.katID = kategori.id WHERE KatID="& id &""
strDSN = "DSN=billedeDSN"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b class=""text"">Der er ialt " & rs.Recordcount & " opslag. Dette er side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
Path = Server.URLEncode(Server.MapPath(""& rs("kategorinavn") &"") & "\" & rs("billedenavn") & "")
%>
<BR>
<a href="<% = rs("kategorinavn") & "\" & rs("billedenavn")%>" target="_blank"><IMG SRC="sendbinary.asp?path=<% = Path%>&Width=100"></a>
<br>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p class=""text"">Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=thumbtest2.asp?page=" & intNum & "&id="& id &">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=thumbtest2.asp?page=" & intPage - 1 & "&id="& id &"><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=thumbtest2.asp?page=" & intPage + 1 & "&id="& id &">>></a> "
Else
Response.Write ">>"
End If
%>
