<% session.Timeout = 40 'debug = true if debug then Response.Write("session.Timeout=[" & session.Timeout & "]
") Response.Write("from info passed is;
") Response.Write(Replace(Request.Form,"&","
")) Response.Write("session id =[" & session("id") & "]
") end if session("id") = Request.QueryString("id") session("action") = Request.QueryString("action") 'just make sure the reason ain't too long set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) if session("action") = "show" then query = "update mods_comments set " & _ "dont_show = 0 " & _ "WHERE id =" & session("id") elseif session("action") = "no_show" then query = "update mods_comments set " & _ "dont_show = 1 " & _ "WHERE id =" & session("id") else Response.Write("I think there was a problem;
") Response.Write(Replace(Request.Form,"&","
")) end if 'Response.Write("Query = [" & query & "]
") tigCON.Execute(query) tigCON.close %> admin <% if Request.Form("action") = "show" then %> the comment you select has been flagged as a don't show comment <% 'clear the session vars session.Abandon elseif Request.Form("action") = "don't show" then 'must be changing status %> the comment you select has been flagged as a show comment <% 'clear the session vars session.Abandon else 'must be changing status %> have fun now <% 'clear the session vars session.Abandon end if %>