<% dim status %> admin <% 'Response.Write("ReQu id =[" & Request.QueryString("id") & "]
") set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select all * from beta_comments where level_id = " & Request.QueryString("id") query = query & "order by datestamp desc" 'Response.Write("Query = [" & query & "]
") set tigRS = tigCON.Execute(query) if (tigRS.EOF) then %> <% end if i = 0 do while not tigRS.EOF if i mod 2 then bgcolor = "" else bgcolor = " bgcolor=""#efefef""" end if status = tigRS("bit_dont_show") if status then status = "not shown" else status = "shown" end if %> valign="top"><%=tigRS("str_posters_name")%>
ip # <%=tigRS("str_posters_ip")%>
<%=funkydate(tigRS("datestamp"))%>
They comments you have request to edit don't exist, or some thing has gone wrong - email tigger@ebom.org if there is a real problem
&action=show" method="post"> &action=no_show" method="post">
status: <%=status%>
valign="top" class="main"><%=tigRS("txt_comment")%> <% i = i + 1 tigRS.MoveNext loop tigRS.close tigCON.close %>