help paginazione 2

[maximum]

Prova così:

<%if err=0 then 
        Cella = 1 
	While Not RecordsetLineeDiCatalogo.EOF 
	
		ID = RecordsetLineeDiCatalogo("ID") 
		Denominazione = RecordsetLineeDiCatalogo("Denominazione") 
		Informazioni = RecordsetLineeDiCatalogo("Informazioni") 
		NumeroArticoli = RecordsetLineeDiCatalogo("NumeroArticoli") 
	
		If Cella = 1 Then 
		   Response.Write("<tr>" & vbcrlf) 
		end if 
	
		Response.Write("<TD><font size='1'>"  & vbcrlf) 
		
		if NumeroArticoli > 0 then 
		   Response.write("<A HREF='elenco_articoli.asp?idlineadicatalogo=" & ID & "'>" & vbcrlf)
		end if 
		
		Response.Write("" & Denominazione & "" & vbcrlf)
		
		if NumeroArticoli > 0 then
		   Response.write("</A>" & vbcrlf)
		end if   
		
		Response.write("
" & vbcrlf)
		Response.write(Informazioni & "</font> <hr>" & vbcrlf)
		Response.write("</TD>" & vbcrlf)
	
		Cella = Cella + 1
		
		If Cella = 4 Then 
		   Response.Write "</tr> & vbcrlf" 
		   Cella = 1 
		end if		
	
		RecordsetLineeDiCatalogo.MoveNext 
	
	Wend 
end if 
%>

Cambia qualcosa?

[serpiko]

si... che voglio sposarti!!
sei un grande!!! funziona alla perfezione
che mi dici dell'altro mio problema!!!!!!!!!!: http://forum.html.it/forum/showthrea...08#post9018108 !!!!!!!!

[maximum]

Bene.

[serpiko]

scusami max un ultimo aiuto... con questa riga:
Response.Write "<td align=""center"" width=""135"">" & vbcrlf & "<table width=""100%""><tr><td align=""center"" height=""110""><table><tr><td>[img][/img]" & "</td></tr></table></td></tr><tr><td align=""center"">" & objfile.name & "
" & objfile.size & "byte
" & objFile.DateCreated & "
Delete</td></tr></table>
" & vbcrlf & "</td>" & vbcrlf
ho lo stesso problema che avevo con il codice che mi hai corretto e che quoto! puoi verificare se c'è qualcosa di sbagliato

Originariamente inviato da serpiko
kazzarola non posso perché lavoro in locale...
cq in pratica fa così:
record 1
record 2 record 6
record 3 record 7 record 10
record 4 record 8 record 11
record 5 record 9


invece io vorrei fosse tutto pari tipo

record 1 record 5 record 9
record 2 record 6 record 10
record 3 record 7 record 11
record 4 record 8

al limite se se non ho l'ultimo record pace... vuol dire che sarà solo l'ultimo spazio a risultare vuoto... non so se mi spiego!

[maximum]

Vedi ora (ti ho sistemato un po' le Response.

<%
Response.Write("<td align=""center"" width=""135"">" & vbcrlf)
   Response.Write("<table width=""100%""><tr><td align=""center"" height=""110"">" &vbcrlf)
      Response.Write("<table><tr><td>[img][/img]" &vbcrlf) 
      Response.Write("</td></tr></table>" & vbcrlf)
   Response.Write("</td></tr>" & vbcrlf)
   Response.Write("<tr><td align=""center"">" & objfile.name & "
" & objfile.size & " byte
" & objFile.DateCreated & "
 Delete</td></tr>" & vbcrlf)
   Response.Write("</table>
" & vbcrlf) 
Response.Write("</td>" & vbcrlf) 
%>

[serpiko]

nn va bene adesso ,i da altre quattro colonne sempre sfasate fra loro... a questo punto... ti posto il codice della pagina che facciamo prima:

<script SRC="upload.js"></SCRIPT>
<script language="Javascript1.2">
<!--
function elimina()
{
return confirm("Sei sicuro di voler eliminare il file ?");
}
-->
</script>
<%
Response.Expires = 0
Response.Buffer = TRUE
'Response.Clear
%>

<%
'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader
Dim Uploader, File
Set Uploader = New FileUploader

'Impostiamo la dimensione max della somma dei file in byte
'Uploader.maxSize = 50000 '50kb

'Impostiamo la dimensione max del file in byte
Uploader.maxFileSize = 500000000 '50kb

'Impostiamo il tipo di file ammessi
Uploader.fileExt = "pdf,doc,xls,zip"

'Impostiamo se sovrascrivere file già presenti
Uploader.OverWrite = True 'True sovrascrivi - False cambia nome in nomefileN.ext dove N è un numero incrementale

'Iniziamo il processo di upload
Uploader.Upload()

'Recuperiamo i campi del form
nome = Uploader.Form("nome")
If Trim(nome) = "" Then nome = "Non inserito"

cognome = Uploader.Form("cognome")
If Trim(cognome) = "" Then cognome = "Non inserito"

sesso = Uploader.Form("sesso")
If sesso = "0" Then
sesso = "Maschile"
Else
sesso = "Femminile"
End If

'Visualizziamoli
%>
<html>
<head>
<title>byluciani.com -- Risultato upload</title>
<style type="text/css">
<!--
@import url("upload.css");
-->
</style>
</head>
<body>
<center>
[inserisci il file .zip]
<form action="form_upload.htm">
<table border="0" width="400" bgcolor="#000080" cellspacing="0" cellpadding="0">
<tr>
<td width="5%" align="center" bgcolor="#6699CC"><div align="left"><font face="Tahoma" color="#FFFFFF" size="2">[img]images/angolosx.gif[/img]</font></div></td>
<td width="89%" align="center" bgcolor="#6699CC"><font face="Tahoma" color="#FFFFFF" size="2">Risultato</font></td>
<td width="6%" align="center" bgcolor="#6699CC"><div align="right"><font face="Tahoma" color="#FFFFFF" size="2">[img]images/angolodx.gif[/img]</font></div></td>
</tr>
<tr>
<td colspan="3"> <table border="0" width="100%" bgcolor="#FFFFFF" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center"></td>
</tr>
<tr>
<td width="100%"><font face="Tahoma" size="2" color="#000080">Nome:<%=nome%></font></td>
</tr>
<tr>
<td width="100%"></td>
</tr>
<%
strPath = Server.MapPath("/zip/") & "\"

'Controlliamo se sono stati inviati dei file
If Uploader.Files.Count = 0 Then
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma">Nome
file:Nessun file inviato.</font></td>
</tr>
<%
If Uploader.Error Then
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma">Errore:<%=Uploader.ErrorDesc%></font></td>
</tr>
<%
End If
Else

'Ciclo tra i file inviati
For Each File In Uploader.Files.Items

'Salvo il file
File.SaveToDisk strPath

'Mostriamo i dettagli dei file salvati
%>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma">Nome
file:<%=File.FileName%></font></td>
</tr>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma">Dimensioni:<%=File.FileSize%>byte</font></td>
</tr>
<tr>
<td width="100%"><font color="#000080" size="2" face="Tahoma">Tipo:<%=File.ContentType%></font></td>
</tr>
<%
Next

End If
%>
<tr>
<td width="100%"></td>
</tr>
<tr>
<td width="100%" align="center"><input type="submit" name="enter" value="Ancora"></td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table></td>
</tr>
</table>
</form>

<%
Dim objFSO, objFolder, objFile

Set objFSO = server.createobject("scripting.filesystemobject")
Set objFolder = objFSO.getfolder(strpath)

fileMAX = 30
intTotalFiles = objFolder.Files.Count
If objFolder.Files.Count MOD fileMAX = 0 Then
intTotalPages = Int(objFolder.Files.Count/fileMAX)
Else
intTotalPages = Int(objFolder.Files.Count/fileMAX)+1
End If
%>
<table border="0" width="550" cellspacing="0" cellpadding="0" bgcolor="#6699CC">
<tr>
<td width="20">[img]images/angolosx.gif[/img]</td>
<td width="510" align="center"><font size="2" face="Tahoma" color="#F7F7F7">Archivio (Immagini totali: <%=intTotalFiles%>)</font></td>
<td width="20" align="right">[img]images/angolodx.gif[/img]</td>
</tr>
</table>
<table border="0" width="550" cellspacing="0" cellpadding="0" bgcolor="#f7f7f7" style="border: 1 solid #6699CC">
<tr>
<td>
<table width="540" cellspacing="0" cellpadding="0">
<%
If intTotalFiles > 0 Then
col = 0
imagecounter = 1

If Request.QueryString("page").Count > 0 Then
intPageNum = CInt(Request.QueryString("page"))
Else
intPageNum = 1
End If


For Each objFile in objFolder.Files

'Response.Write imagecounter & "-" & (intPageNum*4)-3 & "-" & (intPageNum*4) &"
"

If (imagecounter >= (intPageNum*fileMAX)-(fileMAX-1)) And (imagecounter <= (intPageNum*fileMAX)) Then
col = col + 1
If col = 1 Then Response.Write "<tr>" & vbcrlf
'he = ImageHeight(StrPathShort & objfile.name)
'wi = ImageWidth(StrPathShort & objfile.name)
'resized = ImageResize(StrPathShort & objfile.name, 100, 100, "center")
Response.Write "<td align=""center"" width=""135"">" & vbcrlf & "<table width=""100%""><tr><td align=""center"" height=""110""><table><tr><td>[img][/img]" & "</td></tr></table></td></tr><tr><td align=""center"">" & objfile.name & "
" & objfile.size & "byte
" & objFile.DateCreated & "
Delete</td></tr></table>
" & vbcrlf & "</td>" & vbcrlf
If col = 4 Then
Response.Write "</tr>" & vbcrlf
col = 0
End If
'If col > 4 Then col = 1
End If

imagecounter = imagecounter + 1
'If imagecounter > fileMAX Then Exit For
Next

If col > 0 AND col < 4 Then
For colonne = col+1 To 4
Response.Write "<td width=""135""></td>" & vbcrlf
Next
Response.Write "</tr>" & vbcrlf
End If

Else
%>
<tr><td align="center"></td></tr>
<tr><td align="center">Non ci sono immagini</td></tr>
<tr><td align="center"></td></tr>
<%
End If
%>
</table>
</td>
</tr>
<tr>
<td align=center>
<table width="80%" cellspacing="0" cellpadding="0">
<tr><td colspan="3" align="center"><font face=Tahoma size=2 color="#000080">Pagina <%=intPageNum%> di <%=intTotalPages%></font></td></tr>
<tr><td colspan="3" align="center"></td></tr>
<tr><td width="33%">
<%
If intPageNum > 1 Then
Response.Write("&#171; Precedente ")
End If
%>
</td>
<form method="get" action="default.asp" name="paginazione">
<td width="34%" align="center"><font face=Tahoma size=2 color="#000080">
Vai a pagina </font><select name="page" onchange="javascriptaginazione.submit()">
<%
For ll = 1 to intTotalPages
%>
<option value="<%=ll%>"<%If ll=intPageNum Then Response.Write " selected"%>><%=ll%></option>
<%
Next
%>
</select>
</td>
</form>
<td width="33%" align="right">
<%
If intPageNum < intTotalPages Then
Response.Write(" Seguente &#187;")
End If
%>
</td></tr>
</table>


</td>
</tr>
</table>
<%
set objfolder = Nothing
set objfso = nothing
%>
</center>
</body>
</html>
in pratica funziona uttto e benissimo, anche la paginazione funziona (quattro colonne ecc...), l'unico problema è che i risultati vengono fuori sfasati e cioè come nel problema che hai risolto prima e che ho quotato! (spero di essermi espresso in maniera non dico decenta, ma quasi)

[maximum]

Dimmi una cosa, il problema ti si presenta in questo blocco del codice sopra postato?

'Ciclo tra i file inviati 
For Each File In Uploader.Files.Items 

'Salvo il file 
File.SaveToDisk strPath 

'Mostriamo i dettagli dei file salvati 
%> 
<tr> 
<td width="100%"><font color="#000080" size="2" face="Tahoma"> Nome 
file: <%=File.FileName%></font></td> 
</tr> 
<tr> 
<td width="100%"><font color="#000080" size="2" face="Tahoma"> Dimensioni: <%=File.FileSize%> byte</font></td> 
</tr> 
<tr> 
<td width="100%"><font color="#000080" size="2" face="Tahoma"> Tipo: <%=File.ContentType%></font></td> 
</tr> 
<% 
Next

Se no, indicami a partire da dove, fino a dove ti si presenta il problema, oppure posta il link dove potere vedere la pagina che presenta il problema.

[serpiko]

il prolema dovrebbe essere qui:
For Each objFile in objFolder.Files

'Response.Write imagecounter & "-" & (intPageNum*4)-3 & "-" & (intPageNum*4) &"
"

If (imagecounter >= (intPageNum*fileMAX)-(fileMAX-1)) And (imagecounter <= (intPageNum*fileMAX)) Then
col = col + 1
If col = 1 Then Response.Write "<tr>" & vbcrlf
'he = ImageHeight(StrPathShort & objfile.name)
'wi = ImageWidth(StrPathShort & objfile.name)
'resized = ImageResize(StrPathShort & objfile.name, 100, 100, "center")
Response.Write "<td align=""center"" width=""135"">" & vbcrlf & "<table width=""100%""><tr><td align=""center"" height=""110""><table><tr><td>[img][/img]" & "</td></tr></table></td></tr><tr><td align=""center"">" & objfile.name & "
" & objfile.size & " byte
" & objFile.DateCreated & "
Delete</td></tr></table>
" & vbcrlf & "</td>" & vbcrlf
If col = 4 Then
Response.Write "</tr>" & vbcrlf
col = 0
End If
'If col > 4 Then col = 1
End If

imagecounter = imagecounter + 1
'If imagecounter > fileMAX Then Exit For
Next

If col > 0 AND col < 4 Then
For colonne = col+1 To 4
Response.Write "<td width=""135""> </td>" & vbcrlf
Next
Response.Write "</tr>" & vbcrlf
End If

Else

[maximum]

Prova a semplificarlo così:

<%
col = 1 
For Each objFile in objFolder.Files 

	If (imagecounter >= (intPageNum*fileMAX)-(fileMAX-1)) And (imagecounter <= (intPageNum*fileMAX)) Then 
	
		If col = 1 Then 
		   Response.Write("<tr>" & vbcrlf) 
		end if
		
		Response.Write("<td align=""center"" width=""135"">" & vbcrlf)
		Response.Write("<table width=""100%""><tr><td align=""center"" height=""110"">" & vbcrlf)
		   Response.Write("<table><tr><td>[img][/img]</td></tr></table>" &vbcrlf)
		Response.Write("</td></tr>" & vbcrlf)
		Response.Write("<tr><td align=""center"">" & objfile.name & "
" & objfile.size & " byte
" & objFile.DateCreated & "
 Delete</td></tr>" & vbcrlf)
		Response.Write("</table>" & vbcrlf)
		Response.Write("</td>" & vbcrlf)
	
		col = col + 1
	
		If col = 4 Then 
		   Response.Write "</tr>" & vbcrlf 
		   col = 1
		End If 

	End If 
	
	imagecounter = imagecounter + 1 
Next 
%>

[serpiko]

fatto ma sempre sfasato è... cmq non fa nulla... va bene anche così... grazie di cuore!