<html>
<head>
<title>Select category to change</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>Please select which category you wish to modify.<hr></p>
<%
Dim rst
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "Categories", "DSN=NorthWindDSN"
%>
<form name="frmFind" method="get" action="amend_change.asp">
<select name = "ProdCats" Size = "1">
<%
DO WHILE NOT rst.EOF
 Response.Write "<option value= '" & rst("CategoryID") & "'>"
 Response.Write rst("CategoryName") & "</option>"
 rst.MoveNext
 Loop
 rst.close
 set rst=Nothing
 %>
 </select>
 <input type="submit">
 </form>
 </body>
 </html>

Click Next for amend-change.asp