Public Sub ShowMessage(ByVal MessageText As String) MessageText = Replace(MessageText, """", "") Dim strScript As String = " " If (Not Page.IsStartupScriptRegistered("clientScript")) Then Page.RegisterStartupScript("clientScript", strScript) End If End Sub Technorati Tags: ASP.NET , ASP.NET1.1 , asp.net serverside message box
Protected Sub SetFocus(ByVal ctrl As WebControl) ' Define the JavaScript function for the specified control. Dim focusScript As String = " " ' Add the JavaScript code to the page. Page.RegisterStartupScript("FocusScript", focusScript) End Sub Technorati Tags: ASP.NET1.1 , setfocus
Comments