Error de conexión, si, pero....
Publicado por zin (1 intervención) el 31/12/2002 18:37:26
Hola a todos y Feliz Navidad:
Tengo un problema y me estoy volviendo loco. Estoy creando una página que contiene una página ASP para recuperar datos de una base de Acces 2000. Bien, he generado Global.asa con el siguiente código:
<SCRIPT LANGUAGE=VBScript RUNAT=server>
Sub application_onStart()
\' sentencias que se ejecutan al entrar el primer usuario
\'
Dim BaseDatos
BaseDatos = Server.MapPath(\"/ov/bd/establecimientos.mdb\")
\'ADODB
Application(\"CadenaConexion\") = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & BaseDatos & \";\"
End sub
Sub application_onEnd()
\'sentencias a ejecutar al irse el último usuario
\'
End sub
Sub session_onStart()
\'sentencias que se ejecutan cada vez que entra un usuario
\'
End sub
Sub session_onEnd()
\'sentencias a ejecutar al irse el usuario
\'
End sub
</SCRIPT>
La página ASP contiene el siguiente código:
<% @ LANGUAGE=\"VBSCRIPT\" %>
<% Option Explicit %>
<!-- #include file=\"includes/comunes.inc\" -->
<%
Dim Ciudad
Ciudad = ObtenerParametro(\"Ciudad\",\"\")
If Ciudad=\"\" or not IsNumeric(Ciudad) then
Error \"Los parámetros de llamada de la página no son los esperados.\"
Else
Dim Conn,RS,txtSQL
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set RS =Server.CreateObject(\"ADODB.RecordSet\")
Conn.Open Application(\"CadenaConexion\"%
Tengo un problema y me estoy volviendo loco. Estoy creando una página que contiene una página ASP para recuperar datos de una base de Acces 2000. Bien, he generado Global.asa con el siguiente código:
<SCRIPT LANGUAGE=VBScript RUNAT=server>
Sub application_onStart()
\' sentencias que se ejecutan al entrar el primer usuario
\'
Dim BaseDatos
BaseDatos = Server.MapPath(\"/ov/bd/establecimientos.mdb\")
\'ADODB
Application(\"CadenaConexion\") = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & BaseDatos & \";\"
End sub
Sub application_onEnd()
\'sentencias a ejecutar al irse el último usuario
\'
End sub
Sub session_onStart()
\'sentencias que se ejecutan cada vez que entra un usuario
\'
End sub
Sub session_onEnd()
\'sentencias a ejecutar al irse el usuario
\'
End sub
</SCRIPT>
La página ASP contiene el siguiente código:
<% @ LANGUAGE=\"VBSCRIPT\" %>
<% Option Explicit %>
<!-- #include file=\"includes/comunes.inc\" -->
<%
Dim Ciudad
Ciudad = ObtenerParametro(\"Ciudad\",\"\")
If Ciudad=\"\" or not IsNumeric(Ciudad) then
Error \"Los parámetros de llamada de la página no son los esperados.\"
Else
Dim Conn,RS,txtSQL
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set RS =Server.CreateObject(\"ADODB.RecordSet\")
Conn.Open Application(\"CadenaConexion\"%
Valora esta pregunta


0