Imports System.Text

Public Sub UserMsgBox(ByVal sMsg As String) Dim sb As New StringBuilder() Dim oFormObject As System.Web.UI.Control sMsg = sMsg.Replace("'", "\'") sMsg = sMsg.Replace(Chr(34), "\" & Chr(34)) sMsg = sMsg.Replace(vbCrLf, "\n") sMsg = "<script language=javascript>alert(""" & sMsg & """)</script>" sb = New StringBuilder() sb.Append(sMsg) For Each oFormObject In Me.Controls If TypeOf oFormObject Is HtmlForm Then Exit For End If Next ' Add the javascript after the form object so that the ' message doesn't appear on a blank screen. oFormObject.Controls.AddAt(oFormObject.Controls.Count, New LiteralControl(sb.ToString())) end sub