Pop-up dialog box in server code

Private Sub cscript (ByVal key As String, ByVal meg As String) Dim scriptFunction As New StringBuilder scriptFunction.Append ( "