Errore VBScript

[mstefania]

Ciao a tutti,
lavoro da un provider, un cliente ha un sito non sviluppato da noi su un nostro server. Fino a due giorni fa funzionava tutto correttamente ora quando viene inserito un prodotto nel carrello da questo errore:

Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[object]'

/carrello.asp, line 67

Secondo voi è possibile che sia stato un aggiornamento del server?

Grazie

Stefania

[[trodat]]

E la linea 67 cosa contiene?

[mstefania]

<%
Dim Prezzo(1000)
Dim PrezzoStampa(1000)
Dim TotaleParziale(1000)
Dim TotaleStampa
while not R.EOF
if ColoreCelle = "#f5f5f5" then
ColoreCelle= "#ffffff"
else
ColoreCelle= "#f5f5f5"
end if
if R("quantita") < R("QtaF1") then
Prezzo(R("IDCarrello")) = R("PrezzoBase") PrezzoStampa(R("IDCarrello")) = 0
elseif R("quantita") >= R("QtaF1") And R("quantita") < R("QtaF2") then
Prezzo(R("IDCarrello")) = R("PrezzoF1")
PrezzoStampa(R("IDCarrello")) = R("PrezzoStampaF1")
elseif R("quantita") >= R("QtaF2") And R("quantita") < R("QtaF3") then
Prezzo(R("IDCarrello")) = R("PrezzoF2")
PrezzoStampa(R("IDCarrello")) = R("PrezzoStampaF2")
elseif R("quantita") >= R("QtaF3") then
Prezzo(R("IDCarrello")) = R("PrezzoF3")
PrezzoStampa(R("IDCarrello")) = R("PrezzoStampaF3")
else
RPrezzo(R("IDCarrello")) = R("PrezzoBase")
PrezzoStampa(R("IDCarrello")) = 0
end if
if R("stampa") = "y" then
TotaleParziale(R("IDCarrello")) = (Prezzo(R("IDCarrello"))+PrezzoStampa(R("IDCarrell o")))*R("quantita")
TotaleStampa=((PrezzoStampa(R("IDCarrello"))*R("qu antita"))+TotaleStampa)
else
TotaleParziale(R("IDCarrello")) = (Prezzo(R("IDCarrello"))*R("quantita"))
end if
%>

Le righe evidenziate in rosso
ogni tanto da errore sulla 64 (la prima) e ogni tanto sulla 67 (la seconda)


Grazieeeeeeeeeeeeeeeeeeeeee

[[trodat]]

Spero sia solo un errore di copia/incolla:

Prezzo(R("IDCarrello")) = R("PrezzoBase") PrezzoStampa(R("IDCarrello")) = 0

deve diventare:

Prezzo(R("IDCarrello")) = R("PrezzoBase")
PrezzoStampa(R("IDCarrello")) = 0

[mstefania]

è a capo me ne se sono accorta dopo che ho postato che era finito nella stessa riga.

[[trodat]]

Potrebbe essere un problema di array o split non corretti:

http://classicasp.aspfaq.com/general...ge-errors.html

[mstefania]

La cosa strana è che fino a due giorni fa funzionava tutto... improvvisavamente ha iniziato a dare errore.
Abbiamo provato anche a metterlo su un altro server ma nulla, l'ho messo io in locale in iis ma nulla, non ne vuole sapere di funzionare.
Abbiamo anche ripristinato la pagina da un vecchio back up ma anche così niente. Ma secondo te può essere stato un aggiornamento del server?
Io purtroppo ci capisco poco di asp (anche se mi affascina parecchio il mondo della programmazione), credo comunque che questo sito non sia stato creato da programmatori esperti.

Stefania

[[trodat]]

Il fatto che abbia funzionato non vuol dire nulla (o quasi); probabilmente l'aggiornamento c'entra qualcosa ma ho pochi elementi per darti una risposta articolata.

[mstefania]

Ho guardanto il link che mi hai postato, ma non riesco (sono ignorante) ad apportare la modifica nel mio codice, mi aiuteresti ancora per favore.
Se hai bisogno di altro dimmelo.

Stefania

[[trodat]]

Prova a postare tutta la pagina, vediamo un pò...