His name's Timothy.
Does anyone here speak ASP? I'm trying to make an IP blocking script which reads a list of values from a database and redirects if your IP is there. Looks like this so far:
dim BannedIP
BannedIP=Request.ServerVariables('REMOTE_ADDR')
if rsBannedIPs.Fields.Item='BannedIP'
Reponse.Redirect 'http://www.whereever.com'
only trouble is, this only reads one line from the recordset. Can anyone help me? I'd be awfully grateful. Love, Trumpet.
Can't help you with the asp I'm afraidbut nice picture!
(
King Ralph is drunk,
Tue 18 Nov 2003, 18:38,
archived)
AAAARRRRRRRRGH!sign him up! That cat is a feline anarchist in the making.
Sorry I can't help with the reptile, though.
(Sorry I can't help with the reptile, though.
TheFelineAnarchist,
Tue 18 Nov 2003, 18:38,
archived)
does hecontrol the weather?
( viperrr mostly comes out at night, mostly,
Tue 18 Nov 2003, 18:38,
archived)
i dont know aspbut the best thing to do is to find a website that has already done it and just steal the code. thats what i used to do
(,
Tue 18 Nov 2003, 18:43,
archived)
Arrg!I'm no expert, but it looks like you need to iterate over the result set. Try something like
Do While Not rsBannedIPs.EOF
if rsBannedIPs.Fields.Item="BannedIP"
Reponse.Redirect "http://www.whereever.com"
rsBannedIPs.MoveNext
Loop
(Do While Not rsBannedIPs.EOF
if rsBannedIPs.Fields.Item="BannedIP"
Reponse.Redirect "http://www.whereever.com"
rsBannedIPs.MoveNext
Loop
UncleLewy,
Tue 18 Nov 2003, 18:45,
archived)
Cleverer way might beto select it already in the sql.. like:
rs.open "select * from ips where ip = '" & bannedip & "'", conn,3,3
if not rs.eof then
response.redirect "about:blank"
end if
short one, hope you understand.
(rs.open "select * from ips where ip = '" & bannedip & "'", conn,3,3
if not rs.eof then
response.redirect "about:blank"
end if
short one, hope you understand.
Clark CliffClive Jingel KjellElg,
Tue 18 Nov 2003, 19:15,
archived)