<%
'Response.Write("ReQu id =[" & Request.QueryString("id") & "]
")
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "select all * from q3a_banned where id = " & Request.QueryString("id")
'Response.Write("Query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
if (tigRS.EOF) then
%>
They Banned IP you have request to edit don't exist, or some thing has gone wrong - email tigger@ebom.org if there is a real problem
<%
else
'create some session vars for this level
session("datestamp") = SQLdate(tigRS("datestamp"))
session("str_banned_ip") = tigRS("str_banned_ip")
session("str_reason") = tigRS("str_reason")
session("bit_active") = tigRS("bit_active")
session("id") = Request.QueryString("id")
end if
tigRS.close
tigCON.close
%>
