Conexion a Base SQL Server

[legolas]

Masters, alguno de ustedes tiene un string de conexión a base de datos SQL server 2000 o 7.0. Intenté hacer esto pero me dá un error:
DSN_NAME="Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source="&Server.Mappath("acceso_Data .MDF") &";"
Const DSN_USER="usuario"
Const DSN_PASS="concurrentes"
Sub OpenConection
set objDC=Server.createobject("ADODB.Connection&q uot;)
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open DSN_NAME, DSN_USER, DSN_PASS
End Sub

La verdad es que quiero generar solo un proceso de conexión y utilizarlo en todo mi sitio, pero no importa si no lo logro.

[agarciaa]

"DRIVER={SQL Server};Server=(local);uid=sa;pwd=password;DataBas e=basededatos"

<a href="http://www.unitecos.net">
<img src="http://www.soportexpresso.com/pass/correo/agarciaa.jpg" border=0>
</a>

[legolas]

Gracias, lo probaré! ;)

[legolas]

funcionó, gracias.

Ahora me queda crear una subfunción de conexion de modo que solo se llame a esa función para conectarme a ella. Alguien tiene alguna idea de como hacerlo?

[vgaray]

Saludos.

Pon el siguiente código en el archivo global.asa


Sub Application_OnStart
Application(&quot;x_ConnectionString&quot;) = &quot;Provider=SQLOLEDB; Data Source=tu_servidor_sql; Initial Catalog=tu_base_de_datos; OLE DB Services=-2&quot;
Application(&quot;x_ConnectionTimeout&quot;) = 15
Application(&quot;x_CommandTimeout&quot;) = 30
Application(&quot;x_CursorLocation&quot;) = 3
Application(&quot;x_RuntimeUserName&quot;) = &quot;usuario&quot;
Application(&quot;x_RuntimePassword&quot;) = &quot;concurrentes&quot;
End Sub


Ahora, en cada página donde quieres hacer uso de la base de datos, pon el siguiente código....

&lt;%
Sub OpenConection
set objDC=Server.createobject(&quot;ADODB.Connection&q uot;)
objDC.Open Application(&quot;x&quot;)
End Sub
%&gt;


Nota: x es cualquier palabra que desees utilizar.


---------------------
Espero que esto ayude...

[legolas]

ok, gracias