recuperation champ et update dans une autre table

Salut,
Je cherche a recuperer dans une table (towns) le numero ("id" en autonum) qui correspond a la ville, pour ensuite dans une autre table (main) faire un update en remplacant le nom de la ville par l'id qui lui correspond.

Main:                        towns:
xxx                           id
city                          city


Voila mon code:

<%Dim town, temp

Set con = server.createobject("adodb.connection")
con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\DataBase.mdb"

set rec = server.createobject("adodb.recordset")
rec.activeconnection = con
set rec2 = server.createobject("adodb.recordset")
rec2.activeconnection = con
rec2.Open "select * from main"
do while not rec2.EOF
town = rec("city")
do while not rec.EOF
rec.open "select * from towns where city = & town &"
temp = rec("id")
sqlUpdate = "Update Main set city = '" & temp &"'"
con.execute sqlUpdate
rec2.MoveNext
rec.Movefirst
loop
loop
response.Write (DONE)
%>