%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<%@ Language=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% dim oConn dim lngR Dim oRS Dim strConsulta Dim bolConecto set oConn = New clsBaseDatos set oRS = Server.CreateObject("ADODB.RECORDSET") bolConecto=oConn.AbrirBaseDeDatosOLEDB(strDSN) if bolConecto = false then Response.Write "