Problema duplicato ciclo for

[Freedom]

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è?

<% 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() %>

[optime]

qui

For i = 0 To Ubound(StrIdSottoCatDaForm)


Ubound(StrIdSottoCatDaForm) cosa vale?

[Freedom]

Originariamente inviato da optime
qui

For i = 0 To Ubound(StrIdSottoCatDaForm)


Ubound(StrIdSottoCatDaForm) cosa vale?

E' un campo che arriva dal form (una select multipla). ES: "2,3".

[optime]

in quel caso UBOUND vale? 1? 2?

[Freedom]

Originariamente inviato da optime
in quel caso UBOUND vale? 1? 2?

Dipende dalla selezione. E' una select multipla! Puó valere 1, 2 o anche 1 e 2 assieme.

[optime]

1 e 2 assieme la vedo dura....

[Freedom]

Originariamente inviato da optime
1 e 2 assieme la vedo dura....

Perchè???
Se faccio un Response.Write("IdSottoCat") mi restituisce: 1,2

[optime]

io ti ho SEMPRE parlato di Ubound(StrIdSottoCatDaForm). cfr il mio primo post

[Freedom]

Originariamente inviato da optime
io ti ho SEMPRE parlato di Ubound(StrIdSottoCatDaForm). cfr il mio primo post

Perdona.

StrIdSottoCatDaForm = Split(Request.Form("IdSottoCat"), ",")

For i = 0 To Ubound(StrIdSottoCatDaForm)...

[Freedom]

Quindi nessuno mi sa aiutare?