Si è verificata un'eccezione: 'rs.Open'

[Galex]

che errore è?????

VVoVe:

è usa semplice funzione che esegue una query...ma mi da questo errore,da cosa può essere generato?

sql="SELECT progetti FROM progetti WHERE ID="&id
Set rs = Server.CreateObject("ADODB.Recordset")
rs3.Open sql, conn ,0,1

[Roby_72]

O lo chiami rs oppure rs3...

Roby

[Galex]

ops,scusa,quello è solo un errore di trascrizione,ho scritto sempre rs nell codice...e mid a quell'errore.

può essere che si è un pò impallinato il server?

[Roby_72]

Posta lo script e la riga dell'errore.

Roby

[vaargard]

posta anche l'apertura della connessione... inoltre i campi sono corretti si? corretto è il contenuto della variabile id?

[Galex]

questa è la funzione.

la cosa strana è che se commento una delle query,mi da lo stesso errore su quell'altra...

Sub GetImpostazioniDefault()

	  if FileEsistePathAssoluto(CONFIG_FILE) then
    	set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
    	xmlDom.async = false
    	xmlDom.Load(CONFIG_FILE)
    	Set docXML = xmldom.documentElement
    	set nodo = docXML.selectSingleNode("lingua")
    	LINGUA=nodo.Text
    	set nodo = docXML.selectSingleNode("progetto")
    	PROGETTO=nodo.Text
    	set nodo = docXML.selectSingleNode("controllo")
    	CONTROLLO=nodo.Text
    	set nodo = docXML.selectSingleNode("versione")
    	VERSIONE=nodo.Text
						
    	set docXML = Nothing
    	set nodo = Nothing
    	set xmlDom = Nothing
			
	ErroreImp=False
	else
	   ErroreImp=True			
	   CreaSchedaSetup()
	   Exit Sub
	end if

if FileEsiste(PATH_LINGUE&LINGUA&".xml")=False then		
ErroreImp=True
Exit Sub		
end if

sql="SELECT id FROM controlli WHERE controlli='"&CONTROLLO&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,0,1
 if not rs.eof then
  	 CONTROLLO=rs("id")
  else
   errore=""&controllo&""
  end if
			 

sql="SELECT id FROM progetti WHERE progetti='"&PROGETTO&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open sql, conn ,0,1
  if not rs.eof then
  	PROGETTO=rs("id")
  else
  	errore=errore&""&progetto&""
  end if
rs.close()
set rs= Nothing
			 			 
if VERSIONE="" then
errore=errore&"versione di dati 
end if

			 
if errore="" then
 Session("Impostazioni")=CONTROLLO&"|"&PROGETTO&"|"&LINGUA&"|"&VERSIONE
ErroreImp=False
else
ErroreImp=True
CreaSchedaSetup()
end if
	
End Sub

[Galex]

l'apertura del db è fatta prima del richiamo della sub

if Trim(session("Impostazioni"))="" then
'*** Inizializza Impostazioni Default ***
OpenDb()
GetImpostazioniDefault()
CloseDb()
else
Impostazioni=Split(session("Impostazioni"),"|")
CONTROLLO=Impostazioni(0)
PROGETTO=Impostazioni(1)
LINGUA=Impostazioni(2)
VERSIONE=Impostazioni(3)
end if

[vaargard]

non puoi usare sempre lo stesso recordset senza prima chiuderlo ... daglio nomi diversi se devi tenerli aperti insieme ...

una cvosa del genere non la puoi fare ...

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,0,1
 if not rs.eof then
  	 CONTROLLO=rs("id")
  else
   errore=""&controllo&""
  end if
			 

sql="SELECT id FROM progetti WHERE progetti='"&PROGETTO&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open sql, conn ,0,1

una cosa del genere invece si

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,0,1
 if not rs.eof then
  	 CONTROLLO=rs("id")
  else
   errore=""&controllo&""
  end if
	
set rs = nothing 		 

sql="SELECT id FROM progetti WHERE progetti='"&PROGETTO&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
 rs.Open sql, conn ,0,1

ed una cosa del genere anche

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,0,1
 if not rs.eof then
  	 CONTROLLO=rs("id")
  else
   errore=""&controllo&""
  end if
			 
rs.close 
sql="SELECT id FROM progetti WHERE progetti='"&PROGETTO&"'"

 rs.Open sql, conn ,0,1

[Roby_72]

Si ma alla sub non dici di usare la connessione conn. Dovresti inserirla come parametro alla sub altrimenti per lui non esiste.

Roby

[Galex]

ho aggiunto la chiusura di rs ma non cambia l'errore...

alla sub conn arriva xchè è dichiarata all'inizio del codice

Dim conn

Sub OpenDb_Dia()
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DATABASE)&";Jet OLEDBatabase"
End Sub

Sub CloseDb_Dia()
conn.Close
set conn = Nothing
End Sub