<% Timeout(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") if UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" then i_CategoryID = Request("CategoryID") s_SubCategory = Request("SubCategory") strSQL = "SELECT * FROM L_Subcategories" set rsSubCat = server.createobject("ADODB.Recordset") rsSubCat.open strSQL, con, 1, 3 rsSubCat.AddNew rsSubCat("CategoryID") = i_CategoryID rsSubCat("Name") = s_SubCategory rsSubCat.Update rsSubCat.close set rsSubCat = Nothing con.Close set con = Nothing Response.Redirect "subcategory.asp?CategoryID=" & i_CategoryID & "&buster=" & Server.URLEncode(Now()) end if strSQL = "SELECT CategoryID, [Name] FROM L_Categories ORDER BY [Name]" Set rsCategory = con.execute(strSQL) %> Website Administration

File / Document Library - Add a Sub-Category
<% if rsCategory.EOF then %>

There are no categories! Categories must exist first.

<% else %>

Category:

Sub-Category:

<% end if %>
<% Set rsCategory = Nothing con.Close set con = Nothing %>