Edd
Posts: 547
|
| Posted: 06/18/2006, 7:58 PM |
|
Kitto,
You will need to be a coder to do this.
Very Roughly - In the After Initialize event you will need to add something like.
Dim RemAddr
Dim CountIsItThere
Dim DBConn
RemAddr = Request.ServerVariables("REMOTE_ADDR")
DBConn = new clsDBNameOfDatabase
DBConn.Open
CountIsItThere = CCDLookup("Count(*)","IPADDRESSTABLE","'" & RemAddr & "' Between StartIPAddress And EndIPAddress", DBConn)
DBConn.Close
Set DBConn = nothing
' Redirecting if the IPAddress doesn't exist
If CountIsItThere = 0 Then
Unloadpage
Response.Redirect "whatever.asp"
Response.End
End If
Note when testing IP addresses depending on your set up, you will need to test for ranges.
Don't know what you are doing but you you are looking at a messy solution, as maintenance and changes in IP addresses will get to you in the long run.
Edd
_________________
Accepting and instigating change are life's challenges.
http://www.syntech.com.au |
