Newsgroup: it.comp.www.asp
Titolo: Aiuto urgente asp-vbscript

Ho utilizzato questo carrello della spesa ma il con explorer la pagina non
viene trovata mentre con Netscape ricevo questo messaggio:
Microsoft VBScript compilation error '800a03f9'
Expected 'Then'
/carrello.asp, line 16
if descrizione&lt;&gt;"" then numord=numord+1
-----------------^
Lo script č questo:
<%@ Language=vbscript %><%)
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&lt;&gt;"" then numord=numord+1
            Response.Cookies("num")=numord
'invio dei dati al cookie
select case descrizione
case ""
case else
Response.Cookies("Ordine"&mp;cstr(numord))("Descrizione")=descrizione
Response.Cookies("Ordine"&mp;cstr(numord))("prezzo")=prezzo
Response.Cookies("Ordine"&mp;cstr(numord))("quantita")=qta
Response.Cookies("Ordine"&mp;cstr(numord))("cod")=cod
end select
'svuotamento del carrello
select case svuotamento
case "1"
    for ordini=1 to numord
        Response.Cookies("Ordine"&mp;cstr(ordini)).Expires="01, 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+"&lt;br&gt;"+Request.Cookies("Ordine"&mp;cstr(ordini))("De
scrizione")+" "+Request.Cookies("Ordine"&mp;cstr(ordini))("quantita")+"
"+Request.Cookies("Ordine"&mp;cstr(ordini))("prezzo")+"
"+Request.Cookies("Ordine"&mp;cstr(ordini))("cod")
codprodotto=codprodotto+"&lt;br&gt;"+Request.Cookies("Ordine"&mp;cstr(ordini
))("cod")
descrizioneprodotto=descrizioneprodotto+"&lt;br&gt;"+Request.Cookies("Ordine
"&mp;cstr(ordini))("Descrizione")
quantitaprodotto=quantitaprodotto+"&lt;br&gt;"+Request.Cookies("Ordine"&mp;c
str(ordini))("quantita")
'prezzoprodotto=prezzoprodotto+"&lt;br&gt;"+Request.Cookies("Ordine"&mp;cstr
(ordini))("prezzo")
        quanti=Request.Cookies("Ordine"&mp;cstr(ordini))("quantita")
prezzoattuale=((Request.Cookies("Ordine"&mp;cstr(ordini))("prezzo"))+0)*(qua
nti+0)
        prezzoprodotto=prezzoprodotto+"&lt;br&gt;"+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 &egrave; vuoto
select case numord
case 0
    carrello=""
    descrizioneprodotto="Vuoto"
    codprodotto="0"
    quantitaprodotto="0"
    prezzoprodotto="0"
    subtotale="0"
    Response.Cookies("Ordine"&mp;cstr(ordini)).Expires="01, 01, 1980"
    Response.Cookies("num").Expires="01, 01, 1980"
case else
end select
%>
<HTML>
  <HEAD>
<SCRIPT language="vbscript">
<!--
<!--
Dim trasporto, subtotale
'disattivazione del modulo se il carrello &egrave; 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 "Posta" trasporto=15000
    case "Corriere" trasporto=25000
    forminvio.b1.disabled=true
End Select
    forminvio.spese_di_trasporto.value=trasporto
    forminvio.totale.value=forminvio.subtotale.value+trasporto
End Sub
Sub document_onclick
    forminvio.spese_di_trasporto.value=trasporto
    forminvio.totale.value=forminvio.subtotale.value+trasporto
End Sub
-->
//-->
</SCRIPT>
Qualcuno puň essere cosě gentile da dirmi dove č l'errore?
Ringrazio anticipatamente

Nel codice esiste questa riga:
if descrizione&lt;&gt;"" then numord=numord+1
cosa dovrebbe significare? Il debug ti aveva anche avvisato.
penso che il codice esatto sia:
if descrizione<>"" then numord=numord+1
Ciao