ASP.Net source code for Msgbox

Version: ASP.NET 1.1
Compatibility: ASP.NET 1.1
Category: ASP.NET

Msgbox function for ASP.Net.
Call this function from the server side, and a msgbox will appear on the client browser. As a bonus, the msgbox javascript is added after the rest of the form, so the browser displays the html for the page and then the msgbox

Declarations:
Imports System.Text

CODE:
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 = ""

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