Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim myscript As String = "confirm(document.getElementById('TextBox1').value );"
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strMessage As String
strMessage = "رکورد مورد نظر حذف شود ؟"
Dim strScript As String = "<script language=JavaScript>"
strScript += "confirm(""" & strMessage & """);"
strScript += "</script>"
If (Not ClientScript.IsStartupScriptRegistered("clientScri pt")) Then
ClientScript.RegisterClientScriptBlock(Me.GetType( ), "clientScript", strScript)
End If