<%
Response.buffer = true
%>
<%
Timeout(1)
set con = server.createobject("ADODB.Connection")
con.open Application("Cstring")
if request("posted") <> Empty then
strSQL = "SELECT CName FROM FileCategories WHERE CategoryID <> "& request("CatID")& " AND CName = '"& repQ(request("CatName")) &"'"
set rsCheck = con.execute(strSQL)
if rsCheck.EOF then
set rsNews = server.createobject("ADODB.Recordset")
rsNews.open "SELECT * FROM FileCategories Where CategoryID = " & request("CatID"), con, 1, 3
rsNews("CName") = repQ(request("CatName"))
rsNews.Update()
response.redirect("maintain_cat.asp?cache=" & server.URLEncode(Now))
else
%>
<%
response.end
end if
end if
strSQL = "SELECT * FROM FileCategories Where CategoryID = " & request("CatID")
set rsUsers = con.execute(strSQL)
if not rsUsers.EOF then
i_CatID = rsUsers("CategoryID")
s_CatName = rsUsers("CName")
end if
%>
Edit Category