ciao utilizzo il seguente codice per leggere delle immagini da una database e dividerle in + pagine
codice:
<%
dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter
dim count
count=0
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("mdb-database/immagini.mdb") & ";" & _
"Persist Security Info=True"
Conn.Open(sConnection)
recordsonpage = 9
allrecords = 0
set rs = conn.Execute("SELECT * FROM immagini")
do until rs.EOF
allrecords = allrecords + 1
rs.movenext
loop
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
requestrecords = 0
else
requestrecords = requestrecords + offset
end if
set rs = conn.Execute("SELECT * FROM immagini ORDER BY id DESC")
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
hiddenrecords = hiddenrecords - 1
rs.movenext
if rs.EOF then
lastrecord = 1
end if
loop
showrecords = recordsonpage
recordcounter = requestrecords
do until showrecords = 0 OR rs.EOF
recordcounter = recordcounter + 1
nomefile = rs("nomefile")
if nomefile = "" then
response.write "Non ci sono immagini nel database"
else
if count=0 then
response.write "<table style='WIDTH:100%' cellSpacing='0' cellPadding='1' align='center><tr>"
end if
if count=3 then
count=1
response.write "</tr>"
response.write "<tr><td><a rel='lightbox' href='immagini/normali" & nomefile
response.write "'><img src='immagini/piccole/" & nomefile
response.write "' width='290' height='200' style='border:0px'/></a>" & count & "</td>"
else
count=count+1
response.write "<td><a rel='lightbox' href='immagini/normali/" & nomefile
response.write "'><img src='immagini/piccole/" & nomefile
response.write "' width='290' height='200' style='border:0px'/></a>" & count & "</td>"
end if
end if
showrecords = showrecords - 1
rs.movenext
if rs.EOF then
lastrecord = 1
end if
loop
response.write "</table>"
response.write "<table cellspacing='2' cellpadding='2' width='400' align='center' style='border-width:0'><tr><td>"
if requestrecords <> 0 then
response.write"<a href='immagini.asp?offset="
%>
<% = requestrecords - recordsonpage %>
<%
response.write "'>Indietro</a>"
else
response.write "Indietro"
end if
response.write "</td><td>"
if lastrecord <> 1 then
response.write "<a href='immagini.asp?offset="
%>
<% = requestrecords + recordsonpage %>
<%
response.write "'>Avanti</a>"
else
response.write "Avanti"
end if
response.write "</td></tr><tr><td colspan='2'>Pagine: "
pagelist = 0
pagelistcounter = 0
do until pagelist > allrecords
pagelistcounter = pagelistcounter + 1
response.write "<a href='immagini.asp?offset="
%>
<% = pagelist %>
<% response.write "'>" %>
<% = pagelistcounter %>
<% response.write "</a> - "
pagelist = pagelist + recordsonpage
loop
response.write "</td></tr></table>"
%>
e funzionava benissimo fino a ke io ho voluto mettere in una tabella le immagini in tre colonne x ogni riga.
quindi ho aggiunto il seguente codice
codice:
if nomefile = "" then
response.write "Non ci sono immagini nel database"
else
if count=0 then
response.write "<table style='WIDTH:100%' cellSpacing='0' cellPadding='1' align='center><tr>"
end if
if count=3 then
count=1
response.write "</tr>"
response.write "<tr><td><a rel='lightbox' href='immagini/normali" & nomefile
response.write "'><img src='immagini/piccole/" & nomefile
response.write "' width='290' height='200' style='border:0px'/></a>" & count & "</td>"
else
count=count+1
response.write "<td><a rel='lightbox' href='immagini/normali/" & nomefile
response.write "'><img src='immagini/piccole/" & nomefile
response.write "' width='290' height='200' style='border:0px'/></a>" & count & "</td>"
end if
end if
mi funziona lo stesso però la prima fila di immagini in alto mi appare scompattata, nel senso ke mi mette prima una sopra (dove nn funziona nemmeno il link) e due sotto. poi x il resto me le divide a tre colonne x ogni riga.
secondo voi dove ho sbagliato?
portate pazienza x favore