ho questo codice ASP, le ultime righe non funzionano mi dice che il metodo non è supportato dall'oggetto
Perche?? io l'ho sempre usato..

codice:
SQLA = "SELECT * FROM gest_arch WHERE pratica="& pratica
	Set RSA = server.CreateObject("ADODB.recordset")
	RSA.Open SQLA, conn
	If RSA.EOF then
		RSA.Close 
		response.Redirect "visualizza.asp?txt=Attenzione:+pratica+inesistente."
		response.end
	elseif RSA("codRichiesta") = 0 then
		RSA.Close 
		response.Redirect "visualizza.asp?txt=Attenzione:+la+pratica+non+era+fuori+per+richiesta."
		response.End
	else
		if rinum = "" then
			'la pratica	viene inserita
			SQLR = "SELECT * FROM tmp_restituite ORDER BY LottoProg DESC"
			Set RSR = server.CreateObject("ADODB.recordset")
			RSR.Open SQLR, conn, 1, 3
			if RSR.RecordCount > 0 then
				lottoProg = RSR("lottoProg") + 1
			else
				lottoProg = 1
			end if
			SQL = "INSERT INTO tmp_restituite (lottoLav, lottoProg, data, pratica, codDoc, ramo, codMov, codTipoDoc, codOpe, scatola, codRichiesta, codUff, codSede) "& _
				" VALUES ("& scatola &","& lottoProg &",#"& now() &"#,"& pratica &","& RSA("codDoc") &", 1, 3, 1,"& Session("datiUtente")(0) &","& scatola &","& RSA("codRichiesta") &","& session("datiutente")(4) &","& session("datiutente")(5) &")"
			conn.Execute SQL
			RSA.Edit
				RSA("scatola") = scatola
				RSA("progressivo") = lottoProg
				RSA("codRichiesta") = 0
				RSA("statoRest") = 1
			RSA.Update