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

Rispondi quotando

