sono due pagine il primo riguarda la paginazione il secondo (quindi la seconda pagina) il popup... beh! si ineffetti forse era inutile postare il secondo codicce... scusatemi!
sono due pagine il primo riguarda la paginazione il secondo (quindi la seconda pagina) il popup... beh! si ineffetti forse era inutile postare il secondo codicce... scusatemi!
attenta allo sportello quando scendi!!!!
Prova questo (te l'ho modificato):
codice:<% 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... <% Cella = 1 While Not RECDown.EOF If Cella = 1 Then Response.Write ("<tr>") end if Response.Write("<td width=""70%"">http://<span class=""testo1"">"" & R...") & ""</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>"") Cella = Cella + 1 If Cella = 4 Then Response.Write "</tr>" Cella = 1 end if RECDown.MoveNext WEnd RECDown.Close ConnDown.Close Set RECDown = Nothing Set ConnDown = Nothing %> il problema è che oltre a questo codice: viene richiamato anche il codice della seconda pagina (un ppup insostanza)che è questo...: <% Dim CODown,path CODown = Request.Querystring("cod") path = Request.Querystring("path") Dim ConnDown Set ConnDown=Server.CreateObject("ADODB.Connection") ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"data.mdb") Dim SQLDown,RECDown,cont SQLDown="select * from DOWNLOAD where COD="&CODown Set RECDown=ConnDown.Execute(SQLDown) cont=RECDown("HIT") cont=cont+1 SQLDown="update DOWNLOAD set HIT="&cont&" where COD="&CODown ConnDown.Execute(SQLDown) %> <html> <head> <title>Download</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta http-equiv="Refresh" content="5; url=<%=RECDown("FILE")%>"> <style type="text/css"> <!-- @import url("style.css"); --> </style> </head> <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="400" border="0" cellspacing="0" cellpadding="3" height="100"> <tr> <td> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">DOWNLOAD</font></div></td> </tr> <tr> <td> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Il download inizierà tra pochi secondi, se hai problemi e non inizia ">clicca qui</font></div></td> </tr> </table> <% RECDown.Close ConnDown.Close Set RECDown=Nothing Set ConnDown=Nothing %> </body> </html>
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
per questo volevo aprire un altro 3d... in "help paginazione3" non voglio una paginazione orizzontale, semplicemente una semplice (scusate il gioco di parole) paginazione... va benissimo quella verticale il problema è che con execute non riesco a creare una semplice paginazione...
mentre invece con "help paginazione 2" il mio intento è quello di effettuare una paginazione orizzontale!
attenta allo sportello quando scendi!!!!
Lascia perdere sti discorsi e prova il codice che ti ho postato sopra, dimmi se va bene.
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03EE)
Previsto ')'
/help_paginazione_3.asp, line 115, column 99
Response.Write("<td width=""70%"">http://<span class=""testo1"">"" & R...") & ""</span>
attenta allo sportello quando scendi!!!!
mi da errore
attenta allo sportello quando scendi!!!!
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|
POTETE AIUTARMI PLEASE!!!!!!!!!!!!!!!!!!!
scusatemi se il post è risultato lunghissimo!
attenta allo sportello quando scendi!!!!
Correggi questo codice da così:Originariamente inviato da serpiko
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03EE)
Previsto ')'
/help_paginazione_3.asp, line 115, column 99
Response.Write("<td width=""70%"">http://<span class=""testo1"">"" & R...") & ""</span>
a così:codice:Response.Write("<td width=""70%"">http://<span class=""testo1"">"" & R...") & ""</span>
codice:Response.Write("<td width=""70%"">http://<span class=""testo1"">"" & R...") & ""</span>")
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
niente sempre errore
attenta allo sportello quando scendi!!!!
Sempre lo stesso errore e sempre la stessa riga?
Prova questa:
codice:<% Response.Write("<td width=""70%"">http://<span class=""testo1"">""" & ...) & """</span>") %>
Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!
Permessi di invio
Rispondi quotando