Se hvormange gange en bruger er logget ind

Lav et felt i tabellen der heder hits og tilføj følgende til dit login script :

Sql = "Update LoginTabel Set Hits = Hits + 1"
Conn.Execute(Sql)

/Websam

Ups sådan her :

Sql = "Update LoginTabel Set Hits = Hits + 1 Where Id = "&Session("Id")&""
Conn.Execute(Sql)

Jeg har denne kode og kan ikke helt se hvor jeg skal smide det ind

<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxx.mdb")

If Request("mode") = "Check" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,"%","53")
End Function

    ' Gemmer formfelterne i Variabler
        strUsername = unQuote(request("username"))
        strPassword = unQuote(request("password"))

  Sql = "Select Count(*) as Found from user where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Du blev ikke godkendt af systemet"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("xxxx.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM user where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "yes mate"
    Response.Redirect "index.asp"
    EZ.Close
    RS.Close
    Conn.Close
  end if
end if
%>

Skift dette ud :

Session("login") = "yes mate"
Response.Redirect "index.asp"
EZ.Close
RS.Close
Conn.Close

Med Dette :

Session("login") = "yes mate"
Session("Id") = ez("Id")
Sql = "Update user Set Hits = Hits + 1 Where Id = "&Session("Id")&""
myConn.Execute(Sql)
Response.Redirect "index.asp"
EZ.Close
RS.Close
Conn.Close

Og husk at få tilføjet et felt med navenet Hits i din db :o)

/Websam

Den skriver intet i databasen har lavet tabellen hits og som tal, men der kommer intet?

prøv at sæt  standart værdi på hits i databasen til 0

den står til nul som standardværdi, når man vælger tal og langt heltal i designvisning

ved ikke om du er klar over det, men vil da lige pointere at du har et sikkerheds hul i den kode der, prøv at logge ind med
Brugernavn: 'or '1'='1
password: 'or '1'='1
problemet løser du ved at bytte dette ud

        strUsername = unQuote(request("username"))
        strPassword = unQuote(request("password"))

med dette

        strUsername = Replace(unQuote(request("username")),"'","''")
        strPassword = Replace(unQuote(request("password")),"'","''")

Nå ja. også rigtig, længe siden jeg har arbejdet med Access.. hvor dit problem ligger så.. men prøv at lave denne linje
Sql = "Update user Set Hits = Hits + 1 Where Id = "&Session("Id")&""
om til
Sql = "Update user Set Hits = " & ez("Hits") + 1 & " Where Id = "&Session("Id")&""

for du ingen fejl?

Jeg får ingen fejl, den fiser bare igennem til den side som den skal men kigger lige

Så sæt dit hits felt default til 1 så virker det :o)

/Websam

nu har jeg lavet det om som du siger koldy, men får denne fejl

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.

/login.asp, line 69

ni har jeg sat den til standarværdi 1 i tabellen, men keine hits udfor mit login navn i tabellen

Det forstår jeg ikke det burde virke jeg bruger selv denne :

Sql = "Update user Set Hits = Hits + 1 Where Id = "&Session("Id")&""

og har lige testet det virker fint ?!?

/Websam

Prøv lige at sætte dette ind :

Hits = ez("Hits")
Sql = "Update user Set Hits = "&Hits&" + 1 Where Id = "&Session("Id")&""

det sker intet i db

Nu fungerer den

koldy smider du ikke lige et svar også

der

men synes nu også websam skal ha en del af dem, jeg omskrev bare lidt af hans.. :)

upzz. sorry, læste vist ikke det hele.. sorry (se lige bort fra min forige kommentar) :)