CARRELLO della Spesa

[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
%>

[nm2002]

[cavicchiandrea]

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

 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

[nm2002]

ti assicuro che seul server locale funziona
l'apertura di rsProd la fa prima

se vuoi ti mando il codice completo

[nm2002]

la connessione funziona perchè riesco a vedere gli articoli ad anche ad aggiungerli al carrello

[nm2002]

nessuno sa dove trovare un carrello semplice e funzionante

grazie

[nm2002]

L'errore che mi esce è questo:

Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'rsProdInfo.Find'

--------------------------------------------------------------------------------
Questo problema deriva dall'MDAC (Microsoft Data Access Components) installato sul Web-Server.
I driver sono inesistenti o danneggiati.
Scaricate l'ultima versione dell'MDAC all'indirizzo : http://www.microsoft.com/data/

----------------------------
Sul server che mi dà l'errore è installato ChiliSoft
Qualcuno saprebbe darmi qualche indicazione???

grazie

[nm2002]

[nm2002]

HO INSERITO :

rsProdInfo.Open "SELECT * FROM products WHERE productID = '" & Request("productID") & "'", Conn, 2, 2

rsProdInfo.MoveFirst

INVECE DI:

RS.Open "products", Conn, 2, 2
RS.Find "ID='" & Request("ID") & "'"

ORA L'ERRORE E':

ADODB.Recordset.1 error '80004005'
SQLState: 22005
Native Error Code: -3030
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.


/webhalley/siti/itabweb/checkout.asp, line 234


VI PREGO...
HELP ROBY!!

[cavicchiandrea]

Originariamente inviato da nm2002
HO INSERITO :

rsProdInfo.Open "SELECT * FROM products WHERE productID = '" & Request("productID") & "'", Conn, 2, 2

rsProdInfo.MoveFirst

INVECE DI:

RS.Open "products", Conn, 2, 2
RS.Find "ID='" & Request("ID") & "'"

ORA L'ERRORE E':

ADODB.Recordset.1 error '80004005'
SQLState: 22005
Native Error Code: -3030
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.


/webhalley/siti/itabweb/checkout.asp, line 234


VI PREGO...
HELP ROBY!!

prova cosi:

Set rsProdInfo = Server.CreateObject("ADODB.Recordset")    
sql= "SELECT * FROM WHERE productID = '" & Request("productID") & "'"
rsProdInfo.Open SQL,conn,2,3

Attenzione productID e un campo contaore devi togliere gli apici e sql diventa cosi:

sql= "SELECT * FROM WHERE productID = " & Request("productID")

Ciao