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