Request.ServerVariables("REMOTE_ADDR")
Mvh. Kenneth Mortensen
"søren" <dsl52640@vip.cybercity.dk> skrev i en meddelelse
news:bp2ulf$snt$1@sunsite.dk...
> Hvordan for jeg brugerens IP adresse når de tilføjer en skade
> til databasen.
>
>
> <% Session.LCID = 1030
> ' Databaseforbindelse - husk at angive sti til din database
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath ("dbdata.mdb")
> Conn.Open DSN
>
>
> ' Hvis der er trykket på submit-knappen
> If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
> Forfatter = Request.Form("Forfatter")
> Dato = Request.Form("Dato")
> Overskrift = Request.Form("Overskrift")
> Skadebeskrivelse = Request.Form("Skadebeskrivelse")
> Skadesket = Request.Form("Skadesket")
> landsdel = Request.Form("landsdel")
> Kon = Request.Form("Kon")
> Alder = Request.Form("Alder")
> Klub = Request.Form("Klub")
> Division = Request.Form("Division")
>
> strSQL = "INSERT INTO skader (Forfatter, Dato, Overskrift,
> Skadebeskrivelse, Skadesket, landsdel, Kon, Alder, Klub,
> Division, IP) "
> strSQL = strSQL & " values("
> strSQL = strSQL & "'"&Forfatter&"',"
> strSQL = strSQL & "'" &Dato& "', "
> strSQL = strSQL & "'" &Overskrift& "', "
> strSQL = strSQL & "'" &Skadebeskrivelse& "', "
> strSQL = strSQL & "'" &Skadesket& "', "
> strSQL = strSQL & "'" &landsdel& "', "
> strSQL = strSQL & "'" &Kon& "', "
> strSQL = strSQL & "'" &Alder& "', "
> strSQL = strSQL & "'" &Klub& "', "
> strSQL = strSQL & "'" &Division& "', "
> strSQL = strSQL & "'"&IP&"')"
>
> 'Response.Write (strSQL)
> ' SQL sætning eksekveres
> Conn.Execute(strSQL)
>
>
> Håber meget på at få hjælp Tak
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials