<%@ Language=VBScript %>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - List Products" %>
<% PageID=251 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% UProductList %>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub UProductList %>
<%= FormatDateTime(Date,1) %>
<%
OpenConnection1
Sel = "SELECT ProductID, txtProduct FROM UProducts ORDER BY nSortOrder"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sel, DB, 1, 3
If Not rs.EOF then%>
Products available for online viewing:
|
<%While Not rs.EOF%>
" title="Click here to edit the <%=rs("txtProduct")%>"> |
<%=rs("txtProduct")%> |
<%rs.MoveNext
Wend
Else%>
There are currently no Used Products in the database....
|
Click the 'Add Product' button or Click Here to enter Product information.
*Note: There must be at least one Category entered before a Product can be entered. |
<%End If%>
<%End Sub %>