IP LOGGING

function get_IP()
{
global $HTTP_SERVER_VARS;
return (($HTTP_SERVER_VARS["HTTP_CLIENT_IP"]<>"")
? $HTTP_SERVER_VARS["HTTP_CLIENT_IP"] :
$HTTP_SERVER_VARS["REMOTE_ADDR"]);
}


get_IP();

glem mit

Ehm ja :D
Tror også jeg har det nu..

Øjeblik

Damn kom til at acceptere :D
Nå sådan kan det gå :D

http://www.eksperten.dk/spm/223805
Request.ServerVariables("REMOTE_HOST")

Tillykke med dine gratis points :D

vil du have dem igen?

flot disco :))

dacarp0:

For at få ip'en af den på brugeren bruger du Request Objektet.

strIP = Request.ServerVariables("REMOTE_HOST")

nu kan du så sætte et felt i databasen lig med strIP og så har du den :)

Venligst,

happycow-

jeg kan kun se halvdelen af min skærm pga. solen så jeg så sku forkert syntes der stod php

Jo, vil jeg da gerne..
:D

Happycow-:

Min kode ser sådan ud:
<%
Response.Buffer = True

FUNCTION fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "''" )
END FUNCTION

    nick = Request( "nick" )
    over = Request( "over" )
    besked = Request( "besked" )
    dato = Request( "dato" )

Set Con = Server.CreateObject( "ADODB.Connection" )
    DBPath = "DBQ=" & server.mappath("/db/tagwall.mdb")
    Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

IF Request.Servervariables("Content_Length") > 0 THEN
    Sql = "INSERT INTO tag (dato, besked, over, nick) VALUES('" & date() & "','" & fixQuotes( besked ) & "','" & fixQuotes( over ) & "','" & fixQuotes( nick ) & "')"
    Con.Execute Sql

    Response.Write "<strong>Tag accepted </strong>"
   
END IF

%>

Nu er der lige nogle fejl i da jeg har ændret lidt, men hvor præcist skal det sidde?

Skal det ind under det her?:
    nick = Request( "nick" )
    over = Request( "over" )
    besked = Request( "besked" )
    dato = Request( "dato" )

http://www.eksperten.dk/spm/256637

har du læst det spg jeg skrev
http://www.eksperten.dk/spm/223805

ja, lav en der hedder:

IP = Request.ServerVariables("REMOTE_HOST")

Og så et felt i databasen der hedder: IP

Og så skal du bare lige ændre din SQL streng til:

Sql = "INSERT INTO tag (dato, besked, over, nick, IP) VALUES('" & date() & "','" & fixQuotes( besked ) & "','" & fixQuotes( over ) & "','" & fixQuotes( nick ) & "','" & IP & "')"

Så skulle den være iorden...

Tester lige :D

NU virker siden slet ikke

Den virkede uden IP logging, men ikke efter jeg satte det ind

tror det virker nu, ændrede lige til det første du sagde..

Ja virker nu, laver lige et andet spsm. så du kan få dine points

Happy tjek lige her: http://www.eksperten.dk/spm/256653