Private Sub alert(ByVal msg As String)
        Dim tmp As String = _
        "<script language=""Javascript"">" & vbCrLf & _
        "<!--" & vbCrLf & _
        "alert(""" & msg & """)" & vbCrLf & _
        "//-->" & vbCrLf & _
        "</script>" & vbCrLf
	Response.Write(tmp)
End Sub