Objeto cerrado

29/02/2004 - 11:53 por Sergio P | Informe spam
El siguiente codigo funcionaba y de buenas a primera no...
¿por qué?
<%
on error resume next
set base = CreateObject("ADODB.Connection")
base.Open "otroodbc"
crite="Select * from usuarios;"
set recor=base.execute(crite)


if err.description<>"" then
response.write "Conexion Fallida: " & err.description & "<br>" & date() &
now()
else
response.write "<b><u>Conexión con Servidor Realizada con
éxito...</u></b><br>"
end if
set recor=Nothing
set base=Nothing
%>
Muchas gracias de antemano...
 

Leer las respuestas

#1 danicastillo
29/02/2004 - 13:30 | Informe spam
quita el on error resume next para ver en que linea falla (y envianos el
texto del error y la linea donde se produce)

posiblemente hayas borrado o cambiado el odbc o los permisos a la carpeta de
la bbdd o se haya dañado la misma o si el servidor es externo no tengas
conexion (o deshabilitado el puerto en un firewall..) las posibilidades son
muchas sin el error en concreto es imposible saberlo con certeza


-o|o|--
-o|o| dani castillo
-o|o| http://www15.brinkster.com/danic/
-o|o| tutorial y trucos asp, vb, diseño
-o|o|--
"Sergio P" escribió en el mensaje
news:owj0c.126$
El siguiente codigo funcionaba y de buenas a primera no...
¿por qué?
<%
on error resume next
set base = CreateObject("ADODB.Connection")
base.Open "otroodbc"
crite="Select * from usuarios;"
set recor=base.execute(crite)


if err.description<>"" then
response.write "Conexion Fallida: " & err.description & "<br>" & date() &
now()
else
response.write "<b><u>Conexión con Servidor Realizada con
éxito...</u></b><br>"
end if
set recor=Nothing
set base=Nothing
%>
Muchas gracias de antemano...


Preguntas similares