|
|
|
|
 Click here to copy the following block | ' Show a client-side message box at the next page load
' Example:
' ShowMessageBox(Me, "Order successfully submitted!")
Sub ShowMessageBox(ByVal webPage As System.Web.UI.Page, ByVal message As String)
' replace ' with \', otherwise the resulting javascript may raise errors
message = message.Replace("'", "\'")
' create the script and add it to the page's response
Dim script As String = "<script language=""javascript"">alert('" & message _
& "');</script>"
If (Not webPage.IsStartupScriptRegistered("StartupAlert")) Then
webPage.RegisterStartupScript("StartupAlert", script)
End If
End Sub |
|
|
|
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
 |
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
|
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|