<%@ Language=VBScript %> <%Response.Buffer=True%> <% Updated = Request.QueryString("Updated") %> <% PageTitle = "SiteManager - Parts Categories" %> <% PageID=403 %> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <%PartCategoryAdd%> <%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% Footer %> <% Sub PartCategoryAdd OpenConnection1 If Request.QueryString("DC")<>"" then Del="DELETE FROM PartCategories WHERE CatID=" & Request.QueryString("DC") DB.Execute(Del) End If error = "" SET rs = Server.CreateObject("ADODB.Recordset") If Request.Form("hidSave")="true" then txtCategory=Trim(Request.Form("txtCategory")) If txtCategory="" then error="Enter the new category and press Save." If error="" then SEL = "SELECT * FROM PartCategories" rs.Open SEL,DB,1,3 rs.AddNew rs("txtCategory")=dbReplace(txtCategory) rs.Update rs.Close End If End If %>

<%= FormatDateTime(Date,1) %>

<%If error <> "" then%>

<%=error%>

<%End If%> <% Sel="SELECT * FROM PartCategories" rs.Open Sel,DB,1,3 If rs.EOF then%> <%Else While Not rs.EOF%> <%rs.MoveNext Wend End If%>

Current Part Categories:

No Part Categories in database.
" title="Click here to delete this Category">	<%=rs("txtCategory")%>

New 'New Product' Category:

<%End Sub %>