Código fuente de 'Asp y Javascript.asp'
<html>
<head>
<title>Asp y javascript - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<center><b><font face="Arial" size="3">Asp y javascript</font></b></center>
<br>Ejemplo de cómo mezclar código Asp y javascript (ver código).
<br><br>
<%
Sub Debug1(Msg)
Msg = Replace(Msg,"'","\'")
Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
Response.Write "if(!confirm('"&Msg&"'))"
Response.Write "{"
Response.Write "location.href = 'http://www.astalaweb.com';"
Response.Write "}"
Response.Write "</SCRIPT>"
End Sub
%>
<%
Sub Debug2(Msg)
Msg = Replace(Msg,"'","\'")
Response.Write "<script language='JavaScript'>"
Response.Write "alert('"&Msg&"');"
Response.Write "history.back();"
Response.Write "</script>"
Response.End
End Sub
%>
<%
'Ejemplo (podría llamar también a la función debug2)
Msg = "Aceptar detiene el código. Cancelar redirecciona a www.astalaweb.com" : Debug1 Msg
%>
</body></html>