<% Response.Buffer = True CategoryID = Request.QueryString("category") AddSub = (Len(Request.QueryString("addsub"))>0) %>
<% If Len(Request.Form("Cancel")) > 0 Or (Not(AddSub) And Len(CategoryID)=0) Then %>

Cancelled!

<% Else If Len(CategoryID)=0 Then CategoryID = 0 set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString Sub RelatedForum%> <% End Sub 'Related Forum If Not AddSub Then Set rsCategory = CreateObject("ADODB.Recordset") Set rsCategory.ActiveConnection = my_Conn rsCategory.LockType = 2 rsCategory.Open("SELECT catid,parentid,hits,template,News,Product,Articles,Links,Project,Download,Forum_id,IMG,title,catdesc FROM " & strTablePrefix & "Site_Cats WHERE CatID=" & CategoryID) CategoryName = rsCategory("Title") Description = rsCategory("CatDesc") IMG = rsCategory("IMG") Set rsCategories = CreateObject("ADODB.Recordset") Set rsCategories.ActiveConnection = my_Conn rsCategories.LockType = 2 rsCategories.CursorLocation = 3 rsCategories.Open(strTablePrefix & "Site_Cats") Depth = 0 Function getChildren(Node) Depth=Depth+1 set rsCategories2 = rsCategories.Clone rsCategories2.Filter = "ParentID=" & Node Do While Not rsCategories2.EOF Response.write "" getChildren(rsCategories2("CatID")) rsCategories2.MoveNext Loop Depth=Depth-1 rsCategories2.Close Set rsCategories2 = Nothing End Function Function Repeat(Str,Times) Dim I For I=0 To Times Repeat = Repeat & Str Next End Function Sub DisplayCategories Set ParentRecords = rsCategories.Clone ParentRecords.Filter = "ParentID = 0" Do While Not ParentRecords.EOF Response.write "" getChildren(ParentRecords("CatID")) ParentRecords.MoveNext Loop rsCategories.Close Set rsCategories = Nothing ParentRecords.Close Set ParentRecords = Nothing End Sub End If If Len(Request.Form("Update")) > 0 Then Set rsCategory= CreateObject("ADODB.Recordset") Set rsCategory.ActiveConnection = my_Conn rsCategory.LockType = 2 If AddSub Then rsCategory.Open("SELECT * FROM " & strTablePrefix & "Site_Cats") rsCategory.AddNew rsCategory("ParentID") = Request.Form("CategoryID") If Len(Request.Form("IMG"))=0 Then rsCategory("IMG") = Null Else rsCategory("IMG") = Request.Form("IMG") End If 'response.write Request.Form("hasProduct") If Request.Form("hasProduct")="yes" Then rsCategory("Product") = 1 Else rsCategory("Product") = 0 End If If Request.Form("hasArticle")="yes" Then rsCategory("Articles") = 1 Else rsCategory("Articles") = 0 End If If Request.Form("hasLink")="yes" Then rsCategory("Links") = 1 Else rsCategory("Links") = 0 End If If Request.Form("hasProject")="yes" Then rsCategory("Project") = 1 Else rsCategory("Project") = 0 End If If Request.Form("hasDownload")="yes" Then rsCategory("Download") = 1 Else rsCategory("Download") = 0 End If rsCategory("Title") = Request.Form("Name") rsCategory("CatDesc") = Request.Form("Description") If Len(Request.Form("Forum_ID"))=0 Then rsCategory("Forum_ID") = Null Else rsCategory("Forum_ID") = Request.Form("Forum_ID") End If Else rsCategory.Open("SELECT * FROM " & strTablePrefix & "Site_Cats Where CatID=" & CategoryID) If Request.Form("hasProduct")="yes" Then rsCategory("Product") = 1 Else rsCategory("Product") = 0 End If If Request.Form("hasArticle")="yes" Then rsCategory("Articles") = 1 Else rsCategory("Articles") = 0 End If If Request.Form("hasLink")="yes" Then rsCategory("Links") = 1 Else rsCategory("Links") = 0 End If If Request.Form("hasProject")="yes" Then rsCategory("Project") = 1 Else rsCategory("Project") = 0 End If If Request.Form("hasDownload")="yes" Then rsCategory("Download") = 1 Else rsCategory("Download") = 0 End If rsCategory("Title") = Request.Form("Name") rsCategory("CatDesc") = Request.Form("Description") rsCategory("ParentID") = Request.Form("ParentCat") If Len(Request.Form("IMG"))=0 Then rsCategory("IMG") = Null Else rsCategory("IMG") = Request.Form("IMG") End If If Len(Request.Form("Forum_ID"))=0 Then rsCategory("Forum_ID") = Null Else rsCategory("Forum_ID") = Request.Form("Forum_ID") End If End If 'response.write "Request.Form(""hasArticle"") ist : " & Request.Form("hasArticle") & "
" 'response.write "Artikel ist: " & rsCategory("Articles") rsCategory.Update rsCategory.Close Set rsCategory= Nothing ' my_Conn.Close ' Set my_Conn = Nothing %>

Completed!

<% Else %>
category=<%= CategoryID %>" method="POST">
<% If AddSub Then %> Add Sub Category <% Else %> Edit Category <% End If %>
<% If Not AddSub Then %> <% End If %>
Title
Description
Content <% if AddSub then %>
News Are automatically displayed
Product Article
Link Project
Download
<% else %>
News Are automatically displayed
> Product > Article
> Link > Project
> Download
<% end if %>
Image URL
Parent Category
Related Forum <% Call RelatedForum %>
Please ensure that all the above information is a-okay before you Update...<%If Not AddSub Then %>
Note: When editing a Top Level category make sure you select "Top Level Category" as the Parent Category!<%End If%>

 


<% End If End If %>