Asp

¿Cómo estas?
Mira esto es fácil si ya conoces un poco de ASP y VBScript.
Para hacer esto tienes que saber que son los include files y si vas a usar secciones que es global. Asa
Un String de conexión se utiliza para no ulilizar DNS=nombredns y evitar que tu hosting o tu tengas que configurar ODBC, bien vamos al grano.
Los #includes, server side includes (SSI) o en español, inclusiones de servidor, te permiten copiar el contenido de un fichero en otro fichero. La ventaja de las inclusiones es que te permite agrupar código en ficheros, y utilizarlo en todas las páginas que quieras. Por ejemplo, se pueden agrupar todas las funciones sobre fechas, incluir el fichero y utilizarlo en cuantas páginas necesites, así:
db.asp
<%
Dim vPath, pPath, ConString
vPath = "database\nombredb.mdb"
pPath = Server.MapPath( vPath )
ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=colocapassword"
%>
Y en cualquier otra página ASP que lo necesites:
<!--#include file="db.asp"-->
en caso de utilizar seciones coloca en el global.asa lo siguiente:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Dim vPath, pPath, ConString
vPath = "database\nombredb.mdb"
pPath = Server.MapPath( vPath )
ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=foo"
Application("visits") = 0
Application("Active") = 0
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
'aqui colocarias las instrucciones de seccion
'aqui un contador de visitas reales :-)
Sub Session_OnStart
Session("Start") = Now
Application.lock
Application("visits") = Application("visits") + 1
intTotal_visitors = Application("visits")
Application.unlock
Session("VisitorID") = intTotal_visitors
Application.lock
Application("Active") = Application("Active") + 1
Application.unlock
End Sub
Sub Session_OnEnd
Application.lock
Application("Active") = Application("Active") - 1
Application.unlock
End Sub
</SCRIPT>
ya con esto tienes un buen global.asa y los includes
Ahora solo falta hacer un recordset para saber como vas a usar el ConString (así llame la cadena de conexión)
y es asi:
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
set user = Conn.Execute("Sentencia SQL;")
Espero que te sirva, si tienes cualquier duda pregunta, en todoexpertos.com estamos para ayudarte