<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Establece conexion ------------------------------------------------
Session.LCID = 2058 'Sep miles:comas y dec:punto
on error resume next
Dim nombre_archivo, oFSO, f, archivo, accion, contenido
nombre_archivo="conexion.txt"
' Creamos el objeto FileSystemObject
set oFSO=Server.CreateObject("Scripting.FileSystemObject")
'Obtiene un puntero al archivo del libro de visitas
set archivo=oFSO.GetFile(Server.MapPath(nombre_archivo))
'Abro el archivo como un flujo de texto
set f=archivo.OpenAsTextStream
'Leemos el archivo entero
contenido=f.ReadAll
f.Close
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.ConnectionString = contenido
Cnn.Open
'--------------------------------------------------------------------
%>
Conciencia Despierta