<%strSQL = "SELECT ProductID, ProductName "
 strSQL = strSQL & "FROM Products "
 strSQL = strSQL & "WHERE Discontinued=True"
 Set rst= Server.CreateObject("ADODB.Recordset")
 Set cnn= Server.CreateObject("ADODB.Connection")
 cnn.open "NorthWindDSN"
 rst.open strSQL, cnn
 %>
 <html>
 <head>
 <title>Delete product</title>
 </head>
 <body bgcolor="#FFFFFF" text="#000000">
 <p>Click the product that you want to delete.</p>
 <hr>
 <%
 Do While Not rst.EOF
 %>
     <a href="delete.asp?ProductID=<%=rst("ProductID")%>"> <%=rst("ProductName")%></a>
 <%
 rst.Movenext
 Loop
 %>
 </body>
 </html>

Go Top