<%@ Language=VBScript %>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - List Products" %>
<% PageID=201 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% ProductList %>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub ProductList %>
<%= FormatDateTime(Date,1) %>
<%
OpenConnection1
Sel = "SELECT ProductID,txtProduct FROM Products"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sel, DB, 1, 3
If Not rs.EOF then%>
Products available for on-line viewing:
|
<%While Not rs.EOF%>
" title="Click here to edit the <%=rs("txtProduct")%>"> |
<%=rs("txtProduct")%> |
<%rs.MoveNext
Wend
Else%>
There are currently no Products in the database.
|
<%End If%>
<%End Sub %>