Newsgroup: it.comp.www.asp
Titolo: Carrello della Spesa

Salve avrei bisogno di un piccolo "carrello della spesa" per una 30/40 di
prodotti ed ho pensato di realizzarlo in asp, vi sarei profondamente grato
se mi indicaste un sito dove prelevarne uno già confezionato da poter
adattare alle mie esigenze con piccole modifiche.
Grazie
Maurizio

 prodotti ed ho pensato di realizzarlo in asp, vi sarei profondamente grato
Vedi 
www.aspitalia.com
Davide

 ha scritto nel messaggio
news:92dls4$bf...@news.edisons.net...

vedi su 
http://www.urlogy.com/asp/ashopkart.asp
ciao
--
Kappa
kappa**nospam**@
webngo.net
www.webngo.net



Ciao,
ho realizzato da poco una cosa simile.
Ho trovato in rete i seguenti articoli che spiegano come fare in modo
abbastanza semplice:
- 
http://www.asptoday.com/articles/20000512.htm
ti raccomando questo articolo in quanto spiega come realizzare un
carrello usando una classe in VBScript (è stata l'occasione per
impararle ed usarle). L'articolo è semplice. Leggi inoltre i commenti
degli utenti per alcuni ulteriori miglioramenti e scarica la documentazione.
Se ti interessa la classe l'ho migliorata è corretta e presto la sistemerò
passando da un array di 20 elementi ad un array variabile.
- 
http://www.asptoday.com/articles/20000828.htm
- 
http://www.asptoday.com/articles/20001025.htm
Ti consiglio anche la serie di 3 articoli su 
www.aspitalia.com
,
sicuramente interessante è la terza parte anche se, da prove
fatte in modo molto superficiale, mi sembra che ci sia un effetto
collaterale se due utenti accedono al carrello.
Inoltre per renderti conto delle funzionalità che un carrello deve implementare
vai su 
www.altavista.com
 e certa "shopping cart" +example.
A presto,
corradoLE...@tiscalinet.it
[Rimuovere LEVA]
http://members.websamba.com/Message-Board
ICQ 7044062
Como - Italy

