%
dim status
%>
|
<%
'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
%>
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
|
<%
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"))%>
|
valign="top" class="main"><%=tigRS("txt_comment")%> |
<%
i = i + 1
tigRS.MoveNext
loop
tigRS.close
tigCON.close
%>
|