<%
Timeout(1)
set con = server.createobject("ADODB.Connection")
con.open Application("CString")
if UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" then
s_Category = Request("Category")
strSQL = "SELECT * FROM Library_Category WHERE CategoryID = " & Request("id")
set rsCat = server.createobject("ADODB.Recordset")
rsCat.open strSQL, con, 1, 3
if Not rsCat.EOF then
rsCat.MoveFirst
rsCat("Name") = s_Category
rsCat.Update
end if
rsCat.close
set rsCat = Nothing
con.Close
set con = Nothing
Response.Redirect "category.asp?intPage=" & Request("intPage") & "&buster=" & Server.URLEncode(Now())
end if
%>
Website Administration
<%
if Request("id") <> Empty and IsNumeric(Request("id")) then
strSQL = "SELECT [Name] FROM Library_Category WHERE CategoryID = " & Request("id")
Set rsCat = con.execute(strSQL)
if Not rsCat.EOF then
rsCat.MoveFirst
s_Name = rsCat("Name")
%>
File / Document Library - Edit a Category
<%
end if
Set rsCat = Nothing
end if
%>
<%
con.Close
set con = Nothing
%>