mi serviva intabellare ii record in 3 celle per ogni riga per il codice che avevo postato all'inizio del topic! infatti per la paiginazione che ho appena scritto (pag. [1][2]) avevo aperto un altro 3d che subito mi è stato chiuso e anche tu mi hai invitato a non ripetere... cmq il primo non l'ho ancora risolto (per intenderci le 3 celle) e per il secondo, volevo aprire un altro 3d, ma non mi sono permesso perché avevo paura che mi venisse nuovamente chiuso.
proprio per quest'ultimo (ossia la paginazione pag. [1][2]) il mio problema (ho dato uno sguardo allo script di roby, ma non mi riesce...
cmq ho aperto un topic chilometrico e non sono riuscito a farmi nemmeno capire... però non è proprio tutto merito mio... ho cercato di spiegarmi... ma...
cmq riepilogando... poi magari l'amministratore se vorrà sarà libero di cancellare tutto il topic... quello che volevoo fare era quello che ho scritto sopra e che riporto nuovamente onde evitare equivoci:
help paginazione 2 |INIZIO|
<html>
<head>
<title>Elenco linee</title>
<link rel="stylesheet" href="indexx.css">
</head>
<body>
<table width="750" height="100%" border="0" align="center" cellpadding="0" cellspacing="8" id="AutoNumber1" style="border-collapse: collapse">
<tr bgcolor="#CCCCCC">
<td height="50" colspan="3" align="center"> </td>
</tr>
<tr>
<td height="30%" colspan="3"><div align="right">[img]icons/cart.gif[/img]<a href="carrello.asp">guarda
il carrello</a></div></td>
</tr>
<tr>
<td width="133" height="100%" rowspan="3" valign="top" bgcolor="#CCCCCC">
</td>
<td width="438" height="300" align="center">
<%
If Len(Session("aperta")) > 0 Then
Else
Session("aperta") = "ok"
Session.LCID = 1040
Dim QuantiArticoliInScontrino
Dim ScontrinoInScontrino()
Dim ScontrinoIDArticolo()
Dim ScontrinoCodiceArticolo()
Dim ScontrinoDenominazioneArticolo()
Dim ScontrinoConfezioneArticolo()
Dim ScontrinoQuantitativoArticolo()
Dim ScontrinoPrezzoArticolo()
Dim NOITEMSINSHOPPINGBASKET
Dim TOOMANYITEMSINSHOPPINGBASKET
Dim INFO_NOITEMSINSHOPPINGBASKET
Dim INFO_TOOMANYITEMSINSHOPPINGBASKET
QuantiArticoliInScontrino = 0
NOITEMSINSHOPPINGBASKET = True
TOOMANYITEMSINSHOPPINGBASKET = False
INFO_NOITEMSINSHOPPINGBASKET = "Il tuo carrello è vuoto."
INFO_TOOMANYITEMSINSHOPPINGBASKET = "Il carrello contiene troppi articoli..."
Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino
Session("ScontrinoInScontrino") = ScontrinoInScontrino
Session("ScontrinoIDArticolo") = ScontrinoIDArticolo
Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo
Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo
Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo
Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo
Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo
Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET
Session("TOOMANYITEMSINSHOPPINGBASKET") = TOOMANYITEMSINSHOPPINGBASKET
Session("INFO_NOITEMSINSHOPPINGBASKET") = INFO_NOITEMSINSHOPPINGBASKET
Session("INFO_TOOMANYITEMSINSHOPPINGBASKET") = INFO_TOOMANYITEMSINSHOPPINGBASKET
Dim IDUtente
Dim SchedaClienteNome
Dim SchedaClienteCognome
Dim SchedaClienteIndirizzo
Dim SchedaClienteCodicePostale
Dim SchedaClienteComune
Dim SchedaClienteProvincia
Dim SchedaClienteTelefono
Dim SchedaClienteFax
Dim SchedaClienteEmail
Dim EMPTYFIELDS
Dim INFO_EMPTYFIELDS
EMPTYFIELDS = False
INFO_EDEMPTYFIELDS = "Compila tutte le informazioni richieste!"
Session("IDUtente") = IDUtente
Session("SchedaClienteNome") = SchedaClienteNome
Session("SchedaClienteCognome") = SchedaClienteCognome
Session("SchedaClienteIndirizzo") = SchedaClienteIndirizzo
Session("SchedaClienteCodicePostale") = SchedaClienteCodicePostale
Session("SchedaClienteComune") = SchedaClienteComune
Session("SchedaClienteProvincia") = SchedaClienteProvincia
Session("SchedaClienteTelefono") = SchedaClienteTelefono
Session("SchedaClienteFax") = SchedaClienteFax
Session("SchedaClienteEmail") = SchedaClienteEmail
Session("EMPTYFIELDS") = EMPTYFIELDS
Session("INFO_EMPTYFIELDS") = INFO_EMPTYFIELDS
Dim IDOrdine
Dim OrdineData
Dim OrdineImporto
Dim OrdineSpeseDiSpedizione
Session("IDOrdine") = IDOrdine
Session("OrdineData") = OrdineData
Session("OrdineImporto") = OrdineImporto
Session("OrdineSpeseDiSpedizione") = OrdineSpeseDiSpedizione
Session("AcquistoOK") = ""
End If
%>
<table width="436" border=0 cellpadding=0 cellspacing=0>
<tr>
<td width="436">
<%
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\databases\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
Dim RecordsetLineeDiCatalogo
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "NumeroArticoli "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "qryLinee"
Set RecordsetLineeDiCatalogo = DatabaseWebStore.Execute(sqlquery)
Dim ID
Dim Denominazione
Dim Informazioni
%>
<TABLE BORDER=0 WIDTH="100%" CELLSPACING=3 CELLPADDING=3>
<%if err=0 then
While Not RecordsetLineeDiCatalogo.EOF
ID = RecordsetLineeDiCatalogo("ID")
Denominazione = RecordsetLineeDiCatalogo("Denominazione")
Informazioni = RecordsetLineeDiCatalogo("Informazioni")
NumeroArticoli = RecordsetLineeDiCatalogo("NumeroArticoli")
%>
<TR>
<TD> <font size="1">
<%if NumeroArticoli>0 then%>
<A HREF="elenco_articoli.asp?idlineadicatalogo=<%=ID% >">
<%end if%>
<%=Denominazione%>
<%if NumeroArticoli>0 then%>
</A>
<%end if%>
<%=Informazioni%></font> <hr>
</TD>
</TR>
<%
RecordsetLineeDiCatalogo.MoveNext
Wend
end if
%>
</TABLE>
<%
RecordsetLineeDiCatalogo.Close
Set RecordsetLineeDiCatalogo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
%>
</TD>
</TR>
<tr>
<td><div align="center"><font size="1">AMMINISTRATORE</font></div></TD>
</TR>
<tr>
<td><hr></TD>
</TR>
<tr>
<td> </TD>
</TR>
<tr>
<td>
</TD>
</TR>
<tr>
<td> </TD>
</TR>
<TR>
<TD align=left> </TD>
</TR>
</table>
</td>
<td width="149" height="100%" rowspan="3" valign="top" bgcolor="#CCCCCC">
</td>
</tr>
<tr>
<td width="438" height="20" align="center" bgcolor="#CCCCCC"> </td>
</tr>
<tr>
<td width="438" height="20" align="center" bgcolor="#CCCCCC"> </td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="55" colspan="3" align="center"> </td>
</tr>
</table>
</body>
</html>
qui mi servirebbe una paginazione orizzontale... tipo quindi tre record e poi a capo altri tre record e via dicendo!
help paginazione 2 |FINE|
________________________________________
__________________________
help paginazione 3 |INIZIO|
<%
Dim Path
'Percorso del database
Path="percorso/"
%>
<script language="JavaScript1.2">
{
function download(loc) {
window. open(loc,'Video','width=400,height=100')
;
}
}
</script>
<%
Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"data.mdb")
Dim SQLDown,RECDown
SQLDown="select * from DOWNLOAD where pcat like 'bandi' order by pdate"
Set RECDown=ConnDown.Execute(SQLDown)%>
...codice html...
<%
While Not RECDown.EOF
%>
...codice html...
<tr>
<td width="70%">&path=<%=path%>');"><span class="testo1"><%=RECDown("NOME")%></span>
| <span class="testo1">Inserito il: <%=RECDown("pdate")%></span></td>
<td width="30%" valign="bottom"> <div align="right"><span class="testo1">scaricato
<%=RECDown("HIT")%></span></div></td>
</tr>
<tr bgcolor="#666666">
<td colspan="2"><div align="center"></div></td>
</tr>
...codice html...
<%
RECDown.MoveNext
WEnd
RECDown.Close
ConnDown.Close
Set RECDown = Nothing
Set ConnDown = Nothing
%>
qui invece mi servirebbe una semplice paginazione tipo pag. [1][2][3]...
help paginazione 3 |FINE|
Rispondi quotando
