---
title: "vägrar logga ip nummret"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/77748-vägrar-logga-ip-nummret"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Thompa__85"
published: "2003-05-22T13:38:47.000Z"
updated: "2003-05-22T15:57:47.000Z"
replies: 16
views: 272
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/77748-vägrar-logga-ip-nummret"
---

# vägrar logga ip nummret

## #1 — Thompa__85, 2003-05-22T13:38Z

Jag har gjort så att när man loggar in ska ip-numret loggas i en databas..
och kör med denna kod:

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/blandat.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From iplogg" 
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

strUserIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

	RecSet.AddNew

	RecSet("datum") = Now
	RecSet("vem") = Session("user")
				
	If strUserIP = "" Then
	RecSet("ip") = Request.ServerVariables("REMOTE_ADDR")
	else
	RecSet("ip") = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	End If
	
	RecSet.Update
	
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
```

Men, den vill inte logga... varför?

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

## #2 — Peeer, 2003-05-22T14:13Z

Vad ger servervariabeln "HTTP_X_FORWARDED_FOR" för värde? Har aldrig sett den förut, så jag hoppar över den ;)

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/blandat.mdb")&";"

strSQL ="insert into iplogg (datum, vem, ip) values "&_
"(#"&now()&"#, '"&Session("user")&"', '"&Request.ServerVariables("REMOTE_ADDR")&"')"
Connect.execute(strSQL)
Connect.close
```

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

## #3 — GunnarD, 2003-05-22T14:28Z

Variabeln HTTP_X_FORWARDED_FOR sätt av Squid proxyserver och evetuellt andra proxyservrar, och innehåller den "riktiga" ip-adressen på den som surfar.

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

## #4 — Thompa__85, 2003-05-22T14:33Z

> **Peeer skrev:**
>
> Vad ger servervariabeln "HTTP_X_FORWARDED_FOR" för värde? Har aldrig sett den förut, så jag hoppar över den ;)
>
>
> ```
> Set Connect = Server.CreateObject("ADODB.Connection") 
> Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/blandat.mdb")&";"
> 
> strSQL ="insert into iplogg (datum, vem, ip) values "&_
> "(#"&now()&"#, '"&Session("user")&"', '"&Request.ServerVariables("REMOTE_ADDR")&"')"
> Connect.execute(strSQL)
> Connect.close
> ```

okej, men hur får jag in "HTTP_X_FORWARDED_FOR" också?

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

## #5 — Peeer, 2003-05-22T14:48Z

Jahaja, då ska den nog vara med ja :)

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/blandat.mdb")&";"

If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then
    strIP = Request.ServerVariables("REMOTE_ADDR")
else
    strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if

strSQL ="insert into iplogg (datum, vem, ip) values "&_
"(#"&now()&"#, '"&Session("user")&"', '"&strIP&"')"
Connect.execute(strSQL)
Connect.close
```

Så kanske?

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

## #6 — Thompa__85, 2003-05-22T14:57Z

Hmm den vill fortfarande inte logga... :( 
Fattar inte varför. någon som har en aning?

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

## #7 — Peeer, 2003-05-22T15:23Z

Sparas ingenting alls? Felmeddelande?

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

## #8 — Thompa__85, 2003-05-22T15:33Z

> **Peeer skrev:**
>
> Sparas ingenting alls? Felmeddelande?

inga felmeddelanden, å inget sparas... inte ens det andra...

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

## #9 — @nders, 2003-05-22T15:34Z

Om du bara skriver ut värdet till browsern, finns det där då?

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

## #10 — Peeer, 2003-05-22T15:36Z

Det verkar ju fullkomligt befängt. Du har ingen "on error resume next" med någonstans i koden? Körs koden så borde något sparas alternativt generera felmeddelande. Koden ligger inte inne i någon if-sats som aldrig uppfylls --\> koden aldrig körs?

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

## #11 — Thompa__85, 2003-05-22T15:39Z

> **Peeer skrev:**
>
> Det verkar ju fullkomligt befängt. Du har ingen "on error resume next" med någonstans i koden? Körs koden så borde något sparas alternativt generera felmeddelande. Koden ligger inte inne i någon if-sats som aldrig uppfylls --\> koden aldrig körs?

den ingår i inloggnings kollen när man loggar in.. annars inget...

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

## #12 — Thompa__85, 2003-05-22T15:39Z

> **@nders skrev:**
>
> Om du bara skriver ut värdet till browsern, finns det där då?

hur menar du?

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

## #13 — Peeer, 2003-05-22T15:41Z

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/blandat.mdb")&";"

If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then
    strIP = Request.ServerVariables("REMOTE_ADDR")
else
    strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if

strSQL ="insert into iplogg (datum, vem, ip) values "&_
"(#"&now()&"#, '"&Session("user")&"', '"&strIP&"')"
[b]Response.write strSQL
Response.end[/b]
'Connect.execute(strSQL)
'Connect.close
```

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

## #14 — Thompa__85, 2003-05-22T15:48Z

Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/adde/star/login_kolla2.asp, line 5 

Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("databas/blandat.mdb")&";"
\-----------------------------------------------------------------^

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

## #15 — Thompa__85, 2003-05-22T15:53Z

nu skriver den ut så här:
insert into iplogg (datum, vem, ip) values (#2003-05-22 17:53:47#, 'Thomsson', '81.224.142.254')

å de e ju rätt... men varför sparar den inte det i databasen?

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

## #16 — Peeer, 2003-05-22T15:55Z

Mjo, det ser ju rätt ut. Ändra tillbaka den sista kodbiten igen och prova på nytt.

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/blandat.mdb")&";"

If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then
    strIP = Request.ServerVariables("REMOTE_ADDR")
else
    strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if

strSQL ="insert into iplogg (datum, vem, ip) values "&_
"(#"&now()&"#, '"&Session("user")&"', '"&strIP&"')"

Connect.execute(strSQL)
Connect.close
```

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

## #17 — Thompa__85, 2003-05-22T15:57Z

funkar nu.. tack!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/77748-vägrar-logga-ip-nummret