Ciao

potreste cortesemente vedere il codice sotto?

Mi da questo errore:

Microsoft VBScript runtime error '800a01a8'

Object required

/shop2007/carrello.asp, line 316

e la riga dell'errore è questa:

Set RSQtOrdine = Conn.Execute(SQLOrdine)

----------------------------------------------------------------------------------------
<form method="post" action="carrello.asp">
Raccomandata <input type="radio" name="raccomandata" value="1" />

Celere3 <input type="radio" name="celere3" value="1" />

Celere1 <input type="radio" name="celere1" value="1" />

<input type="submit" value="Calcola spese" />
</form>
<%

Dim raccomandataRq, celere3Rq, celere1Rq, SpeseSpedizioneP, SpeseCelere3P, SpeseCelere1P, SpeseQuantitaP, RSQtOrdine, totQt, SpeseSpedizioneC

raccomandataRq = request.form("raccomandata")
if isNumeric(raccomandataRq) then raccomandataRq = cLng(raccomandataRq) end if
if raccomandataRq = 1 then

SQLProdotti = " SELECT TOP 1 Prodotto, SpeseSpedizione, SpeseQuantita, SpeseCelere3, SpeseCelere1 FROM Prodotti WHERE Prodotto IN (SELECT Prodotto FROM Carrello WHERE IDSessione = '"& SessionID &"') ORDER BY SpeseSpedizione DESC"

Set RSProdotti = Conn.Execute(SQLProdotti)

Do While Not RSProdotti.EOF
Response.Write RSProdotti("Prodotto")
Response.Write RSProdotti("SpeseSpedizione")
Response.Write RSProdotti("SpeseQuantita")
Response.Write RSProdotti("SpeseCelere3")
Response.Write RSProdotti("SpeseCelere1")

SpeseQuantitaP = RSProdotti("SpeseQuantita")
SpeseSpedizioneP = RSProdotti("SpeseSpedizione")
SpeseCelere3P = RSProdotti("SpeseCelere3")
SpeseCelere1P = RSProdotti("SpeseCelere1")

Response.Write SpeseSpedizioneP
Response.Write SpeseCelere3P
Response.Write SpeseCelere1P

RSProdotti.MoveNext
Loop

RSProdotti.close
set RSProdotti=nothing
conn.close
set conn=nothing

SQLOrdine = " SELECT Prodotto, Quantita FROM Carrello WHERE IDSessione = '"& SessionID &"' "
Set RSQtOrdine = Conn.Execute(SQLOrdine)
Do While Not RSQtOrdine.EOF
Response.Write RSQtOrdine("Quantita")
Response.Write RSQtOrdine("Prodotto")
totQt = totQt + RSQtOrdine("Quantita")
Response.Write totQt
RSQtOrdine.MoveNext
Loop
'Set Conn.End
RSQtOrdine.close
set RSQtOrdine=nothing
conn.close
set conn=nothing

Response.Write "pluto"
Response.Write SpeseSpedizioneP
Response.Write SpeseQuantitaP
Response.Write totQt

SpeseSpedizioneC = cLng(SpeseSpedizioneP) + (cLng(totQt) * cLng(SpeseQuantitaP)) '----modifica da verificare

if cLng(SpeseSpedizione) < cLng(SpeseCelere3P) then
SpeseSpedizione = cLng(SpeseSpedizioneC)
end if


if cLng(SpeseSpedizione) > cLng(SpeseCelere3P) and cLng(SpeseSpedizione) < cLng(SpeseCelere1P) then
SpeseSpedizione = cLng(SpeseCelere3P)
end if

if cLng(SpeseSpedizione) > cLng(SpeseCelere3P) then
SpeseSpedizione = cLng(SpeseCelere1P)
end if


Response.Write SpeseSpedizione
end if

celere3Rq = request.form("celere3Rq")
if isNumeric(celere3Rq) then celere3Rq = cLng(celere3Rq) end if
if celere3Rq = 1 then

SpeseSpedizione = cLng(SpeseCelere3P)

Response.Write SpeseSpedizione
end if

Celere1Rq = request.form("Celere1")
if isNumeric(celere1Rq) then celere1Rq = cLng(celere1Rq) end if
if celere1Rq = 1 then

SpeseSpedizione = cLng(SpeseCelere1P)

Response.Write SpeseSpedizione
end if
%>
---------------------------------------------------------------------------------
Pier