ciao ho questo carrello:
<%
dim conn, strConn, id, TotalRecords, i, test, chiave
id=Request("id")
chiave=Request("chiave")
if carrello="" then
Session("carrello")="200"
else
carrello = Session("carrello")
end if
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " &_
Server.MapPath("db/database.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open StrConn
SQL = "SELECT * FROM " & chiave & " WHERE ID LIKE '" & id & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn
test="falso"
for i = 1 to 200 step 2
if carrello(i)=id then
test="vero"
end if
next
for i = 1 to 200 step 2
if test="falso" then
if carrello(i)="" then
carrello(i)=id
carrello(i+1)=chiave
i=200
end if
end if
next
' Libero risorse
rs.Close
set rs = Nothing
conn.Close
Set conn = Nothing
Session("carrello") = carrello
if test="falso" then
Response.Write "<p align='center'>" & "" & "L'ARTICOLO SELEZIONATO E' STATO AGGIUNTO AL CARRELLO" & "" & "</p>"
else
Response.Write "<p align='center'>" & "" & "QUESTO ARTICOLO E' GIA PRESENTE NEL CARRELLO" & "" & "</p>"
end if
%>
io gli passo le variabili 'chiave' e 'id' ma mi da questo errore:
Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente: 'carrello'
/numismatica/carrello.asp, line 212
che faccio?
grazie ale
Rispondi quotando
