---
title: "Kolla spärrade IP"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/144798-kolla-spärrade-ip"
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: 1
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 1 av 2._

## #1 — mackanz, 2006-03-30T13:39Z

Hej!

Jag har sökt på forumet här och hittat en del men får det inte rikgit klart för mig.

Min bror har en hemsida där han får spamm. Jag vill nu spärra Ip-adresser.

Jag har gjort en imatningsfunktion där man matar in IP som då lagras in en
accessdatanas. Tabellen heter ipsparr och fältet ip.

Hur går man vidare och gör en kontroll??

Kan man göra en includefil??

Till gästboken har jag en sida som heter gastbok_in.asp som tar hand om dom inmatade uppgfiterna. Kan man där lägga in någon kontroll eller funktion

Så här ser den sidan ut:
(Includefilen som det hänvisas till kollar så att de fält som måste vara ifylld är ifyllda.)

 

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

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

</head>
<body>

<%

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>
```

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

## #2 — Travoni, 2006-03-30T13:46Z

```
<%
Dim rs, isBanned
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'"
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

'...Annan kod
%>
```

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

## #3 — mackanz, 2006-03-30T13:48Z

Sätter jag in denna kod i en include fil eller ska det vara på gastbok_in.asp ????

vad menar du med annan kod....???

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

## #4 — Travoni, 2006-03-30T13:49Z

Där jag visade.

Annan kod är detta:

```
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
```

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

## #5 — mackanz, 2006-03-30T13:51Z

Ok jag testar.....

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

## #6 — mackanz, 2006-03-30T13:55Z

Felmeddelande

får felmeddelande:

```
Expected ')' 

/gastbok_in.asp, line 14 

set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'"
---------------------------------------------------------------------------------------------^
```

 

Så här ser hela filen gastbok_in.asp ut

```
<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_HOST") &'"
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>
```

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

## #7 — Travoni, 2006-03-30T14:10Z

Lägg till en parentes i slutet:   ...Request.ServerVariables("REMOTE_HOST") &'")

> Expected ')'

Betyder att en ) saknas. Om du tittar lite noga så ser nu nog det.

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

## #8 — mackanz, 2006-03-30T14:20Z

vart då??? i slutet på raden???

vart då??? i slutet på raden???

min rad ser ut så här nu

```
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'")
```

 

får fortfarande error

ursäkta att jag fattar dåligt :)

felmeddelandet:

```
Expected ')' 

/gastbok_in.asp, line 14 

set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '& Request.ServerVariables("REMOTE_HOST") &'")
---------------------------------------------------------------------------------------------^
```

jag tycker alla parenteser är avslutade. 

det perkar ju på R, där Remote hos börjar. Har det något med det att göra??

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

## #9 — Zaiman, 2006-03-30T14:49Z

Så här då?

Prova med denna

```
set rs = mincon.execute("SELECT count(*) from ipsparr WHERE ip = '" & Request.ServerVariables("REMOTE_HOST") &"'")
```

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

## #10 — mackanz, 2006-03-30T15:08Z

nu fick jag

Object required 

/gastbok_in.asp, line 24

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

## #11 — mackanz, 2006-03-30T18:21Z

någon som vet vad Object required betyder??

någon som vet vad Object required betyder??

Object required 

/gastbok_in.asp, line 24

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

## #12 — UlfT, 2006-03-30T19:01Z

Det krävs ett objekt som saknas. Exakt vad som saknas, är omöjligt att säga om man inte vet något om koden runt rad 24.

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

## #13 — mackanz, 2006-03-30T21:14Z

Så här ser koden ut

Så här ser koden ut
Sidan som ska föra in inlägget i gästboken och samtidigt kolla om spärrade ip finns med.

```
<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_HOST") &"'")
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>
```

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

## #14 — UlfT, 2006-03-31T05:36Z

Rad 23: *rs.open sql, mincon, 3, 3*
Men med vilket rs? Du har ju på rad 15 satt *rs = Nothing*. Du har inget rs kvar att använda. Därav problemet. Du måste instansiera ett nytt rs innan du kan använda det.

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

## #15 — voigtann1, 2006-03-31T05:37Z

mincon var är den? i muffins.asp eller check_gb.asp? Rad 24 är " " direkt efter rs.open sql, mincon, 3, 3

gissar att det är rs som saknas:

```
Set Rs = Server.CreateObject("ADODB.Recordset")
```

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

## #16 — mackanz, 2006-03-31T08:58Z

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/1789096

## #17 — voigtann1, 2006-03-31T09:48Z

Varför dimar du rs då när redan rs är något...

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

## #18 — mackanz, 2006-03-31T09:51Z

vet inte :)

följande kod har inte jag skrivit, utan fått av en här på forumet.
och det är den som felar.

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

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

## #19 — voigtann1, 2006-03-31T11:23Z

ta bort rs, och behåll isBanned och se :D

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

## #20 — mackanz, 2006-03-31T11:27Z

Nä det funkade tyvärr inte

då klagas det på att rs inte finns

```
Object required: 'rs' 

/gastbok_in.asp, line 24
```

 

lägger jag tillbaks RS får jag.

```
Object required 

/gastbok_in.asp, line 24
```

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

---

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