<% Const Filename = "/AllowedIPs.txt"    ' file to read

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")

' Map the logical path to the physical system path
Dim Filepath
Filepath = Server.MapPath(Filename)

if FSO.FileExists(Filepath) Then
    ' Get a handle to the file
    Dim file    
    set file = FSO.GetFile(Filepath)

    ' Open the file
    Dim TextStream
    Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)

    ' Read the file line by line
    Do While Not TextStream.AtEndOfStream
        Dim Line
        Line = TextStream.readline
    
        ' Do something with "Line"
		If Request.ServerVariables("REMOTE_ADDR") = Line Then
			' Found match to the IP Address
			
			' YOUR CODE HERE
			
			Exit Do
		End if
    Loop

	' Dispose Object
    Set TextStream = nothing
    
Else

    ' File does not exist
	
End If

' Dispose Object
Set FSO = nothing
%>