23 messaggi dal 03 novembre 2003
Salve a tutti , AIUTATEMI VI PREGO,
sono riuscito bruciandomi gli occhi a creare un carrello della spesa funzionale, il problema è che non riesco a recuperare i dati dai campi del carrello e trasportarli in una pagina successiva quella di conferma.

Se faccio un form solitamente recupero i dati con l'oggetto request.form e mi va bene

ma in questo caso i prodotti inseriti nel carrello non fanno parte di un form e non so come trasformarli in campi di testo per inviarli in un altra pagina.

AIUTATEMI PER PIETA' :)
181 messaggi dal 06 luglio 2001
Dove salvi i dati del carrello? In una variabile di sessione? In un DB?

Dovresti essere più chiaro su quello che sei riuscito a fare (e come lo hai fatto) e cosa ancora ti manca.

Ciao
Baxeico

-- Sciusciá e sciurbí nu se pö --
23 messaggi dal 03 novembre 2003
Sono riuscito a capire dove sbagliavo, utilizzavo male il salvataggio dei dati nel db e quindi non riuscivo a recuperarli...
il problema adesso è un altro::

Salve a tutti, avrei un problema per me abbastanza complicato da risolvere mi rivolgo per tanto a qualcuno che mi possa dare una mano.
Ho realizzato un carrello della spesa scopiazzando codici qua e là, diciamo che infine sono riuscito a farlo funzionare
adesso devo adattarlo meglio alle mie esigenze e non ci riesco.

Ho 2 pagine

