Originariamente inviato da nm2002
Ho scaricato un carrello in asp e sto provando a farlo funzionare....
Funziona quasi tutto ma alla fine della mia spesa quando vado a visualizzare l'ultima pagina che e' quella dove l'utente vede il riepilogo e dove dovrebbe inserire dati per spedizione e carta di credito mi viene visualizzato questo messaggio:

Quantity Prod. # Description Unit Price Ext. Price
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'rsProdInfo.Find'

/checkout.asp, line 234

IL PUNTO E' CHE SE TESTO IL TUTTO IN RETE OFF LINE FUNZIONA MENTRE SE TESTO SU SERVER WEB MI DA' QUESTO ERRORE.NON SO' PIU' DOVE SBATTERE LA TESTA.
LA LINEA 234 E' QUELLA COI PUNTINI DAVANTI

<%
set rsProdInfo = Server.CreateObject("ADODB.Recordset")
rsProdInfo.Open "products", Conn, adOpenStatic, adLockOptimistic, adCmdTable

intTotal = 0

rsProd.MoveFirst
while not rsProd.EOF
rsProdInfo.MoveFirst
.............. rsProdInfo.Find "productID = " & rsProd("productID")
intProdID = rsProd("productID")
strProdName = rsProdInfo("productName")
intPrice = formatNumber(rsProdInfo("productPrice"), 2)
intQuant = rsProd("quantity")
intExtPrice = formatNumber((intPrice * intQuant), 2)
intTotal = intTotal + intExtPrice
%>
Nello script postato tu apri solo un recorset (rsProdInfo) e non si vede l'apertura del recorset (rsProd) c'è?
e poi questo ciclo non mi convice cosi sicuramente non puo funzinare
codice:
 rsProd.MoveFirst
             while not rsProd.EOF
                 rsProdInfo.MoveFirst
  .............. rsProdInfo.Find "productID = " & rsProd("productID")
Questo sembrano più pezzi di codice buttali li. Sicuro che lo script scaricato fosse così?
Se in locale funziona forse sono problemi di connessione col DB sul server

Ciao