problema con doppio recordset

[xxfuma85xx]

ciao a tutti,
il mio problema è che devo aprire due recordset all'interno di un database ma quando apro il secondo mi da errore.

questo è il codice della pagina:

StrConn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(database)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

sql_ogg="select codice,codiceforn,tipotransfer,materiale from oggetti order by codice"
set rs_ogg= server.CreateObject("adodb.recordset")
rs_ogg.open sql_ogg,conn

do while not rs_ogg.eof
	
	oggcod=rs_ogg("codice")
	oggcodforn=rs_ogg("codiceforn")
	oggtipotransfer=lcase(rs_ogg("tipotransfer"))
	oggmateriale=lcase(rs_ogg("materiale"))
	arrmateriale=split(oggmateriale," ")
	arrtipotransfer=split(oggtipotransfer," ")

	for i=0 to ubound(arrmateriale)
		for j=0 to ubound(arrtipotransfer)
			sql_tra="select codice,codiceforn,tiposuperficie,tipotransfer from transfer where materiale like '%"&arrmateriale(i)&"%' and tipotransfer like '%"&arrtipotransfer(j)&"%'"
			set rs_tra=server.CreateObject("adodb.recordset")
			rs_tra.open sql_tra,conn
			tracod=rs_tra("codice")
			tracodforn=rs_tra("codiceforn")
			tratipotransfer=rs_tra("tipotransfer")
			tramateriale=rs_tra("tiposuperficie")
			codicefinito=oggcod&oggcodforn&tracod&tracodforn
			response.Write("Codice: "&codicefinito&"
")
			response.Write("Ogg.tipotransfer: "&oggtipotransfer&"
")
			response.Write("Ogg.materiale: "&oggmateriale&"
")
			response.Write("Tra.tipotransfer: "&tratipotransfer&"
")
			response.Write("Tra.materiale: "&tramateriale&"

")
			rs_tra.close
			set rs_tra=nothing
		next
	next
loop
rs_ogg.close
set rs_ogg=nothing
conn.close
set conn=nothing

e l'errore che mi da è:

Microsoft JET Database Engine error '80040e10'

Nessun valore specificato per alcuni parametri necessari.

/nuova anagrafica/test/prova-abbinamento.asp, line 23

non riesco a capire quale sia l'errore...
Aiuto!!!!

[maximum]

Probabilmente è nella query, prova a fare così:

sql_tra="select codice,codiceforn,tiposuperficie,tipotransfer from transfer where materiale like '%"&arrmateriale(i)&"%' and tipotransfer like '%"&arrtipotransfer(j)&"%'"

response.write(sql)
response.end

E dimmi cosa ti scrive.

[xxfuma85xx]

inserendo quelle mi visualizza la stringa sql_tra:

select codice,codiceforn,tiposuperficie,tipotransfer from transfer where materiale like '%alluminio%' and tipotransfer like '%acqua%'

[xxfuma85xx]

ah dimenticavo la riga 23 è questa:

StrConn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(database)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

sql_ogg="select  codice,codiceforn,tipotransfer,materiale
 from oggetti order by codice"
set rs_ogg= server.CreateObject("adodb.recordset")
rs_ogg.open sql_ogg,conn

do while not rs_ogg.eof
        
        oggcod=rs_ogg("codice")
        oggcodforn=rs_ogg("codiceforn")
        oggtipotransfer=lcase(rs_ogg("tipotransfer"))
        oggmateriale=lcase(rs_ogg("materiale"))
        arrmateriale=split(oggmateriale," ")
        arrtipotransfer=split(oggtipotransfer," ")

        for i=0 to ubound(arrmateriale)
                for j=0 to ubound(arrtipotransfer)
                        sql_tra="select  codice,codiceforn,tiposuperficie,tipotra
nsfer from transfer where materiale like '%"&arrmateriale(i)&"%' and tipotransfer like '%"&arrtipotransfer(j)&"%'"
                        set rs_tra=server.CreateObject("adodb.recordset")
                        rs_tra.open sql_tra,conn 
                        tracod=rs_tra("codice")
                        tracodforn=rs_tra("codiceforn")
                        tratipotransfer=rs_tra("tipotransfer")
                        tramateriale=rs_tra("tiposuperficie")
                        codicefinito=oggcod&oggcodforn&tracod&tracodforn
                        response.Write("Codice: "&codicefinito&"
")
                        response.Write("Ogg.tipotransfer: "&oggtipotransfer&"
")
                        response.Write("Ogg.materiale: "&oggmateriale&"
")
                        response.Write("Tra.tipotransfer: "&tratipotransfer&"
")
                        response.Write("Tra.materiale: "&tramateriale&"

")
                        rs_tra.close
                        set rs_tra=nothing
                next
        next
loop
rs_ogg.close
set rs_ogg=nothing
conn.close
set conn=nothing

[xxfuma85xx]

allora proprio nessuno riesce a darmi una mano?

[santino83]

rs_tra.open sql_tra,conn,3,3

[99eros9]

sql_tra="select codice,codiceforn,tiposuperficie,tipotra,"&_
"nsfer from transfer where materiale like '%"&arrmateriale(i)&"%' and tipotransfer like '%"&arrtipotransfer(j)&"%'

metti tutto su una riga o usa &_

poi tra tipotra e nsfer manca la virgola.

.. bhò, non riesco a visualizzarlo correttamente quì, ma ci siamo capiti

[xxfuma85xx]

gia provato il 3,3

la riga è divisa perchè non ci sta nella pagina del forum ma nella mia pagina è tutta unica.

[optime]

controlla i nomi dei campi

[99eros9]

ok, ma manca il separatore tra i campi tipotra e nsfer