<%
Dim Category
Dim Description
Dim cn
Category = request.form("txtCategory")
Description = request.form("txtDescription")
catID = request.form("txtID")
strSQL="UPDATE Categories 
SET CategoryName='" & Category & "'",Description='" & Description & "'"
strSQL = strSQL & " WHERE CategoryID =" & CatID
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "NorthWindDSN"
cn.Execute(strSQL)
Response.write "You have successfully amended a record."
cn.Close
Set cn = nothing
%>

Click Next for delete.asp