Biblioteca de Clases,Funciones y Sub-rutinas.

[dobled]

Funcion para Redireccionar con mensajeBox

Código:

Sub Redirecciona(pagina,mensaje)
If pagina="" Then
pagina="window.history.back();"
ElseIf isNumeric(pagina) Then
pagina="window.history.go(-"&pagina&")"
Else pagina="location.href='"&pagina&"';"
End If

Response.Write("<script language=""javascript"">")

If mensaje<>"" Then
Response.Write("alert('"&Mensaje&"');")
End If

Response.Write (pagina&"</script>")
Response.End
End Sub

se utiliza asi

Código:

<%
Call Redirecciona("form_ingreso_cursos.asp","El curso "&nom_curso&" se ingreso correctamente.")
%>

o

Código:

<%
    Call Redirecciona("","Los datos son erroneos.")
%>