ciao...

E' da giorni che mi sono bloccato a questo codice. E' un semplice inserimento nel database. Il problema: ogni inserimento mi viene registrato sempre per due volte. Perchè?

codice:
<% Call SUBConnOpen("dati-utenti.mdb") %>
<%
'===================================== INSERIMENTO ==========================================
Dim IdCat, CodAzienda, ArrIdSottoCatDaForm, StrIdSottoCatDaForm
dim a
a = Request.Form("IdSottoCat")
IdCat = Request.QueryString("IdCat")
idcat = 2
CodAzienda = Request.QueryString("c")


Dim i
StrIdSottoCatDaForm = Split(a, ",")
For i = 0 To Ubound(StrIdSottoCatDaForm)
	'On Error Resume Next
	StrSQL2 = "INSERT INTO Aziende "
	StrSQL2 = StrSQL2 & "(CodAzienda, IdCat, IdSottoCat)"
	StrSQL2 = StrSQL2 & " VALUES ('"&CodAzienda&"', "&IdCat&", "&StrIdSottoCatDaForm(i)&")"
	'response.Write("

"&StrSQL2&"</p>")
	'response.Write("

i: "&i&"</p>")
	'response.End()

	ObjConn.BeginTrans
	ObjConn.Execute(StrSQL2)
	
	'Controllo errori
	If ObjConn.Errors.Count > 0 Then
	  
		'errori: annullo tutto
		ObjConn.RollBackTrans
		  
		Call SUBErrori("Aggiornamento")
		Response.Write(ObjConn.Errors.Item(0))
	  
	Else
		'tutto bene, porto avanti e concludo la transazione
		ObjConn.CommitTrans
		'Reindirizza = True
		response.Write("okk")
	End If
Next
%>
<% Call SUBConnClose() %>