Salve ho apportato delle piccole modifiche al carrello suggeritomi da KAPPA,
personalizzandolo e traducendo in italiano le cose che mi interessavano, il
sito pare funzionare per quanto riguarda la collocazione dei prodotti (è
abbastanza semplice) ma non riesco a capire come mai anche se il mio browser
è abilitato ad accettare i cookies, appena chiedo di inserire il prodotto
nel database mi risponde che il mio browser non è abilitato ad accettare
cookies. Ritengo che il file incriminato debba essere questo... potete darmi
una dritta.
Grazie
<!-- #include file="db.asp" -->
<%
'===================================================
'===================================================
'shopping cart code on this page -
'generates session variables with order items
Dim prodid, quantity, arrCart, scartItem
prodid = Request.Form("fproductid")
quantity = Request.Form("fquantity")
arrCart = Session("MyCart")
scartItem = Session("cartItem")
If scartItem = "" Then
 Response.Redirect "error.asp?msg=" & Server.URLEncode ("Abbiamo verificato
che non hai accettato i cookies. Per favore abilita i cookies per lo shop.")
else
 if quantity <> "" AND quantity < 1 then
  Response.Redirect "error.asp?msg=" & Server.URLEncode ("Per favore
inserisci almeno 1 numero nella voce dell'articolo che desideri ordinare.")
 end if
End If
If prodid <> "" Then
 call addToCart()
Else
 Dim strAction
 strAction = UCase(Left(Request.Form("action"),5))
 Select Case strAction
 Case "CONTI"   'continue shopping
  Response.Redirect "Default.asp"
 Case "RECAL"  'recalculate
  call recalculateCart()
 Case "PROCE"   'proceed to checkout
  Response.Redirect "customer.asp"
 End Select
'end if for updating or inserting new item in Cart
End If
sub addToCart()
If scartItem < maxCartItems Then
  scartItem = scartItem + 1
 End If
 Session("cartItem") = scartItem
 dim rsItem, sqlProductInfo
 sqlProductInfo = "SELECT * FROM products WHERE (products.catalogID=" &
prodid & ")"
 'open connection - returns dbc as Active connection
 call openConn()
 Set rsItem = Server.CreateObject("ADODB.Recordset")
 rsItem.Open sqlProductInfo, dbc, adOpenForwardOnly,adLockReadOnly,adCmdText
 If Not rsItem.EOF Then
  arrCart(cProductid,scartItem) = rsItem("catalogID")
  arrCart(cProductCode,scartItem) = rsItem("ccode")
  arrCart(cProductname,scartItem) = rsItem("cname")
  arrCart(cQuantity,scartItem) = CInt(quantity)
  arrCart(cUnitPrice,scartItem) = rsItem("cprice")
  Session("MyCart") = arrCart
 End If
 rsItem.Close
 set rsItem = nothing
 call closeConn()
end sub
sub recalculateCart()
For i = 1 To scartItem
 Dim tquantity
 tquantity = Request.Form("quantity" & Cstr(i))
 if isempty(tquantity) OR (tquantity = "") then
  tquantity = 0
 elseif (tquantity < 0) OR (isnumeric(tquantity)=false) then
  tquantity = 0
 end if
 arrCart(cQuantity,i) = CInt(tquantity)
Next
 'make temp array and set it empty
 ReDim temparrcart(UBound(arrCart,1),UBound(arrCart,2))
 Dim tempItems
 tempItems = 0
 For x = 1 to UBound(arrCart,1)
  For y = 1 to UBound(arrCart,2)
   temparrCart(x,y) = ""
  Next
 Next
 For i = 1 to scartItem
  confirm = Request.Form("selected" & CStr(i))
  zeroQuantity = arrCart(cQuantity,i)
  If confirm <> "" and  zeroQuantity > 0 Then
   tempItems = tempItems +1
   For x = 1 to UBound(arrCart,1)
    temparrCart(x,tempItems) = arrCart(x,i)
   Next
  End If
 Next
 For x = 1 to UBound(arrCart,1)
  For y = 1 to UBound(arrCart,2)
   arrCart(x,y) = temparrCart(x,y)
  Next
 Next
 scartItem = tempItems
 Session("cartItem") = scartItem
 Session("MyCart") = arrCart
end sub
'procedure builds Cart contents table
sub showCart()
 'double quote character
 q = chr(34)
 if scartItem = 0  then
  strURL = Request.ServerVariables("HTTP_REFERER")
  strFile = Request.ServerVariables("PATH_INFO")
  if right(strURL,8) = right(strURL,8) then
   strURL = "Default.asp"
  end if
  strHTML = "<h3>Your shopping cart is empty.</h3>"
  strHTML = strHTML & "<p><a href=" & q & strURL & q & ">Continue
shopping.</a></p>"
 else
  strHTML = "<FORM action="& q &"addprod.asp"& q &" method="& q &"POST"& q
&">"
  strHTML = strHTML & "<table border=0 cellPadding=3 cellSpacing=2
width="&q&"100%"&q&">"
  strHTML = strHTML & "<tr bgColor=darkblue>"
  strHTML = strHTML & "<td><FONT color=white>Product code</FONT></td>"
  strHTML = strHTML & "<td><FONT color=white>Product name</FONT></td>"
  strHTML = strHTML & "<td><FONT color=white>Quantity</FONT></td>"
  strHTML = strHTML & "<td><FONT color=white>Unit Price</FONT></td>"
  strHTML = strHTML & "<td><FONT color=white>Total</FONT></td></tr>"
  Dim isubtotal, i
  isubtotal = 0
  For i = 1 to scartItem
   strHTML = strHTML & "<tr bgColor=navajowhite>"
   strHTML = strHTML & "<td><input name=selected"& Cstr(i)&" type=checkbox
value="&q&"yes"&q&" checked>" & arrCart(cProductCode,i) &"</td>"
   strHTML = strHTML & "<td>" & arrCart(cProductname,i) & "</td>"
   strHTML = strHTML & "<td><input type="&q&"text"&q&" name="&q & "quantity"
& CStr(i) & q &" value="&q & arrCart(cQuantity,i) &q&" size=3></td>"
   strHTML = strHTML & "<td>" & FormatCurrency(arrCart(cUnitPrice,i),2) &
"</td>"
   strHTML = strHTML & "<td>" & FormatCurrency(arrCart(cUnitPrice,i) *
arrCart(cQuantity,i),2) & "</td>"
   strHTML = strHTML & "</tr>"
    isubtotal = isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i))
  Next
  strHTML = strHTML & "<tr>"
  strHTML = strHTML & "<td></td><td></td><td></td>"
  strHTML = strHTML & "<td bgColor=darkblue><font
color=white>Total</font></td>"
  strHTML = strHTML & "<td bgColor=lightgoldenrodyellow>" &
FormatCurrency(isubtotal,2) & "</td>"
  strHTML = strHTML & "</tr>"
  strHTML = strHTML & "</table>"
  strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&"
value="&q&"Continue shopping"& q &">"
  strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&"
value="&q&"Recalculate"&q&"><br>"
  strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&"
value="&q&"Proceed to check out"&q&">"
  strHTML = strHTML & "</form>"
 end if
 response.write strHTML
end sub
%>
<HTML>
<HEAD>
<title>Articoli nel Carrello</title>
<link rel="stylesheet" type="text/css" href="eposter.css">
</HEAD>
<BODY>
<table border="0" width="600" cellpadding="4">
  <tr>
    <td width="100%" colspan="2" valign="top">
    <h3>Etnacom Shop
    <br><font face="Arial">Articoli inseriti nel Carrello:</font></h3>
    </td>
  </tr>
  <tr>
    <td width="120" bgcolor="#004080" valign="top">
    <!--#include file="navleft.htm" --></td>
    <td width="480">
<P>
<%
call showCart()
%>
</P>
</td>
  </tr>
</table>
</BODY>
</HTML>

 ha scritto nel messaggio
news:932kqe$9k...@news.edisons.net...

 [cut]
Sei sicuro che nel fare la traduzione non hai x caso cambiato qualche nome a
qualche variabile ??
--
Kappa
kappa**nospam**@
webngo.net
www.webngo.net