Error personalizado si no conecta a base de datos?

[daniag]

Hola, tengo una página en asp que conecta con una base de datos access directamente especificando la ruta con MapPath:

cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";"

Hay alguna manera en asp de que, si esta base de datos no se encuentra, en lugar de que salga el error de ASP:
"Microsoft JET Database Engine error '80004005' No se pudo encontrar el archivo"

salga algún tipo de error personalizado del tipo:
No se pudo encontrar la base de datos (es decir, tipo el "or die" de php.)

Saludos!

[Adler]

Hola

Prueba con esto

En un include (errores) montas un sub tipo

Código PHP:

  <%
sub AvisoError ()
%>
Aquí el texto que quieras
<%
end sub
%> 
   

Ahora en la página donde haces la consulta

Código PHP:

  <% On Error Resume Next  %>
<!--#include file="./errores.asp"-->

SQL="SELECT campo FROM tabla"
rs.Execute(SQL)

' ===== SE HA PRODUCIDO UN ERROR?? =====
if Err.number <> 0 Then 
Response.Clear
Call AvisoError ()
Err.Clear
end if
' ==================================== 
   

Suerte

[daniag]

Hola Adler, muchas gracias. No obstante...lo he puesto y cuando voy a probarlo (por ejemplo, renombrando la base de datos para que salga error), se queda intentando cargar la página hasta que salta el time out del iis.

Lo tengo montado de la siguiente manera:

Página errores.asp:

Código PHP:

  <%
sub AvisoError ()
%>
Estamos actualizando la base de datos
<%
end sub
%> 
   

Página de la consulta:
Zona superior:

Código PHP:

  <% On Error Resume Next  %>
<!-- #include file="errores.asp" --> 
   

Luego tengo algunas funciones, etc, y a continuación, la conexión con el código para que salte el error que me has pasado:

Código PHP:

  Set cnx = Server.CreateObject("ADODB.Connection")
Set rs =Server.CreateObject("ADODB.RecordSet")
cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base/base.mdb")&";"
 
sql="SELECT * FROM descargas WHERE apartado=" & ap & " AND (marca like '" & sql_marca & "' OR marca=99) ORDER BY fecha "&session("tiporden_des")&", id ASC;"
rs.Open sql,cnx,adopenstatic,adcmdtext
 
if Err.number <> 0 Then 
Response.Clear
Call AvisoError ()
Err.Clear
end if 
   

Saludos!

[JuanRAPerez]

ummm prueba asi

<%
sub AvisoError ()
%>
<p>Estamos actualizando la base de datos</p>

<%
response.end
end sub
%>

suerte

[daniag]

Muchas gracias a los dos! el sub de la segunda manera (con el response.end) funcionó perfecto :)


Saludos!

[JuanRAPerez]

bueno suerte ahi para poder optimizar tu web tu tendrias que definir algunas cosa mas

<%
sub AvisoError ()
'captura el error
'enviar por correo al webmaster
'o insertar en un log de errores para saber que tu web esta tronando por algo
%>

<p>Estamos actualizando la base de datos</p>
<%
response.end
end sub
%>

[Adler]

Iniciado por JuanRAPerez

<%
sub AvisoError ()
'captura el error
'enviar por correo al webmaster
'o insertar en un log de errores para saber que tu web esta tronando por algo
%>

Un ejemplo de como hacerlo

Iniciado por JuanRAPerez

<p>Estamos actualizando la base de datos</p>
<%
response.end
end sub
%>

Por cierto JuanRA nunca había visto un response.end en un sub tal y como el que nos ocupa. ¿Sería conveniente ponerlo?

Gracias

[Shiryu_Libra]

la manera que has puesto Adler tambien funcionaria, si en dado caso, agregaras la linea response.flush

algo asi

<%
sub AvisoError ()
response.clear()
%>
Aquí el texto que quieras
<%
err.clear()
response.flush
end sub
%>

[Adler]

Hola Shiryu , yo no uso response.clear() en el sub ya que el buffer de la página en ocasiones es true y otras false.

Código PHP:

  Sub AvisoError (inst)
%>
Mensaje de error
<%
 Archivo log de errores
Dim objetivo, fso, archivo
objetivo = Request.ServerVariables("APPL_PHYSICAL_PATH") & "Errores\LogErrores.txt"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set archivo = fso.OpenTextFile (objetivo, 8, true)
archivo.WriteLine("Fecha -> " & Now())
archivo.WriteLine("Sección -> " & seccion)
archivo.WriteLine("Instrución -> " & inst)
archivo.WriteLine("Error -> " & Err.Description)
archivo.WriteLine("--------------------------------------------")
archivo.Close()
Set archivo = Nothing
Set fso = Nothing

End Sub
%> 
   

Lo llamo así

Código PHP:

  if Err.number <> 0 Then
Response.Clear ()
Call AvisoError (SQL)
Err.Clear ()
'Libero memoria y cierro todo 
Call LimpiarRS (rs)
Call LimpiarConexion (fconn)
Response.End ' Para la ejecución del resto del código
end if 
   

¿Veis algo que sobre o que falte? ¿Qué os parece?

[Shiryu_Libra]

lo que pasa, es que si utilizas response.end, ya no continuaria con las instrucciones siguientes

pero podrias evaluar el buffer

<%
if response.Buffer then
response.Write "activado"
'si esta activado, pues entonces
response.flush()
else
response.Write "desactivado"
'procede como mencionas tu
response.end
end if
%>

recordemos que se puede evaluar todo, para evitar errores... no creen
ademas... ero mexicano , algo debo inventar

[JuanRAPerez]

jejejej

pues si funciona, funciona :)

[Shiryu_Libra]

Iniciado por JuanRAPerez

jejejej

pues si funciona, funciona :)

ejem... ejem: lo se mi estimado amigo.... lo se

chingado invento mexicano
me salio de la manga.... y no la de los caballeros del zodiaco

[Adler]

entiendo una nueva magia del hombre zodiacal

[daniag]

Iniciado por JuanRAPerez

bueno suerte ahi para poder optimizar tu web tu tendrias que definir algunas cosa mas

Lo tendré en cuenta! gracias! :)