function esegui(strSQL_arrivata)

Set conn = Server.CreateObject("ADODB.Connection")    
conn.ConnectionTimeout = Application("ALLOT_ConnectionTimeout")
conn.CursorLocation = Application("ALLOT_CursorLocation") 
conn.CommandTimeout = Application("ALLOT_CommandTimeout")
conn.Open Application("ALLOT_ConnectionString"), Application("ALLOT_RuntimeUserName"), Application("ALLOT_RuntimePassword")

Set RSxxx = Server.CreateObject("ADODB.Recordset")
RSxxx.CursorType = adOpenDynamic
RSxxx.LockType = 3

esegui = RSxxx.open strSQL_arrivata, conn

RSxxx.close
Set RSxxx = Nothing
conn.close
Set conn = Nothing

end function

str = "select categoria from categorie where id_cat = "& id_categoria

Set RSlocale = Server.CreateObject("ADODB.Recordset")
RSlocale.CursorType = adOpenDynamic
RSlocale.LockType = 3
e' corretta la assegnazione dentro la funzione per far tornare indietro un recordset ?

RSlocale = esegui(str)

if not RSlocale.eof then

....

end if
RSlocale.close
Set RSlocale = Nothing

esegui = RSxxx.open strSQL_arrivata, conn


Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

esegui = RSxxx.open strSQL_arrivata, conn
--------------------^

RSlocale = esegui(str)   ' QUI DA ERRORE :

Object required: 'RSlocale' 

str = "select categoria from categorie where id_cat = 1 "

Set RSlocale = Server.CreateObject("ADODB.Recordset")
RSlocale.CursorType = adOpenDynamic
RSlocale.LockType = 3

RSlocale = esegui(str)   ' QUI DA ERRORE

if not RSlocale.eof then

categoria = RSlocale("categoria")
Response.Write "<br>categoria : "& categoria

end if
RSlocale.close
Set RSlocale = Nothing