Non ho ben capito quale si il tipo di problema, ad ogni modo ho notato questo:

codice:
set conn2 = server.createobject ("ADODB.Connection")
conn2.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("database1.mdb")
Fai già precedentemente l'apertura della connessione a "database1.mdb", per cui (a meno di errore di digitazione, in apertura di post), fai:

codice:
set conn2 = server.createobject ("ADODB.Connection")
conn2.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("database2.mdb")