---
title: "Vides räknare (Räkna inte när personer kommer från vissa ip-adresser)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13192-vides-räknare-räkna-inte-när-personer-kommer-från-vissa-ip-adresser"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Method"
published: "2001-12-14T10:34:00.000Z"
updated: "2001-12-14T16:15:00.000Z"
replies: 2
views: 183
page: 1
pages: 1
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/13192-vides-räknare-räkna-inte-när-personer-kommer-från-vissa-ip-adresser"
---

# Vides räknare (Räkna inte när personer kommer från vissa ip-adresser)

## #1 — Method, 2001-12-14T10:34Z

Jag använder Vides besöksräknarscript.
Jag vill inte att det läggs till en post i databasen när en besökare kommer från ip-adressnätet "192.168.\*", alltså när besökaren kommer innifrån från företaget.
Använder följande kod

```
<!--#include file="inc_functions.asp"-->
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
	Set objConn = openDb( Application( "dbstr" ) )
	
	strIp = Request.ServerVariables("REMOTE_HOST")
	strKlient = Request.ServerVariables("HTTP_USER_AGENT")
	dtmDatum = Now
	strReferer = Request.ServerVariables("HTTP_REFERER")
	
	SQL = "INSERT INTO logg (dtm, ip, klient, referer) VALUES (#" & dtmDatum & "#, '" & strIp & "', '" & strKlient & "', '" & strReferer & "')"
	objConn.Execute(SQL)
	
	objConn.Close
	Set objConn = Nothing
	Application("intActive_users") = Application("intActive_users") + 1
End Sub

Sub Session_OnEnd
	Application("intActive_users") = Application("intActive_users") - 1
End Sub

Sub Application_OnStart
	Application("intActive_users") = 0
	Application( "dbstr" ) = Server.Mappath("/") & "../../databas/stats.mdb"
End Sub
Sub Application_OnEnd
End Sub
</SCRIPT>
```

Konkreta kodförslag är välkommna
Tack på förhand

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

## #2 — Vide, 2001-12-14T10:42Z

```
strIp = Request.ServerVariables("REMOTE_HOST")
strKlient = Request.ServerVariables("HTTP_USER_AGENT")
dtmDatum = Now
strReferer = Request.ServerVariables("HTTP_REFERER")
if left( strIp, 7 ) <> "192.168" then
SQL = "INSERT INTO logg (dtm, ip, klient, referer) VALUES (#" & dtmDatum & "#, '" & strIp & "', '" & strKlient & "', '" & strReferer & "')"
objConn.Execute(SQL)
end if
```

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

## #3 — Method, 2001-12-14T16:15Z

Funka bra först men...

Jag vet inte om jag pillade lite mycket på servern??

Nu vill den inte lägga till några nya poster i databasen. Jag får inga felmeddelande när jag laddar sidan men när jag kör httpview på den ser det ut så här:

Header (Length = 263):
HTTP/1.1·500·Internal·Server·Error(CR)
(LF)
Server:·Microsoft-IIS/5.0(CR)
(LF)
Date:·Fri,·14·Dec·2001·16:05:24·GMT(CR)
(LF)
Connection:·Keep-Alive(CR)
(LF)
Content-Length:·373(CR)
(LF)
Content-Type:·text/html(CR)
(LF)
Set-Cookie:·ASPSESSIONIDGGGGQICC=PKFJPOABBKCHLDHAGLPHJBMB;·path=/(CR)
(LF)
Cache-control:·private(CR)
(LF)
(CR)
(LF)

Content (Length = 373):
·\<font·face="Arial"·size=2\>(LF)
\<p\>Microsoft·JET·Database·Engine\</font\>·\<font·face="Arial"·size=2\>error·'80040e14'\</font\>(LF)
\<p\>(LF)
\<font·face="Arial"·size=2\>Syntax·error·(missing·operator)·in·query·expression·''Rex·Swain's·HTTP·Viewer·(http://www.rexswain.com/httpview.html)',·'')'.\</font\>(LF)
\<p\>(LF)
\<font·face="Arial"·size=2\>//global.asa\</font\>\<font·face="Arial"·size=2\>,·line·12\</font\>·

OBS Jag har inte gjort några andra förändringar i koden än de Vide föreslog.
Någon som har några ideer??
Tacksam för hjälp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13192-vides-räknare-räkna-inte-när-personer-kommer-från-vissa-ip-adresser