Query di sincronizzazione tabelle

[pictor]

Devo fare una cosa un pò delicata che non ho mai fatto e quindi vorrei un piccolo aiuto

Ho creato delle nuove tabelle nel mio database.
In pratica prima c'era una tabella degli Utenti dove c'era un campo con memorizzato il codice del gioco fatto dall'utente (è un sito dove devo distinguere gli utenti in base al gioco).

Prima veniva solamente scritto il codice nella tabella Utenti, nell'apposito attributo.

Adesso però ho creato una tabella Giochi dove sono contenute informazioni su ogni gioco.
Ho creato inoltre la tabella Giochi_Players con attributi UserID e Gioco.
In quest'ultima memorizzo tutti i giochi fatti da un player.

Adesso però dovrei creare i record in Giochi_Players in base ai dati già esistenti nella tabella Utenti.

In pratica devo fare una query che per ogni utente "Tizio" che ha l'attributo impostato sul gioco "Gioco1" vorrei che si creasse una entry in Giochi_Players:
______________
|Tizio|Gioco1|
--------------

Però non ho idea di come fare.
Mi date un paio di suggerimenti?

Grazie mille!

[pictor]

Io ho provato a creare questa pagina ASP.
Guardate se ha senso. L'ho fatta in 2 minuti e sono molto inesperto quindi non fate caso alla bruttezza.

Tanto la devo usare solamente una volta. Però mi dovete dire se funzionerà

...
<%


sub Aggiorna
	Dim	Rs, Cn, slq, gioco, TwoGames
	
	sql = "SELECT * FROM TbUtenti ORDER BY [Membro]"
	
	Call AproConnessione(StrConn,Cnm)
	set Rs = Cn.execute(sql)

	while not rs.eof
		TwoGames = False
		if rs("Gioco") = "1" Then //Gioco 1
			gioco = "1"
		end if
		if rs("Gioco") = "2" Then //Gioco 2
			gioco = "2"
		end if
		if rs("Gioco") = "12" Then //Gioco 1 e 2
			gioco = "1"
			TwoGames = true
		end if
		if rs("Gioco") = "" Then //Nessun Gioco
			gioco = ""
		end if
		
		sql = "INSERT INTO TBgiochi_players [UserID, Gioco] VALUES ('" & rs("UserID") & "'," & gioco & ")"
		if TwoGames Then
			sql = "INSERT INTO TBgiochi_players [UserID, Gioco] VALUES ('" & rs("UserID") & "', 2)"
		End if
		rs.movenext
	wend
	rs.close
	set rs = nothing
	Call ChiudoConnessione(Cnm)	
end sub

call Aggiorna
%>
...

Che dite? Va bene?
Non pretendo che capiate tutto. Mi basta che mi sappiate dire se più o meno è corretta e la posso usare

Grazie mille!