quote:

---

Originally posted by Chuck McB

Banning IP Range: have a look at the link I posted above (previous page) to a possible fix

Cokkies error: can you post a link to the lines arround the error you're getting (I rember there was a problem with Type mismatch: 'rs' but I can't rember what it was.

---

function banip()

	If mLev < 4 then

		Set rs2 = Server.CreateObject("ADODB.Recordset")

		StrSql = "SELECT IPLIST_STARTDATE, IPLIST_ENDDATE, IPLIST_STATUS, IPLIST_DBPAGEKEY " 
		StrSql = StrSql & "FROM " & strTablePrefix & "IPLIST"
		StrSql = StrSql & " WHERE ('" & userip & "' = IPLIST_STARTIP" 'find matching ips
		StrSql = StrSql & " OR '" & userhost & "' = IPLIST_STARTIP" 'find matching hosts
		StrSql = StrSql & " OR '" & userip & "' NOT LIKE '%" & IPLIST_STARTIP & "%'" 'find matching ranges
		StrSql = StrSql & " OR '" & strDBNTUserName & "' = IPLIST_MEMBERID" 'find matching members
		StrSql = StrSql & ") AND ('" & userdate & "' >= IPLIST_STARTDATE" 
		StrSql = StrSql & " AND '" & userdate & "' <= IPLIST_ENDDATE )" 

		rs2.Open StrSql, strConnString 
			
		Select Case StrIPGateLck 'check for lockdown
		Case 0 'no Lockdown
			
			if rs2.eof or rs2.bof then 'no ip found in db 
				if (StrIPGateCok <> 0 & Request.Cookies("IPGate") = 1) then 'check for banned user cookie
					Call banned()
				end if
	
				if pagekey <>"" then 'check for special access page
					Call noaccess() 
				end if
			else
				Select Case rs2("IPLIST_STATUS")
				Case 0 'banned ip 
					If StrIPGateCok <> 0 then 'set banned user cookie
					         Response.Cookies("IPGate") = "1"
Line 178 -------->		                 Response.Cookies("IPGate").Expires = ChkDate(rs("IPLIST_ENDDATE"), " " ,false)
					end if
					Call banned()
		
				Case 1 'watched ip
					If StrIPGateCok <> 0 then 'set watched user cookie
						Response.Cookies("IPGate") = "0"
						Response.Cookies("IPGate").Expires = ChkDate(rs("IPLIST_ENDDATE"), " " ,false)
					end if				

					if pagekey <> "" and pagekey <> rs2("IPLIST_DBPAGEKEY") then 
						Call noaccess()
					end if
									
				Case 2 'special access ip 
					if pagekey <> "" and pagekey <> rs2("IPLIST_DBPAGEKEY") then 
						Call noaccess()
					end if
					
				end select
			end if
		
		Case 1 'do LOCKDOWN
			Select Case rs2("IPLIST_STATUS")
			Case 0, 1  
				Call lockdown()
			Case 2 'special access ip 
				if pagekey <> "" and pagekey <> rs2("IPLIST_DBPAGEKEY") then 
					Call noaccess()
				end if
			end select
		end select
		
		rs2.close
		set rs2 = nothing
		
	end if
	
end function

Response.Cookies("IPGate").Expires = ChkDate(rs2("IPLIST_ENDDATE"), " " ,false)

quote:

---

Originally posted by Chuck McB

try:

Response.Cookies("IPGate").Expires = ChkDate(rs2("IPLIST_ENDDATE"), " " ,false)

---

quote:

---

Originally posted by Chuck McB

don't think there is any work being done on it (that's why I'm trying to get help with my modified code)

---

<%
Select Case Request.ServerVariables("REMOTE_ADDR")
  Case "209.123.123.42","192.168.10.149"
      Response.Redirect "ipgate_banned.asp"
  Case Else
End Select





strURL = Request.ServerVariables("REMOTE_ADDR")
if left(strURL,12) = "205.123.123." then response.redirect "ipgate_banned.asp"

strURL = Request.ServerVariables("REMOTE_ADDR")
if left(strURL,8) = "152.123." then response.redirect "ipgate_banned.asp"

%>

quote:

---

Originally posted by Chuck McB

The cookie ban works for me.

Here's a copy of my inc_ipgate.asp

It incldes a line that means that IP ranges are logged but using the same line in the banip function doesn't work.

---

quote:

---

Originally posted by alex042

I changed quite a few things between the versions and it looks like I missed some things.

inc_ipgate.asp

line 113:

StrSql = StrSql & ") AND ('" & userdate & "' >= IPLIST_STARTDATE"

line 157:

StrSql = StrSql & ") AND ('" & userdate & "' >= IPLIST_STARTDATE"

line 167:

if (StrIPGateCok <> 0 & Request.Cookies("IPGate") = 1) then 'check for banned user cookie



The include may also have to be moved down farther, maybe around where the group categories are after all of the login information.

---

	Select Case StrIPGateTyp
	Case 0 'log db ips only
		StrSql = "SELECT IPLIST_STARTDATE, IPLIST_ENDDATE, IPLIST_STATUS, IPLIST_DBPAGEKEY " 
		StrSql = StrSql & "FROM " & strTablePrefix & "IPLIST"
		StrSql = StrSql & " WHERE ('" & userip & "' = IPLIST_STARTIP" 'find matching ips
		StrSql = StrSql & " OR '" & userhost & "' = IPLIST_STARTIP" 'find matching hosts
		StrSql = StrSql & " OR instr('" & userip & "', IPLIST_STARTIP) <> 0" 'find matching ranges
		StrSql = StrSql & " OR '" & strDBNTUserName & "' = IPLIST_MEMBERID" 'find matching members
		StrSql = StrSql & ") AND ('" & userdate & "' >= IPLIST_STARTDATE"
		StrSql = StrSql & " AND '" & userdate & "' <= IPLIST_ENDDATE )"