Create una funcion que alojes en un archivo en asp que se llame "db.asp".
yo uso esta...
<%
Sub OpenDB (byRef MyConn, db)
dsn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\db\" & db & ""
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open dsn
End Sub
%>
y metes esto "<!--#include file="db.asp"-->" al principio de todas las paginas.
luego la conexion la habres hasi...
OpenDB MyConn, "bd.mdb"
set rs = server.createobject("ADODB.Recordset")
SQL_query = "select * from [lo que sea]"
Set RS = MyConn.Execute(SQL_query)
Hasi cuando te den la nueva dsn solo la tendras que cambiar en un sitio.
Espero haberte ayudado
