<%@ LANGUAGE = "VBScript" %>

<% If not session("userisadmin") Then response.redirect "login.asp" Set dbConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr SQL = "Select * from category where id=" & int(request("id")) rs.Open SQL, dbConn ,1,3 For each field in rs.Fields Response.Write "" & field.name & ": " & Field & "
" Next If not rs.EOF then rs.Delete rs.Update Response.Write "
Record was successfully deleted.

" Else Response.Write "Error: Unable to find record." End if rs.Close response.write "
Deleting Messages Now ::

" SQL = "Select * from forum_messages where category=" & int(request("id")) rs.Open SQL, dbConn ,1,3 While not rs.eof If not rs.EOF then For each field in rs.Fields Response.Write "" & field.name & ": " & Field & "
" Next rs.Delete rs.Update Response.Write "
Record was successfully deleted.

" Else Response.Write "Error: Unable to find record." End if rs.movenext Wend rs.Close dbconn.Close Set dbConn = Nothing Set rs = Nothing %>