Newsgroup: it.comp.lang.javascript
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

 viene trovata mentre con Netscape ricevo questo messaggio:
hai copiato il codice con un tool che ha sostituito tutti i < e > con le
entities corrispondenti
p.es
 la riga in questione dovrebbe essere:
     if descrizione<>" then numord=numord+1
naturalmente non lo ha fatto solo li' ma ovunque, reincolla tutto lo script.
se usi MS Visual Interdev il modo corretto di copiare il codice e' "paste as
HTML"
ciao
P.S.: questo newsgroup e' dedicato al client-side JavaScript, qui postare
questioni riguardanti asp-vbscript e' OT
--
    Federico Sasso &8v>
 
http://www.crt.unige.it/jsSQL
    The jsSQL Project - JavaScript Database and SQL Engine