<html>
<head>
<title>Change category</title>
</head>
<body bgcolor='"#FFFFFF"' text='"#000000"'>
<%
Dim rst
Set rst = Server.CreateObject("ADODB.Recordset")
Dim strSQL
Dim varList
varList = Request.QueryString("ProdCats")
strSQL = "SELECT CategoryName, Description, CategoryID "
strSQL = strSQL & "From Categories WHERE CategoryID = " & varList
rst.Open strSQL, "DSN=NorthWindDSN"
%>
<p>This record is available for updating.</p>
<hr />
<form name="frmCategory" method="post" action="amend.asp">
<input type="hidden" name="txtID" value="<%=rst("CategoryID")%>" />
<p><b>Category</b></p>
<input type="text" name="txtCategory" value="<%=rst("CategoryName")%>" />
<p><b>Description</b></p>
<textarea name="txtDescription" cols="25" rows="15" />
<%=rst("Description")%>
</textarea>
<input type="submit" name="Submit" value="Change" />
</form>
</body>
</html>

Click Next for amend.asp