%
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
%>