<%@ LANGUAGE = "VBScript" %> <% If NOT session("discussionlogin") Then response.redirect "login.asp" Set dbConn = Server.CreateObject("ADODB.Connection") Set rs1 = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr sql = "Select * from category where id=" & int(request("id")) rs1.Open sql, dbConn, 1,2 If not session("userisadmin") Then rs1.Close dbconn.Close Set dbConn = Nothing Set rs1 = Nothing response.redirect "error.asp?message=" & "You dont have permission to Edit this record." End if If request("button")="Save" then if request("name") = "" then response.redirect "error.asp?message=" & "Please prove a Category Name" if request("description") = "" then response.redirect "error.asp?message=" & "Please prove some Description" rs1("name") = request("name") rs1("description") = request("description") rs1.update result = "Category Updated: " prevpage = request("prevpage") Else prevpage = request.servervariables("HTTP_REFERER") End if %> <%=sitename%> <%=meta%> <%searchbox%><%loginform%>
<%=sitename%>: Edit Category
Name">
Description
 <%=result%> <%=rs1("Date")%>
Go Back
<% rs1.Close dbconn.Close Set dbConn = Nothing Set rs1 = Nothing %>