problemi con piu' begintrans()

[matpirata]

Ciao, ho un problema con la begintrans()
Ho una pagina con 3 if, ed in ognuna di esse uso la begintrans() per fare, un inserimento, una modifica ed una cancellazione.
Finche ne usavo solo 2 funzionava regolarmente, ora che ne ho messa una terza da associare alla cancellazione mi dice che ci sono "troppe" begintrans().
Allora ho provato a metterne solo una ad inizio pagina ma mi va in errore immediatamente.
qualcuno sa perche'??
P.S.: la connessione l'ho messa in una sessione, quindi la begintrans() e cosi': session("connessione").begintrans()

[Sypher]

bah...strano...posta un po di codice...

[matpirata]

secondo me impazzisci
ora ho cambiato il codice, ci sono solo 2 begintrans
1 nell'inserimento
1 nella modifica


<%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1



if session("profilo") = "" then%>
<script>
top.location.replace ('login.asp')
</script>
<%end if
'on error resume next




titoloform = ""
tipo_errore = ""
azione = 0
'--------ricavo dati inviati------------------------------------------------------------
inserisci = request.form("inserisci")
settore = request.form("nuovo_settore")
descrizione = request.form("descrizione")
if inserisci = "ok" then
'----------calcola id-------------------------------------------------------------------
set recordid = CreateObject("ADODB.RECORDSET")
sql = "select max(id) from settori"
set recordid= session("Connessione").Execute(sql)

if not recordid.eof then
if recordid(0) <> "" then
id = cint(recordid(0)) + 1
else
id = 1
end if
end if

'----------vedo se trovo un settore con lo stesso nome ------------
set recordsettore = CreateObject("ADODB.RECORDSET")
sql = "select settore from settori where settore = '"& settore &"'"
set recordsettore= session("Connessione").Execute(sql)

if err.number <> 0 then
tipo_errore = "Attenzione si è verificato un errore non definito"
end if
'----------se lo ho trovato----------------------------------------------------------------
if not recordsettore.eof then
%>
<script>
alert("Attenzione: è già presente nel db il settore '<%=settore%>'.\nInserimento NON effettuato")
</script>
<%
else
'------------altrimenti inserisco il record------------------------------
err.clear

descrizione= replace(descrizione,"'","''")
descrizione= replace(descrizione,vbCrLf,"
")

session("connessione").begintrans()
sql="insert into settori (id,settore,descrizione)values("& id &",'"& settore &"','"& descrizione &"')"
session("connessione").Execute(sql)



if err.number <> 0 then

tipo_errore = "Attenzione si è verificato un errore durante l'inserimento. Operazione non effettuata. \nPer riprovare cliccare su INSERISCI"
azione = 1
session("connessione").RollbackTrans

else

Dim newdir
newdir = id
Dim objFile
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
objFile.CreateFolder Server.MapPath(newdir)

if err.number <> 0 then

tipo_errore = "Attenzione si è verificato un errore durante la creazione della cartella per il salvataggio dei file allegati agli articoli. Operazione non effettuata. \nPer riprovare cliccare su INSERISCI"
azione = 1
session("connessione").RollbackTrans
else
session("Connessione").CommitTrans
end if

end if



end if




'---se si è verificato un errore------------------------------------------------------------
if err.number <> 0 then
%>
<script>
alert("<%=tipo_errore%>")
</script>
<%
'-se l errore si è verificato durante l inserimento o la creazione della cartella ricancello cartella e record------

if azione = 1 then
err.clear
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
'La cartella viene cancellata
objFSO.DeleteFolder Server.MapPath(id)
Set objFSO = Nothing

if err.number <> 0 then
%>
<script>
alert("Attenzione: si è verificato un errore durante la cancellazione della cartella per l'archiviazione dei file allegati agli articoli")
</script>
<%
end if





end if


val_settore = settore
val_descrizione = descrizione
val_descrizione= replace(val_descrizione,"
",vbCrLf)

end if
end if





'------------------------inizio modifica---------------------------------------------
err.clear
if inserisci = "modificafile" then
titoloform = "Form per la modifica del settore: "
idmodifica = request.form("txtcancellaid")
set recordmodifica = CreateObject("ADODB.RECORDSET")
sql = "select * from settori where id="& idmodifica
set recordmodifica= session("Connessione").Execute(sql)

if not recordmodifica.eof then

val_id = recordmodifica("id")
val_settore = recordmodifica("settore")
val_descrizione = recordmodifica("descrizione")
val_descrizione= replace(val_descrizione,"
",vbCrLf)


step_modifica = "primostep"
id_per_modifica = val_id


else
%>
<script>
alert("Attenzione: il settore selezionato per la modifica non è stato trovato all'interno del db")
</script>
<%

end if


end if
err.clear
if inserisci = "primostep" then

descrizione= replace(descrizione,"'","''")
descrizione= replace(descrizione,vbCrLf,"
")
idmod = request.form("txtcancellaid")

session("connessione").begintrans()
sql="update settori set settore = '"& settore &"',descrizione = '"& descrizione &"' where id= "& idmod
session("connessione").execute(sql)


if err.number <> 0 then
%>
<script>
alert("Attenzione: si è verificato un errore durante la modifica del Settore selezionato.\nOperazione non effettuata")
</script>
<%
'session("connessione").RollbackTrans
val_settore = settore
val_descrizione = descrizione
val_descrizione= replace(val_descrizione,"
",vbCrLf)
step_modifica = "primostep"
id_per_modifica = idmod

else
' session("Connessione").CommitTrans
end if









end if
'--------------fine modifica file----------------------------------------------------





'------inizio cancellazione settore-------------------------------------------------------------
err.clear
if inserisci = "cancellafile" then


idcancella = request.form("txtcancellaid")

set recordselsettore = CreateObject("ADODB.RECORDSET")
sql = "select settore from settori where id="& idcancella
set recordselsettore= session("Connessione").Execute(sql)



'-------------------vede se è andato tutto a buon fine------------------------------------

if err.number = 0 then
session("connessione") & connessione_begin
sql="delete from settori where id ="& idcancella
session("Connessione").Execute (sql)
response.end
Dim objFSOcanc
Set objFSOcanc = CreateObject("Scripting.FileSystemObject")
'La cartella viene cancellata
objFSOcanc.DeleteFolder Server.MapPath(idcancella)
Set objFSOcanc = Nothing
else
%>
<script>
alert("Attenzione: Si è verificato un errore, cancellazione non effettuata.")
</script>
<%



end if



end if

'------------------- fine cancellazione--------------------------------------











%>

[matpirata]