Fejl ?!

<% if request.servervariables(\"REMOTE_ADDR\") = \"213.141.141.116\" then
response.write \"Hej Dig der er banned fra den her webserver :-P.. Du kan sove i min røv der er lunt og brunt..\"
else %>

if request(\"REMOTE_ADDR\") = \"213.141.141.116\" or request(\"REMOTE_ADDR\") = \"212.10.10.20\" then

Så vil det enten være en ide med en database med IP\'erne, eller lægge dem i et array....

Hejsa !!

Først skulle du måske finde en anden fejlmeddelelse :-)

Men flg. skulle kunne gøre det.

Function Banned (ip)
  if request(\"REMOTE_ADDR\") = ip Then
      Banned = true
  else
      Banned = false
  end if
End function

Dim ip_er(500)

ip_er(1) = \"212.10.10.20\"
ip_er(2) = \"213.141.141.116\"

For i = 1 to 500
  If ip(i) = \"\" Then
      exit for
  end if

  If Banned(ip(i)) = True Then
      response.write \"Fjern dig, du er ikke velkommen !\"
  end if
next

- kondi.koder :-)

rettelse....det er:

Function Banned (ip)
  if request(\"REMOTE_ADDR\") = ip Then
      Banned = true
  else
      Banned = false
  end if
End function

Dim ip_er(500)

ip_er(1) = \"212.10.10.20\"
ip_er(2) = \"213.141.141.116\"
\'flere ip\'er her.......

For i = 1 to 500
  If ip_er(i) = \"\" Then
      exit for
  end if

  If Banned(ip_er(i)) = True Then
      response.write \"Fjern dig, du er ikke velkommen !\"
  end if
next

Med denne kode, kan du tage ubegrænset mange ip\'er på en nem måde :-)
kondi.koder :-)