IL GENERALE - programming zone -

Set conn = Server.CreateObject("ADODB.Connection")
conn.open nomeDsn,utenza,password
Set rs = Server.CreateObject("ADODB.Recordset")

'----- se si tratta di una query che restituisce un risultato
mysql = "select campo1, campo2 from tabella"
rs.Open mysql, conn
        if rs.eof then
                response.write("nessun dato trovato nella tabella database")
        else
                do until rs.eof
                        response.write(rs("campo1") & " - " & rs("campo2") & "<br%gt;")
                        rs.movenext
                loop
        end if

'----- se si tratta di una query che non restituisce un risultato
mysql = "delete from tabella where campo1 = 10"
conn.Execute(mysql)

'----- utilizzo delle transazioni
conn.BeginTrans
                '****...eventuale altro codice

if (conn.Errors.Count > 0) then
        conn.RollbackTrans '****lancio il rollback su db se invece intercettato un errore
else
        conn.CommitTrans '****lancio il commit sul db se tutto a posto
end if

rs.close
conn.close