Foros del Web - Ver Mensaje Individual - Biblioteca de Clases,Funciones y Sub-rutinas.

lexus · #35 (**permalink**) 02/12/2004, 16:52

esta subrutina sirve para darle un manejo ordenado a nuestros errores, recomendado para usar en intranets.

no coloqué el desarrolo de la pagina de envio de datos pero es hecha usando Cdonts y solo falta agregarle los parametros a enviar.asp?errornum=.....asi

Código:

 
 
<%
Dim mensaje_error,hay_error
mensaje_error = ""
hay_error = false
 
sub manejoerror(error)
hayerror = true
mensaje_error = mensaje_error & error & ", "
response.write(vbCrLf & "<fieldset><legend><strong>ADVERTENCIA: Se ha producido un error</strong></legend>")
response.write(vbCrLf & "<br>")
response.write(vbCrLf & "	 <b>&nbsp;Error #:</b> " & err.number & "<br>")
response.write(vbCrLf & "	 <b>&nbsp;Fuente del Error:</b> " & err.source & "<br>")
response.write(vbCrLf & "	 <b>&nbsp;Descripci&oacute;n del Error:</b> " & err.description & "<br>")
response.write(vbCrLf & "	 <b>&nbsp;Fecha y Hora:</b> " & now() & "<br>")
response.write(vbCrLf & "	 <b>&nbsp;Pagina:</b> " & request.servervariables("SCRIPT_NAME") & "<br>")
		if request.cookies("login") = "" then
response.write(vbCrLf & "	 <b>&nbsp;Usuario:</b> An&oacute;nimo <br>")
else 
response.write(vbCrLf & "	 <b>&nbsp;Usuario:</b> " & request.cookies("login") & "<br>")
end if
response.write(vbCrLf & "<br>")
		response.write(vbCrLf & "<input type=""submit"" name=""Submit"" value=""Enviar a Soporte"" onClick=""javascript:window.location.href='enviar.asp';""> ")
		response.write(vbCrLf & "<input type=""submit"" name=""Submit"" value=""Imprimir Reporte"" onClick=""javascript:print();"">")
response.write(vbCrLf & "</fieldset>")
end sub
on error resume next
%>
<html><head></head><body></body></html>
<%
If err.number <> 0 Then
	manejoerror err.description
End If
%>

para probarlo creen un error a proposito por ejemplo coloquen dentro de las etiquetas body algo asi: <%asd%>