<%
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("str_reason") = Trim(Request.Form("str_reason"))
session("str_banned_ip") = Trim(Request.Form("str_banned_ip"))
session("datestamp") = Trim(Request.Form("datestamp"))
'hidden form fields
session("bit_active") = Request.Form("bit_active")
'Response.Write("session(""bit_active"")=[" & session("bit_active") & "] ")
if not session("bit_active") then
session("bit_active") = 0
else
session("bit_active") = 1
end if
'Response.Write("session(""bit_active"")2=[" & session("bit_active") & "] ")
session("what_you_doing") = Trim(Request.Form("what_you_doing"))
if debug then
Response.Write("what are you doing?=[" & session("what_you_doing") & "] ")
Response.Write("bit_active=[" & session("bit_active") & "] ")
end if
dim error, error_msg
error = false
error_msg = "Looks like you missed something - check out the details below
"
'do some check before going on
if session("what_you_doing") = "adding" then
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "select count(str_banned_ip) as banned_already from q3a_banned where"
query = query & "(str_banned_ip ='" & SQLSafe(session("str_banned_ip")) & "')"
'Response.Write("Query = [" & query & "] ")
set tigRS = tigCON.Execute(query)
if not tigRS.EOF and (tigRS("banned_already") > 0) then
'there be a problem here, the level has allready been addded :[
error = true
error_msg = error_msg & "
The ip number " & session("banned_already") & " is already listed (however maybe on good behavior, use edit to make active)" & vblf
end if
tigRS.close
tigCON.close
end if
if session("str_banned_ip") = "" then
error = true
error_msg = error_msg & "
You really need to know the ip number of some to ban before going further" & vblf
end if
if session("str_reason") = "" then
error = true
error_msg = error_msg & "
You can't just ban someone without a reason - try again" & vblf
end if
'is there a problem here?
if error then
error_msg = error_msg & "
" & vblf
%>
<%
'no problem? then do something then!!
else
'just make sure the reason ain't too long
if Len(session("str_reason")) > 255 then
session("str_reason") = Left(session("str_reason"),252) & "..."
end if
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
if session("what_you_doing") = "adding" then
'ok, its a new level
query = "insert into q3a_banned "
query = query & "(str_reason, str_banned_ip, "
query = query & "datestamp, "
query = query & "bit_active)"
query = query & "VALUES"
query = query & "('" & SQLsafe(session("str_reason")) & "', "
query = query & "'" & SQLsafe(session("str_banned_ip")) & "', "
query = query & "'" & SQLsafe(session("datestamp")) & "', "
query = query & session("bit_active") & ")"
elseif session("what_you_doing") = "editing" then
query = "update q3a_banned set "
query = query & "str_reason ='" & SQLSafe(session("str_reason")) & "', "
query = query & "str_banned_ip ='" & SQLSafe(session("str_banned_ip")) & "', "
query = query & "datestamp ='" & SQLSafe(session("datestamp")) & "', "
query = query & "bit_active =" & Request.Form("bit_active") & " "
query = query & "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
%>
<%
if session("what_you_doing") = "adding" then
%>
<%=session("str_banned_ip")%> has been added to LvL list of naughty IP numbers for the following reason;
<%=session("str_reason")%>
<%
'clear the session vars
session.Abandon
else
'must be changing status
%>
the status of <%=session("str_banned_ip")%> has been changed
<%
'clear the session vars
session.Abandon
'end the what u doing session
end if
'end the query update/insert
end if
%>
