<% If Session("logged") <> "1" Then Response.Redirect("login.asp") End If %> <% Dim DateID, ConnectionString, cnUpd, recProducts ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db1.mdb") & ";" %> List of Products
<% Set cnUpd = Server.CreateObject("ADODB.Connection") cnUpd.Open ConnectionString Set recProducts = Server.CreateObject("ADODB.Recordset") recProducts.Open "Select * From Products ORDER By id", cnUpd, adForwardOnly While Not recProducts.EOF %> <% recProducts.MoveNext Wend recProducts.Close cnUpd.Close Set cnUpd = Nothing Set recProducts = Nothing %>

Product Name
<%=recProducts("ProductsName")%>	">Delete