Assegnare più file a più utenti contemporaneamente

[bibuz]

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:

<%
'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:

<%
'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:

<%

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

[bibuz]

Scusate mi sono scordato di dirvi che sia il filtraggio dei file che degli utenti, avviene in una pagina precedente tramite il check box sia sulla lista degli utenti sia lulla lista dei file.

[bibuz]

Ho stampato a video la query e questo è il risultato:

INSERT INTO uploadFile (file_1, descrizione_1, username, livello, tipo, id_login) VALUES ('webthelastemperor.doc','Elenco video valentino','Antonio','antonio','Cliente',7)
INSERT INTO uploadFile (file_1, descrizione_1, username, livello, tipo, id_login) VALUES ('webthelastemperor.doc','Elenco video valentino','ttttt@ttttt.it','rob','Cliente',6)
INSERT INTO uploadFile (file_1, descrizione_1, username, livello, tipo, id_login) VALUES ('','','','','',)
INSERT INTO uploadFile (file_1, descrizione_1, username, livello, tipo, id_login) VALUES ('','','','','',)
INSERT INTO uploadFile (file_1, descrizione_1, username, livello, tipo, id_login) VALUES ('','','','','',)
INSERT INTO uploadFile (file_1, descrizione_1, username, livello, tipo, id_login) VALUES ('','','','','',)

Giustamente lui inserisce solo un file perchè dalla pagina precedente gli viene passato solo quel file.

Solo che non riesco proprio a fare in modo che ad ogni utente corrispondano più file.
Ho tanti utenti ma solo un file assegnato ad essi.

[bibuz]

Ancora nulla non sono riuscito a risolvere....
Provando a ricominciare da capo forse è il procedimento adotatto da me che è sbagliato.
Faccio un riepilogo.
Ho due tabelle.

Tabella login:
id_login username password livelloAccesso

Tabella uploadFile
id_upload file_1 descrizione_1 username password id_login

Il campo id_login in quest'ultima tabella mette in relazione le due tabelle.

Chiaramente i file sono stati caricati in precedenza dall' amministratore.

Il ragionamento che voi fareste per creare quello che serve a me, ovvero la possobilità all'amministratore di rendere visibili più file a più utenti quale sarebbe?