one page to edit, delete, and add data to a database

[Qnavry]

I am creating one page to edit, delete, and add data to a database. The Add
code works but the Edit and Delete do not. What am I doing wrong? If you need
more code let me know.
Thanks
Code:
Sub Submit(Source as Object, E as EventArgs)

Select Case strCommand
Case "Add"
'Create the appropriate SQL statement
Dim intServerId = Request.QuerySt ring("id")
Dim strSQL As String = "INSERT INTO tblRackInfo (ServerId,Appli cation)
VALUES ( @ServerID,@Appl ication)"
Dim MyConn as New SQLConnection(s trConn)
Dim Cmd as New SQLCommand(strS QL, MyConn)
cmd.Parameters. Add(New SQLParameter("@ Serverid", intServerId))
cmd.Parameters. Add(New SQLParameter("@ Application", txtApp.text))
MyConn.Open()
cmd.ExecuteNonQ uery
MyConn.Close()
Case "Delete"

'Dim chk as CheckBox = CType(itm.FindC ontrol("chkRemo ve"), CheckBox)
' Dim lblID as Label =
rptDelApps.Item s(e.Item.ItemIn dex).cells(1).F indControl("lbl ID")
For Each MyItem As RepeaterItem In rptDelApps.Item s
If MyItem.ItemType = ListItemType.It em Or MyItem.ItemType =
ListItemType.Al ternatingItem Then
For Each MyControl As Control In MyItem.Controls
If TypeOf (MyControl) Is System.Web.UI.W ebControls.Chec kBox Then
If CType(MyControl , CheckBox).Check ed = True Then
' Dim lblID as Label = MyItem.FindCont rol("lblID")
Dim DeleteCmd As String = "DELETE from tblRackInfo Where id ='" &
Request.QuerySt ring("id") & "'"
Dim MyConn as New SQLConnection(s trConn)
Dim Cmd as New SQLCommand(Dele teCmd, MyConn)
'Cmd.Parameters .Add(New SqlParameter("@ ID", lblID.Text))
MyConn.Open()
Cmd.ExecuteNonQ uery()
MyConn.Close()
End If
End If
Next
End If
Next
rptDelApps.Data Bind()

Case "Edit"
Dim MyConn as New SQLConnection(s trConn)
Dim Cmd as New SQLCommand(strS QL, MyConn)
Dim intServerId = Request.QuerySt ring("id")
strSQl ="UPDATE tblTPServers SET Name =@Name, Type =@Type, OS =@OS, CPU
=@CPU, RAM =@RAM, IP=@IP WHERE id='" & intServerId & "'"
MyConn = New SqlConnection(s trConn)
Cmd = New SqlCommand(strS ql, MyConn)

Cmd.Parameters. Add(New SQLParameter("@ Name",txtServer .Text))
Cmd.Parameters. Add(New SQLParameter("@ Type", txtServerType.t ext))
Cmd.Parameters. Add(New SQLParameter("@ OS", txtOS.text))
Cmd.Parameters. Add(New SQLParameter("@ CPU", txtCPU.text))
Cmd.Parameters. Add(New SQLParameter("@ RAM", txtRAM.text))
Cmd.Parameters. Add(New SQLParameter("@ IP", txtIP.text))
MyConn.Open()
cmd.ExecuteNonQ uery
MyConn.Close()

End Select
End Sub

[Tod Birdsall]

Hi,

Have you tried setting a breakpoint at "Cmd.ExecuteNon Query()" line to
see if when you choose to delete, it gets to that line?

If you are getting to that line and it executes without any errors,
double check that the "DeleteCmd" string is correct.
Hope this helps.

Tod Birdsall
http://tod1d.blogspot.com