conector.asp
Cita: <%
dim llenguatge, oConn
lenguaje= request.QueryString("ln")
if lenguaje = "" then lenguaje = "ES" end If
if idioma = "ES" then
BasePath = "basesdedatos/ESPANOL.mdb"
end if
BasePath = "basesdedatos/OTROIDIOMA.mdb"
dim
Sub AbrirConexion
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("& BasePath &"))
end Sub
sub CerrarConexion
oConn.Close
set oConn = nothing
end sub
%>
luego en TU ASP solo haces un include y le das al inicio
y al final de tu pagina
suerte