<%@ Language=VBScript %> <% Updated = Request.QueryString("Updated") %> <% PageTitle = "SiteManager - List Supplies" %> <% PageID=301 %> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% SupplyList %> <%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% Footer %> <% Sub SupplyList OpenConnection1 Set rs = Server.CreateObject("ADODB.Recordset") If Request.QueryString("DS")<>"" then IPath= Server.MapPath("\") & "\Uploads\SupplyImages\" SupplyID=Request.QueryString("DS") sql="DELETE S_Specs WHERE nSupplyID=" & SupplyID DB.Execute(sql) SET del=Server.CreateObject("SoftArtisans.SAFile") SEL="SELECT txtImage FROM Supplies WHERE SupplyID=" & SupplyID rs.Open SEL,DB,1,3 If rs("txtImage")<>"" then del.Delete IPath & rs("txtImage") rs("txtImage")="" rs.Update rs.Close Else rs.Close End If sql="DELETE Supplies WHERE SupplyID=" & SupplyID DB.Execute(sql) End If CatID=Request.Form("selCat")%>

<%= FormatDateTime(Date,1) %>

<% Sel="SELECT * FROM SCategories" rs.Open Sel,DB,1,3 If Not rs.EOF Then%> <%Else rs.Close%> <%End If If Request.Form("hidList")="true" And CatID<>0 Then Sel = "SELECT SupplyID, txtSupply FROM Supplies WHERE nCatID=" & CatID & " ORDER BY nSortOrder" rs.Open Sel, DB, 1, 3 If Not rs.EOF then%> <%While Not rs.EOF%> <%rs.MoveNext Wend rs.Close Else%> <%End If ElseIf CatID=0 then%> <%End If%>
 
There are currently no Supply Categories in the database....
Click the 'Categories' button on the 'Supplies' menu or Click Here to enter a 'Supply Category'.

*Note: There must be at least one Category entered before a Supply can be entered.
Supplies available for online viewing:
" title="Click here to edit the <%=rs("txtSupply")%>"> <%=rs("txtSupply")%>
There are currently no Supplies available for this category.
Please select the Category of Supplies to list.
<%End Sub %> <% Function IsSelected(value,data) If value=data then IsSelected="Selected" Else IsSelected="" End If End Function %>