<%
Timeout(1)
if UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" then
s_Category = Request("Category")
set con = server.createobject("ADODB.Connection")
con.open Application("CString")
strSQL = "SELECT * FROM Library_Category"
set rsCat = server.createobject("ADODB.Recordset")
rsCat.open strSQL, con, 1, 3
rsCat.AddNew
rsCat("Name") = s_Category
rsCat.Update
rsCat.close
set rsCat = Nothing
con.Close
set con = Nothing
Response.Redirect "category.asp?buster=" & Server.URLEncode(Now())
end if
%>
Website Administration