<%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%>
Click the product that you want to delete.
- <%Do While Not rst.EOF %>
- <%=rst("ProductID")%>"> _<%=rst("ProductName")%> <% rst.MovenextLoop%>
Go Top
