Muy sencillo:
Dado que la conexión podría ser así:
Set dbConn = Server.Createobject("ADODB.Connection")
dbConn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("NombreBD")
Podrías pasarte el nombre de la BD por QueryString así:
Pagina.asp?bd=BaseDatos_1
Pagina.asp?bd=BaseDatos_2
Pagina.asp?bd=BaseDatos_3
Y en la página de vuelta recogerías el valor y compondrías la cadena de conexión así:
cBD = Request.QueryString("bd")
Set dbConn = Server.Createobject("ADODB.Connection")
dbConn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath(cBD)
Espero te sirva. Un saludo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>