I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3
billy1
billy1
l'11 ottobre 2010 alle 13:03
181 messaggi dal 12 dicembre 2001
non riesco a trovare il modo di farla...

cosi' come ho scritto mi da 'errrore:

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


e poi in un punto qualsiasi della pagina :

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
RispondiQuoting
Verce84
Verce84
l'11 ottobre 2010 alle 13:52
226 messaggi dal 08 ottobre 2010
Mi sa che devi dare il valore di ritorno della function..
Così hai una function che fa delle cose ma non ritorna nessun valore, dovresti ad un certo punto della tua funzione fare un return che restituisce il recordset
RispondiQuoting
billy1
billy1
l'11 ottobre 2010 alle 14:08
181 messaggi dal 12 dicembre 2001
mi da' un errore qui :
esegui = RSxxx.open strSQL_arrivata, conn


Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

esegui = RSxxx.open strSQL_arrivata, conn
--------------------^
Modificato da billy1 il 11 ottobre 2010 14.08 -
RispondiQuoting
makbox
makbox
l'11 ottobre 2010 alle 14:22
547 messaggi dal 24 maggio 2002
Contributi
Prova così:

esegui = RSxxx.open(strSQL_arrivata, conn)


Marco.
RispondiQuoting
billy1
billy1
l'11 ottobre 2010 alle 14:31
181 messaggi dal 12 dicembre 2001
makbox ha scritto:
Prova così:

esegui = RSxxx.open(strSQL_arrivata, conn)


Marco.


ok ho fatto come dici tu, grazie.

Mi da' ora un altro errore......

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
RispondiQuoting
makbox
makbox
l'11 ottobre 2010 alle 18:37
547 messaggi dal 24 maggio 2002
Contributi
Li prova senza parentesi

RSlocale = esegui str
RispondiQuoting
billy1
billy1
il 12 ottobre 2010 alle 09:15
181 messaggi dal 12 dicembre 2001
makbox ha scritto:
Li prova senza parentesi

RSlocale = esegui str


no niente...
RispondiQuoting
giangi_77
giangi_77
il 12 ottobre 2010 alle 09:22
678 messaggi dal 12 maggio 2001
www.idioteca.it
non ricordo bene la sintassi di asp e magari mi confondo con quello che si può fare con asp.net, ma hai provato a non impostare niente al tuo RSlocale ?

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

Set RSlocale = Server.CreateObject("ADODB.Recordset")
RSlocale = esegui(str)
oppure

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

Set RSlocale = esegui(str)
ciao
RispondiQuoting
1 2 3

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.