<%@ Language=VBScript %> <% Updated = Request.QueryString("Updated") %> <% PageTitle = "SiteManager - List Parts" %> <% PageID=401 %> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% partlist %> <%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% Footer %> <% Sub partlist OpenConnection1 Set rs = Server.CreateObject("ADODB.Recordset") If Request.QueryString("DP")<>"" then IPath= Server.MapPath("\") & "\Uploads\PartImages\" PartID=Request.QueryString("DP") sql="DELETE Part_Specs WHERE nPartID=" & PartID DB.Execute(sql) SET del=Server.CreateObject("SoftArtisans.SAFile") SEL="SELECT txtImage FROM Parts WHERE PartID=" & PartID 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 Parts WHERE PartID=" & PartID DB.Execute(sql) End If CatID=Request.Form("selCat")%>

<%= FormatDateTime(Date,1) %>

<% Sel="SELECT * FROM PartCategories" 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 PartID, txtPart FROM Parts 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 Part Categories in the database....
Click the 'Categories' button on the 'Parts' menu or Click Here to enter a 'Part Category'.

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