rs("Ip") delt op i en variabel...

While not Rs.EOF
if Iper = "" Then 
  Iper = Rs("ip")
Else
  Iper = Iper & "," & Rs("ip")
End If
rs.MoveNext()
Wend

sådan uden brug af arrays

sep = ""

While not Rs.EOF
  Iper = Iper & sep & Rs("ip")
  sep = "|"
  rs.MoveNext()
Wend

arrIPer = split(Iper, "|")

Du kan også gøre det på en anden måde:

Sql = "SELECT ip FROM IpBan"

Set Rs = Conn.execute(Sql)

Arr = Rs.GetRows()

og wupti, nu er din var Arr blevet til et array som indeholder alle de informationer fra din sql

når du skal hente værdier ud fra dit array skal du nu skrive:
Arr(0,noget) for at det virker.

Hmm...
soes --> Det med Arr(0, noget) hvad mener du præsist med det ?
Altså 0 er det linien i Arrayet ?
Og hvad skal der stå i noget ??

0 er den kollonne i tabellen IpBan hvor "noget" svarer til den række i tabellen

skal jeg skrive det sammen med resten af systemet? hvis ja, kan du så ikke sende mig db'en samt den pågældende fil til soes@mail.dk

Kan jeg så ikke bare gøre sådan her?:

Sql = "SELECT ip FROM IpBan"

Set Rs = Conn.execute(Sql)

Arr = Rs.GetRows()

Dim a
for a = LBound(Arr) to UBound(Arr)
Arr(1,a)
a = a + 1
Next

(Jeg er rimeligt nybegynder til ASP men) Kan ovenstående bruges ?

du skal bruge:

...
for a = LBound(Arr,2) to UBound(Arr,2)
Arr(1,a)
a = a + 1
Next

Det skyldes at arrayet er 2-dimensionelt, og du skal kende længden på 2. dimension

Damn, jeg har 2 ip'er i min db (bare en test) men den vil kunne banne den øverste ip... why ?

her er min kode:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/asp/db.mdb")
Conn.Open DSN

strSQL = "Select Ip From Ban"

Set rs = Conn.Execute(strSQL)

Dim Arr, Remote, I

Arr = Rs.GetRows()
Remote = Request.ServerVariables("Remote_Addr")

I = 0
for I = 0 to UBound(Arr, 2)
If Remote = Arr(0, I) Then
Response.Redirect "http://www.jubii.dk"
End if
I = I + 1
Next

Conn.Close
Set Conn = Nothing
%>

uha. Du tæller jo dobbelt.

En for..next løkke har indbygget tæller. Hver gang den er gennemløbet lægges en til variablen lige efter "for" - i dit tilfælde I

Altså skal du skrive den om til:

for I = 0 to UBound(Arr, 2)
If Remote = Arr(0, I) Then
Response.Redirect "http://www.jubii.dk"
End if
Next

lol en spasser fejl...

takker begge 2...