 |
<%
dim look_for, tmp_str_reason
look_for = Request.Form("look_for")
%>
| IP |
Reason (short) |
Status |
<%
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "select all * from q3a_banned "
if Request.QueryString("submitted") = "yes" then
query = query & "where (str_banned_ip like '%" & look_for & "%') or "
query = query & "(str_reason like '%" & look_for & "%') or "
query = query & "(datestamp like '%" & look_for & "%')"
end if
query = query & "order by str_banned_ip"
'Response.Write("Query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
if (tigRS.EOF) then
%>
Nothing in the database matches your search, try again?
<%
end if
dim id
do while not tigRS.EOF
id = tigRS("id")
tmp_str_reason = tigRS("str_reason")
if len(tmp_str_reason) > 128 then
tmp_str_reason = left(tmp_str_reason,125) & "..."
end if
%>
| <%=tigRS("str_banned_ip")%> |
<%=tmp_str_reason%> |
<% if tigRS("bit_active") then %>
Good Behavour |
<% else %>
Banned |
<% end if %>
<%
tigRS.MoveNext
loop
tigRS.close
tigCON.close
%>
|