nel file funziona incluso no!

[TOPUS]

dunque buongionro a tutti, ho questa pagina che funziona perfettamente:

  <%@LANGUAGE = VBScript%> 
<% 
option explicit 
Dim IDart, carrello, sessione, articoli, totale, costo,sql, key01, DSNtemp, RS, oConn 
Response.Expires=-1 
Response.AddHeader "Pragma","no-cache" 
Response.AddHeader "cache-control", "no-store" 
response.buffer=true 
IDart=request.QueryString("id") 

key01=IDart 

' 
sql="select ID, costo from prezzi where pagina like '%" &key01 &"%'" 
set oConn=server.createobject("adodb.connection") 
Set Rs = Server.CreateObject("ADODB.Recordset") 

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};" 
DSNtemp=dsntemp & "DBQ=" & server.mappath("/www.miosito.it/db/prova.mdb") 
oConn.Open DSNtemp 

set RS = oConn.execute(sql) 

costo=Ccur(rs(1)) 
IDart=rs(0) 

'recupera variabile che indica se il carrello è attivo 
carrello=" " & Request.Cookies("carrello") 
sessione = Session.SessionID 
if trim(carrello)<>"pieno" then 
response.Cookies("carrello") = "pieno" 
response.Cookies("ID") = sessione 
articoli = 0 
totale = 0.00 
else 
articoli = Request.Cookies("nart") 
totale = CSng(Request.Cookies("totale")) 
end if 
response.Cookies("nart") = articoli +1 
response.Cookies("totale") = totale +costo 

response.write("art:"&articoli&"-sessione:"&sessione&"-totale:"&totale&"-costo:"&costo&"-carrello:"&carrello& "-art:"& IDart ) 

'FINE NEWSESS____________________________ 
sql="INSERT INTO carrprovv (IDarticolo, IDsessione, costo) values ('"& IDart & "','" & sessione & "','" & costo &"')" 

set RS = oConn.execute(sql) 

set RS = nothing 
set DSNtemp = nothing 
oConn.Close 

response.write("OK") 
%> 

ora volevo pulire il file e mettere il file connessione includendolo
quindi ho tolto le righe

set oConn=server.createobject("ADODB.connection") 
set Rs = Server.CreateObject("ADODB.Recordset") 

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};" 
DSNtemp=dsntemp & "DBQ=" & server.mappath("/www.miosito.it/db/prova.mdb") 
oConn.Open DSNtemp 

e con i tag <% %> le ho messe in un file : connessione.asp che sta nella stessa dir del file origine.
includendolo:
--------------------------------------------------------------------------------

ma a questo punto mi da errore:
alla riga
set RS = oConn.execute(sql)
e mi dice:
errore di runtime :
Necessario oggetto: ''

cosa ho sbagliato...
mi sto incaponendo su una cosa stupida e che potrei lasciare perdere...
ma che volete fa'
grazie a chiunque possa darmi una mano...

[Roby_72]

<%@LANGUAGE = VBScript%> 
<% 
option explicit 
Dim IDart, carrello, sessione, articoli, totale, costo,sql, key01, DSNtemp, RS, oConn 
Response.Expires=-1 
Response.AddHeader "Pragma","no-cache" 
Response.AddHeader "cache-control", "no-store" 
response.buffer=true 
IDart=request.QueryString("id") 

key01=IDart %>

<%
...
....
....

Roby

[TOPUS]

roby sei sempre il migliore....
erano infatti i due
%><% di chiusura e apertura codice....
grazie grazie