<%
session.Timeout = 40
session("id") = Request.QueryString("id")
session("action") = Request.QueryString("action")
'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
'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 server_comments set "
query = query & "bit_dont_show = 0 "
query = query & "WHERE id =" & session("id")
elseif session("action") = "no_show" then
query = "update server_comments set "
query = query & "bit_dont_show = 1 "
query = query & "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
%>
 |
<%
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
%>