la prima si chiama elenco_linee.asp
(dove ci sono le categorie, ad esempio:
-Processori
-Schede video
-Schede audio e via dicendo

la seconda pagina invece si chiama elenco_articoli.asp
(dove ci sono gli articoli provenienti dalle categorie
della prima pagina)

il problema sara sicuramente risolvibile per voi perchè non penso sia poi tanto difficile da risolvere.

Vorrei mettere nella stessa pagina asp tutti e 2 i codici.
Cioè, mi spiego meglio
Vorrei avere le categorie sempre visibili nella parte sinistra del mio sito e nello stesso tempo l'elenco degli articoli nella parte centrale, ho provato a copiare i vari codici insieme col dreamweaver ma mi danno l'errore, probabilmente vanno in conflitto, per tanto vi scrivo il codice delle 2 pagine e vi chiedo umilmente di darmi una mano.


--------------Pagina elenco_linee.asp ------------------------------

<%
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 border=0 cellpadding=0 cellspacing=0><tr><td>
<%
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\mdb-database\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>
<%if NumeroArticoli>0 then%><A HREF="elenco_articoli.asp?idlineadicatalogo=<%=ID%>">
<%end if%><B><%=Denominazione%></B>
<%if NumeroArticoli>0 then%></A>
<%end if%><BR>
<font size=-1><%=Informazioni%></font>
</TD>
</TR>
<%
RecordsetLineeDiCatalogo.MoveNext
Wend
end if
%>
</TABLE>
<%
RecordsetLineeDiCatalogo.Close
Set RecordsetLineeDiCatalogo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
%>
</TD></TR>
<tr><td>&nbsp;</TD></TR>
<TR><TD align=left>
</TD></TR></table>
&nbsp;<p>&nbsp;</td>
<td width="150" height="100%" rowspan="3" valign="top">
<p>&nbsp;</td>
</tr>
<tr>
<td width="450" height="20" align="center">&nbsp;
</td>
</tr>
<tr>
<td width="450" height="20" align="center">&nbsp;
</td>
</tr>
<tr>
<td width="100%" height="55" colspan="3" align="center">&nbsp;
</td>
</tr>
</table>

</body>

</html>


--------------------------------------Pagina elenco_articoli.asp---------------------------



<table border="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="638" cellspacing="8" cellpadding="0">
<tr>
<td width="100%" height="42" colspan="3" align="center">&nbsp; </td>
</tr>
<tr>
<td width="100%" height="11" colspan="3"></td>
</tr>
<tr>
<td width="150" height="498" rowspan="3" valign="top">&nbsp; </td>
<td width="450" height="425" align="center">
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td>
<%if len(Session("aperta")) > 0 then
idlineadicatalogo = Request.QueryString("idlineadicatalogo")
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\mdb-database\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
If Len(idlineadicatalogo) = 0 Then%>
<%Else%>
<%
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Codice, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "InformazioniEstese, "
sqlquery = sqlquery & "Confezione, "
sqlquery = sqlquery & "Prezzo, "
sqlquery = sqlquery & "RiferimentoDiIcona, "
sqlquery = sqlquery & "RiferimentoDiFoto "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "[Catalogo, Articoli] "
sqlquery = sqlquery & "where "
sqlquery = sqlquery & "IDLinea = " & idlineadicatalogo & " "
sqlquery = sqlquery & " And "
sqlquery = sqlquery & "InVendita=true "
Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
<%
Dim ID
Dim Codice
Dim Denominazione
Dim Informazioni
Dim InformazioniEstese
Dim Confezione
Dim Prezzo
Dim RiferimentoDiIcona
Dim RiferimentoDiFoto
%>
<%If RecordsetArticoli.EOF Then%>
<%Else%>
<table border=0 cellspacing=6 cellpadding=0>
<%if err=0 then
While Not RecordsetArticoli.EOF%>
<%
ID = RecordsetArticoli("ID")
Codice = RecordsetArticoli("Codice")
Denominazione = RecordsetArticoli("Denominazione")
Informazioni = RecordsetArticoli("Informazioni")
InformazioniEstese = RecordsetArticoli("InformazioniEstese")
Confezione = RecordsetArticoli("Confezione")
Prezzo = RecordsetArticoli("Prezzo")
RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>
<tr valign="TOP">
<td>
<%If RiferimentoDiIcona <> "" Then%>
<a href="scheda_articolo.asp?idarticolo=<%=ID%>">
<img src="<%=RiferimentoDiIcona%>" border=0 width="32" height="32">
</a>
<%else%>
&nbsp;
<%End If%>
</td>
<td> <a href="scheda_articolo.asp?idarticolo=<%=ID%>">
<b><%=Denominazione%></b> </a> <br>
<%=Informazioni%>
<p> <b>Prezzo &euro; <%=FormatNumber(Prezzo, 2, -1, 0, -1)%></b>
</td>
<td valign=bottom> <a href="carrello.asp?idarticolo=<%=ID%>">
<img src="icons/cart.gif" alt="Inserisci nel carrello" border=0>
</a> </td>
</tr>
<tr>
<td colspan=3>&nbsp;</td>
</tr>
<%RecordsetArticoli.MoveNext%>
<%Wend
end if%>
</table>
<%End If%>
<%End If%>
<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>
<h4><a href="elenco_linee.asp">La sessione è scaduta.
Torna all'Home Page</a></h4>
<%end if
%>
</td>
</tr>
<tr>
<td align=left> </td>
</tr>
</table>
&nbsp;</td>
<td width="150" height="498" rowspan="3" valign="top">
<p>&nbsp;
</td>
</tr>
<tr>
<td width="450" height="29" align="center"> <a href="elenco_linee.asp">Torna
al catalogo</a> | <a href="carrello.asp">Guarda il carrello</a></td>
</tr>
<tr>
<td width="450" height="28">&nbsp;</td>
</tr>
<tr>
<td width="100%" height="55" colspan="3" align="center">&nbsp; </td>
</tr>
</table>

---------------------------------------------------Fine-------------------------------------------------
Problema !!!
Come faccio ad unire tutte e 2 le pagine insieme senza mandarle in conflitto e facendo in modo
che il menu delle linee mi rimanga sempre sul lato sinistro del sito, anche quando visualizzo il dettaglio
degli articoli selezionati????
HELP ME PLEASE:) grazie a tutti in anticipo


Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.