Non capisco come mai dopo avere inserito 20 valori, il prossimo valore mi dà 0. Vi posto il codice.
<%@ Language=vbscript %>
<%response.expires=0%>
<%
dim subtotale, trasporto
svuotamento=Request.QueryString("svuota")
'ripristino informazioni da form
cod=Request.Form("cod")
descrizione=Request.Form("prod")
prezzo=Request.Form("prezzo")
qta=Request.Form("quantita")
'calcolo del numero degli ordini
numord=Request.Cookies("num")
if numord="" then numord=0
if descrizione<>"" then numord=numord+1
Response.Cookies("num")=numord
'invio dei dati al cookie
select case descrizione
case ""
case else
Response.Cookies("Ordine"&cstr(numord))("Descrizio ne")=descrizione
Response.Cookies("Ordine"&cstr(numord))("prezzo")= prezzo
Response.Cookies("Ordine"&cstr(numord))("quantita" )=qta
Response.Cookies("Ordine"&cstr(numord))("cod")=cod
end select
'svuotamento del carrello
select case svuotamento
case "1"
for ordini=1 to numord
Response.Cookies("Ordine"&cstr(ordini)).Expires="0 1, 01, 1980"
Response.Cookies("num").Expires="01, 01, 1980"
next
numord=0
'assegnazione dei cookies alle variabili da visualizzare
case else
for ordini=1 to numord
carrello=carrello+"
"+Request.Cookies("Ordine"&cstr(ordini))("Descrizi one")+" "+Request.Cookies("Ordine"&cstr(ordini))("quantita ")+" "+Request.Cookies("Ordine"&cstr(ordini))("prezzo") +" "+Request.Cookies("Ordine"&cstr(ordini))("cod" )
codprodotto=codprodotto+"
"+Request.Cookies("Ordine"&cstr(ordini))("cod" )
descrizioneprodotto=descrizioneprodotto+"
"+Request.Cookies("Ordine"&cstr(ordini))("Descrizi one")
quantitaprodotto=quantitaprodotto+"
"+Request.Cookies("Ordine"&cstr(ordini))("quantita ")
'prezzoprodotto=prezzoprodotto+"
"+Request.Cookies("Ordine"&cstr(ordini))("prez zo")
quanti=Request.Cookies("Ordine"&cstr(ordini))("qua ntita")
prezzoattuale=((Request.Cookies("Ordine"&cstr(ordi ni))("prezzo"))+0)*(quanti+0)
prezzoprodotto=prezzoprodotto+"
"+cstr(prezzoattuale)
if prezzoattuale="" then prezzoattuale="0"
subtotale=subtotale+0
subtotale=subtotale+prezzoattuale+0
next
end select
descrizioneprodotto=mid (descrizioneprodotto, 5)
codprodotto=mid (codprodotto, 5)
quantitaprodotto=mid (quantitaprodotto, 5)
prezzoprodotto=mid (prezzoprodotto, 5)
'annullamento variabili se il carrello è vuoto
select case numord
case 0
carrello=""
descrizioneprodotto="Vuoto"
codprodotto="0"
quantitaprodotto="0"
prezzoprodotto="0"
subtotale="0"
Response.Cookies("Ordine"&cstr(ordini)).Expires="0 1, 01, 1980"
Response.Cookies("num").Expires="01, 01, 1980"
case else
end select
%>
<script LANGUAGE="vbscript">
<!--
Dim trasporto, subtotale
'disattivazione del modulo se il carrello è vuoto
Sub window_onload
if forminvio.ordini.value="" then forminvio.B1.disabled=true
End Sub
Sub nazione_destinatario_onchange
forminvio.b1.disabled=false
Select Case forminvio.nazione_destinatario.value
'segui gli esempi per inserire le spese di trasporto sotto questa riga (es. case "Nazione" trasporto = spese di trasporto)
case "Italia" trasporto=10.00
case "Africa del Sud" trasporto=100000
case "Albania" trasporto=60000
case "Algeria" trasporto=80000
Case else trasporto=0
msgbox "Non è possibile inviare la merce in questa nazione",1,"Attenzione"
forminvio.b1.disabled=true
End Select
forminvio.spese_di_trasporto.value=trasporto
forminvio.totale.value=forminvio.subtotale.value+t rasporto
End Sub
Sub document_onclick
forminvio.spese_di_trasporto.value=trasporto
forminvio.totale.value=forminvio.subtotale.value+t rasporto
End Sub
-->
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title></title>
<base target="dx">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style type="text/css">
<!--
body {
background-color: #EBEBEB;
}
-->
</style></head>
<body leftmargin="0" topmargin="3">
<div id="Layer9" style="position:absolute; width:200px; height:59px; z-index:13; visibility: visible;"></div>
<div id="Layer2" style="position:absolute; width:183px; height:42px; z-index:7; left: 13px; top: 17px; visibility: visible;">[img]hiron.gif[/img]</div>
<div id="Layer1" style="position:absolute; width:207px; height:43px; z-index:8; left: 228px; top: 20px; visibility: visible;">
<h2><font color="#0000FF">Personal Computer </font></h2>
</div>
<div id="Layer3" style="position:absolute; width:469px; height:85px; z-index:6; left: 0px; top: 3px; visibility: visible;">
<table width="469" height="65" border="0" bgcolor="#EBEBEB">
<tr bgcolor="#FFFFFF">
<td width="100%" height="61"><div align="center">
</p>
</p>
</div></td>
</tr>
</table>
</div>
<div id="Layer4" style="position:absolute; width:469px; height:20px; z-index:15; left: 0px; top: 55px; visibility: visible;">
<table width="469" height="12" border="0" bgcolor="#EBEBEB">
<tr>
<td width="458" valign="top" bgcolor="#EBEBEB">
<p align="left"> </p>
<form method="POST" id="forminvio" action="mailto:a.liuzzo@diamont.it" webbot-action="--WEBBOT-SELF--">
<div align="center">
<input type="hidden" name="ordini" value="<%=carrello%>">
<input type="hidden" name="subtotale" value="<%=subtotale%>">
<font color="#800000" face="Verdana">
<input type="submit" value="Invia modulo" name="B1" tabindex="21">
<input type="reset" value="Reimposta" name="B2" tabindex="22">
</font> </div>
</form></td>
</tr>
</table>
</div>
<div id="Layer5" style="position:absolute; width:469px; height:25px; z-index:16; left: 0px; top: 64px; visibility: visible;">
<table border="0" width="469">
<tr>
<td width="47%" height="20" bgcolor="#0000FF">
<p align="center"><font face="Verdana"><a href="carrello.asp?svuota=1" target="_self"><font color="white"><font color="#FFFFFF" size="1">Svuota
carrello</font></font></a></font></p></td>
<td width="34%" bgcolor="#0000FF">
<p align="right"><font face="Verdana" size="1" color="#FFFFFF">Totale</font></td>
<td width="19%" bgcolor="#0000FF">
<p align="right"><font face="Verdana" color="#FFFFFF" size="2"><%=subtotale%></font></td>
</tr>
</table>
</div>
<div id="Layer7" style="position:absolute; width:469px; height:24px; z-index:17; left: 0px; top: 125px; visibility: visible;">
<table width="469" height="21" border="0" bgcolor="#EBEBEB">
<tr>
<td width="23%" height="16" bgcolor="#FFFFFF">
<h3 align="center"><font face="Verdana" size="1" color="#0000FF">Codice
prodotto</font></h3></td>
<td width="50%" bgcolor="#FFFFFF">
<p align="center"><font face="Verdana" size="1" color="#0000FF">Descrizione</font></td>
<td width="8%" bgcolor="#FFFFFF">
<p align="center"><font face="Verdana" size="1" color="#0000FF">Q.tà</font></td>
<td width="19%" bgcolor="#FFFFFF">
<p align="center"><font face="Verdana" size="1" color="#0000FF">Prezzo</font></td>
</tr>
</table>
</div>
</p>
</p>
</p>
</p>
<table width="469" height="51" border="0" align="left" bgcolor="#EBEBEB">
<tr>
<td width="23%" height="39" valign="top"><p align="center"><font face="Verdana" color="#000000" size="2"><%=codprodotto%></font></td>
<td width="51%" valign="top"><p align="center"><font face="Verdana" color="#0000FF" size="2"><%=descrizioneprodotto%></font> </td>
<td width="7%" valign="top">
<p align="center"><font face="Verdana" color="#000000" size="2"><%=quantitaprodotto%></font></td>
<td width="14%" align="right" valign="top"><font face="Verdana" color="#FF0000" size="2"><%=prezzoprodotto%></font></td>
<td width="5%" align="right" valign="top"></td>
</tr>
</table>
</p>
</body>
</html>
Rispondi quotando
