---
title: "Kolla spärrade IP"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/144798-kolla-spärrade-ip/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mackanz"
published: "2006-03-30T13:39:17.000Z"
updated: "2006-04-08T11:45:27.000Z"
replies: 27
views: 1138
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/144798-kolla-spärrade-ip"
---

# Kolla spärrade IP

_Sida 2 av 2._

## #21 — voigtann1, 2006-03-31T11:36Z

gillar inte att du ha rs i en annan fil... använd objekt och värden som du använder i dokumentet är en av mina regler :D sått en ny rs då..

Permalänk: https://www.webforum.nu/p/1792305

## #22 — Travoni, 2006-03-31T11:41Z

Det skall väl inte vara något fel på det där. Byt namn på rs då om du vill ha kvar det i det förra recordsetet.

```
Dim balloooo, isBanned
set balloooo= mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'"
isBanned = balloooo(0)
Set balloooo= Nothing
if isBanned <> 0 then 'Snubben är bannad
    Response.Redirect "http://www.hell.com"
End if
```

 Så behåller du din "gamla" kod som den är.

Permalänk: https://www.webforum.nu/p/1792308

## #23 — mackanz, 2006-03-31T11:48Z

Hur skulle det då kunna se ut?

Är kass på sånt här. :)

Permalänk: https://www.webforum.nu/p/1792313

## #24 — mackanz, 2006-04-08T10:28Z

funkar inte

funkar fortfarnade inte... =(

Någon som vet??

Permalänk: https://www.webforum.nu/p/1794838

## #25 — voigtann1, 2006-04-08T11:14Z

Travonis exempel fungera väl? annars få du nog ge mig mer kod iallafall...

Permalänk: https://www.webforum.nu/p/1794848

## #26 — mackanz, 2006-04-08T11:20Z

jag syftar på min kod:

```
<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
<!-- #include file="muffins.asp" -->

<!-- #include file="check_gb.asp"-->

</head>
<body>

<%

Dim rs, isBanned
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '" & Request.ServerVariables("REMOTE_ADDR") &"'")
isBanned = rs(0)
Set rs = Nothing
if isBanned <> 0 then 'Snubben är bannad
    Response.Redirect "http://www.hell.com"
End if

sql = "SELECT * from gastbok"
rs.open sql, mincon, 3, 3

rs.addnew
rs("NAME")=Request.Form("NAME")
rs("EMAIL")=Request.Form("EMAIL")
rs("HOMEPAGE")=Request.Form("HOMEPAGE")
rs("CITY")=Request.Form("CITY")
rs("MESSAGE")=Request.Form("MESSAGE")
rs("DAT")=Request.Form("DAT")
rs("SMILE")=Request.Form("SMILE")
Rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
%>

<%Response.Redirect("gastbok_las.asp")%>

</body>
</html>
```

och så här ser includefilen ut med databaskopplingen.

```
<%	Set MinCon = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.RecordSet")

MinConstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("databas.mdb")
MinCon.Open MinConstr

 %>
```

Permalänk: https://www.webforum.nu/p/1794853

## #27 — voigtann1, 2006-04-08T11:37Z

```
Dim isBanned
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '" & Request.ServerVariables("REMOTE_ADDR") &"'")
isBanned = rs(0)
rs.close
if isBanned <> 0 then 'Snubben är bannad
    Response.Redirect "http://www.hell.com"
End if

sql = "SELECT * from gastbok"
rs.open sql, mincon, 3, 3
...
```

Permalänk: https://www.webforum.nu/p/1794857

## #28 — mackanz, 2006-04-08T11:45Z

Tackar!!!

Permalänk: https://www.webforum.nu/p/1794859

---

Tråden på webben: https://www.webforum.nu/amne/asp/144798-kolla-spärrade-ip/page2  
Föregående sida: https://www.webforum.nu/amne/asp/144798-kolla-spärrade-ip.md