Buongiorno,

Sto costruendo un'applicazione per la gestione dei file in rete.
Tra i le varie funzionalità vi è quella in cui l'amministratore puà decidere di far vedere alcuni file a determinati utenti.
Io sono riuscito a fare in modo di assegnare un singolo file a più utenti.
Ora però vorrei riuscire ad assegnare anche più di un file a uno o più utenti.
Tramite questo script io ricavo l'elenco dei file da assegnare e gli utenti a cui devono essere assegnati tutto in una pagina.

Codice per l'estrazione dei file da assegnare:
codice:
<%
'Connessione al database
set con = server.createobject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("database/database.mdb")

set rs = Server.CreateObject("ADODB.Recordset")
rs.activeconnection = con
rs.cursortype = adOpenDynamic
rs.locktype = adLockOptimistic
strsql = "select * from uploadFile order by file_1 asc"
rs.open strsql

while not rs.eof
	record = request("record_" & rs("id_upload"))
	'Visualizzo i prodotti selezionati
	if len(record) <> 0  then
		strsql = "select * from uploadFile where id_upload = " & record
		set rs2 = con.execute(strsql)
			if not rs2.eof then
				id_upload = rs2("id_upload")
				File_1 = rs2("File_1")
				descrizione_1 = rs2("descrizione_1")
				%>[*]Nome File: <%=file_1%>
                                  <label></label>
                                [*]Descrizione: <%=descrizione_1%>
							  <hr />
                                    <%
			end if
		rs2.close
		set rs2 = nothing
	end if
	'Fine visualizzazione
	
rs.movenext
wend
'Fine

rs.close
set rs = nothing
%>
Codice per l'estrazione degli utenti ai quali assegnare i file:
codice:
<%
'Connessione al database
set con = server.createobject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("database/database.mdb")

set rs = Server.CreateObject("ADODB.Recordset")
rs.activeconnection = con
rs.cursortype = adOpenDynamic
rs.locktype = adLockOptimistic
strsql = "select * from login order by nomeCognome asc"
rs.open strsql

while not rs.eof
	record = request("record_" & rs("id_login"))
	'Visualizzo i prodotti selezionati
	if len(record) <> 0  then
		strsql = "select * from login where id_login = " & record
		set rs2 = con.execute(strsql)
			if not rs2.eof then
				idLogin = rs2("id_login")
				nomeCognome = rs2("nomeCognome")
				username = rs2("username")
				password = rs2("password")
				livelloAccesso = rs2("livelloAccesso")
				tipo = rs2("tipo")
				%>[*]Nome utente: <%=nomeCognome%>
                                    <input name="id_login" type="hidden" id="id_login" value="<%=idLogin%>" />
                                    <input name="livello" type="hidden" id="livello" value="<%=livelloAccesso%>" />
                                    <input name="username" type="hidden" id="username" value="<%=username%>" />
                                    <input name="tipo" type="hidden" id="tipo" value="<%=tipo%>" />
                                [*]Username: <%=username%>
                                    <input name="nomeFile" type="text" id="nomeFile" value="<%=File_1%>" />
                                [*]Password: <%=password%>
							[*]Livello di accesso: <%=livelloAccesso%>
							[*]Tipologia di contatto: <%=tipo%>
                                    <input name="descrizione" type="text" id="descrizione" value="<%=descrizione_1%>" />
                                    <hr />
                                    <%
			end if
		rs2.close
		set rs2 = nothing
	end if
	'Fine visualizzazione
	
rs.movenext
wend
'Fine

rs.close
set rs = nothing

con.close
set con = nothing
'Fine
%>
Poi passo i valori con il metodo "post" alla pagina che si occuperà di fare l'inserimento:
codice:
<%

On Error resume Next

Set Connn = Server.createobject("ADODB.Connection")
Connn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("database/database.mdb")
Connn.Open

For i = 1 To Request.Form.count - 1

ReDim Preserve arrayIdLogin(i) 
ReDim Preserve arrayLivello(i) 
ReDim Preserve arrayUsername(i)
ReDim Preserve arrayTipo(i)  
ReDim Preserve arrayNomeFile(i) 
ReDim Preserve arrayDescrizione(i) 

arrayIdLogin(i) = Request.Form("id_login")(i)
arrayLivello(i) = Request.Form("livello")(i)
arrayUsername(i) = Request.Form("username")(i)
arrayTipo(i) = Request.Form("tipo")(i)
arrayNomeFile(i) = Request.Form("nomeFile")(i)
arrayDescrizione(i) = Request.Form("descrizione")(i)



strSQL = "INSERT INTO  uploadFile (file_1, descrizione_1, username, livello, tipo, id_login) VALUES ('"&arrayNomeFile(i)&"','"&arrayDescrizione(i)&"','"&arrayUsername(i)&"','"&arrayLivello(i)&"','"&arrayTipo(i)&"',"&arrayIdLogin(i)&")"
response.Write strSQL
Connn.Execute(strSQL)
Next

Connn.close

%>
Come posso risolvere??

Grazie a tutti in anticipo