mi da errore qui:
codice:
<%
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Dim SQL,valore
SQL = "SELECT * FROM prodotti WHERE codiceprodotto = '"&request.querystring("codiceprodotto")&"' AND disponibilita ='si'"
conn.Execute(SQL)
rs.Open SQL, conn
valore = "'"&rs("categoria")&"'"
%>
<%
Dim mostra
Set mostra = Server.CreateObject("ADODB.Recordset")
Dim SQL2
SQL2 = "SELECT * FROM carrello where codiceOrdine = '"&Session("codiceOrdine")&"' AND codiceprodotto='"&request.querystring("codiceprodotto")&"' order by id DESC"
conn.Execute(SQL2)
mostra.Open SQL2, conn
%>
<%
Dim categoria
Set categoria = Server.CreateObject("ADODB.Recordset")
Dim SQL3
SQL3 = "SELECT * FROM "&rs("categoria")&" where codiceProdotto = '"&Request.QueryString("codiceProdotto")&"' AND "&valore&" ='"&mostra("categoria")&"'"
conn.Execute(SQL3)
categoria.Open SQL3, conn
%>
<%
Dim sostituzione
Set sostituzione = Server.CreateObject("ADODB.Recordset")
Dim SQL4
SQL4 = "SELECT * FROM sostituzioni where codiceprodotto = '"&Request.QueryString("codiceprodotto")&"'"
conn.Execute(SQL4)
sostituzione.Open SQL4, conn
%>
<%
Dim shaft
Set shaft = Server.CreateObject("ADODB.Recordset")
Dim SQL2sh
SQL2sh = "SELECT * FROM shaft where (codiceprodotto = '"&Request.QueryString("codiceprodotto")&"' OR codice2 = '"&sostituzione("codiceSostituito")&"') AND shaft='"&mostra("shaft")&"'"
conn.Execute(SQL2sh)
shaft.Open SQL2sh, conn
%>
<%
Dim grip
Set grip = Server.CreateObject("ADODB.Recordset")
Dim SQL2gr
SQL2gr = "SELECT * FROM grip where (codiceprodotto = '"&Request.QueryString("codiceprodotto")&"' OR codice2 = '"&sostituzione("codiceSostituito")&"') AND grip='"&mostra("grip")&"'"
conn.Execute(SQL2gr)
grip.Open SQL2gr, conn
%>
<%
Dim prezzo
prezzo = categoria("prezzo")+(shaft("prezzo")*categoria("numeroPezzi"))+(grip("prezzo")*categoria("numeroPezzi"))
%>