URGENTE: errore strano nell'aprire il recordset

[santino83]

Salve,

per aprire un recordset uso questa sub:

'apro recordset
sub oRs(Nome,assql,byref connE,op1,op2)
	
'	response.write Nome & " " & assql & " " & op1 & " " & op2
'	response.End()

	set miaconn=connE
	if Nome="" then Nome="rs"
	
	dim rsTemporaneo
	set rsTemporaneo=server.CreateObject("adodb.recordset")
	rsTemporaneo.open assql,miaconn,1,1
	
	ExecuteGlobal "Dim " & Nome
	Execute "Set " & Nome & "=rsTemporaneo"
	'rsTemporaneo.close
	Set rsTemporaneo = Nothing
	set miaconn=nothing

end sub

che funziona benissimo. Solo si verifica che dopo mooooooolte volte restituisce questo errore:

"No value given for one or more required parameters."

e lo da in corrispondenza di questo:

ExecuteGlobal "Dim " & Nome

eppure nome viene passato come cosa!!!!!! prima lo dava in corrispondenza dell'apertura del recordset....pensavo che non trovasse l'oggetto connessione (miaconn), ma adesso comincio a pensare che non trovi asssql!!!!!!

aiutooooooooooo

[santino83]

per aprire e chiudere una connessione uso queste:

'apro la connessione
sub oConn(valore)
	if valore="" or isNull(valore) then valore=strConn

	set conn=server.CreateObject("adodb.connection")
	conn.open valore
end sub


'chiudo la connessione
sub cConn()
	conn.close : set conn=nothing
end sub

e questa per chiudere il recordset

'chiudo il recordset
sub cRs(ByRef nome)
	nome.close : set nome=nothing
end sub

vi prego un'idea che sono disperato...ripeto, l'errore non si verifica sempre, ma, nella stessa pagina, si verifica una volta ogni tanto...ma si verifica

[santino83]

nessuno?

per il momento mettendo l'apertura della connessione dentro l'apertura del recordset non sembra dare quell'errore, però poi non so come chiudere la connesssione