jscript + = "<script language='javascript'>" jscript + = "window.showModalDialog ( 'DOCUMENTOS2.aspx','',' resizable = yes, menubar = no, scrollbars = no, width = 1850, height = 1650 ') "jscript + =" </ script> "ClientScript.RegisterClientScriptBlock (Me.GetType ()," client ", jscript)

Dim SQL As String = "SELECT * FROM Trx WHERE ID = '" & Session("ID") & "'
 

Dim jscript As String
            Dim ID As String = TextBox1.Text.Trim
            jscript = "<script language='javascript'>"
            jscript += "window.showModalDialog ('DOCUMENTOS2.aspx?ID=" & ID & "','',' resizable = yes, menubar = no, scrollbars = no, width = 1850, height = 1650 ') "
            jscript += " </ script> "
            ClientScript.RegisterClientScriptBlock(Me.GetType(), " client ", jscript)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ID As String=""
        ID = Request.QueryString("ID")        
        If Not IsPostBack Then
 
        End If
    End Sub

Protected Sub GrdDocumentos_RowDataBound (ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GrdDocumentos.RowDataBound 
 
         If e.Row.RowType = DataControlRowType.DataRow Then 
             Dim l As LinkButton = DirectCast (e.Row.FindControl ( "LinkButton1"), LinkButton) 
             l.Attributes.Add ( "onclick", ( "javascript: return" & "confirm ( 'Really delete the Document") & DataBinder.Eval (e.Row.DataItem, "REL_DOCUMENTO") & "?')") 
 End If 
End Sub

 Private Sub  GrdDocumentos_RowCommand (ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GrdDocumentos.RowCommand 
         'Can I exclude here in RowCommand 
 
         If e.CommandName = "Delete" Then 
              RelID GrdDocumentos.SelectedRow.Cells = (4). Text (does not work that way) 
 
             'GrdDocumentos.SelectedIndex = SelectedGridRow.RowIndex 
             'Delete the record 
             'Implement this on your own:) 
             DeleteRecordByID (relID) 
         End If 
End Sub

 Private  Sub DeleteRecordByID (ByVal RegID As Integer) 
 
         Dim Sql As String 
         Dim cmd As SqlCommand 
 
         Dim connection As SqlConnection 
 
         connection = New SqlConnection (ConfigurationManager.ConnectionStrings ( "Timesheet"). ConnectionString) 
 
         Sql = "DELETE FROM REL_PROJETOS" 
         Sql + = "WHERE REL_ID =" & RegID 
 
         cmd = New SqlCommand (Sql, connection) 
 
         Try 
             conexao.Open () 
 
             cmd.Connection = connection 
 
             cmd.CommandType = CommandType.Text 
 
             cmd.CommandText = Sql 
 
             cmd.ExecuteNonQuery () 
         Catch ex As Exception 
             lblMensagem.Text = "Error Occurred While Deleting:" & vbCrLf & ex.Message & vbCrLf '& ex.InnerException.ToString 
         Finally 
             conexao.Close () 
             GrdDocumentos.DataBind () 
         End Try 
     End Sub Protected Sub GrdDocumentos_SelectedIndexChanging (ByVal sender As Object, ByVal e As System.EventArgs) Handles GrdDocumentos.SelectedIndexChanged 
         RelID = GrdDocumentos.SelectedRow.Cells (12). Text 
End Sub