Jag har ett problem, jag har en sida som medlemmar måste logga in på, alla har ett unikt lösen och användarnamn, nu vill jag kunna se på min adminsida vilka medlemmar som loggar in och hur ofta.

I min databas så har jag en kollumn som heter nr i den tänkte jag plusa på ett varje gång som nån loggar in, jag har testat ett sätt men det funkar inte, koden körs igenom men det plusas inte i databasen.

Så här ser koden ut:

<code>
If NOT Request.Form("login") = "" And Not Request.Form("pass") = "" Then
If IsNumeric(Request.Form("pass")) Then
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "member", "sa"

SQLcheck = "SELECT * FROM memberTB WHERE användarnamn = '" & Request.Form("login") & "' AND membernr = '"_
& Request.Form("pass") & "'"
rs.Open SQLcheck, MinCon, 1, 2

rs.AddNew

If rs.EOF Then
msg_str = "Felaktigt användarnamn eller/och lösenord. Försök igen."
Else

tal = rs("nr")
tal1 = tal + 1
rs("nr")= tal1

Session("memID") = rs("memberID")
Session("wforetag") = rs("företag")
Session("wkundnr") = Request.Form("pass")
Response.Redirect "af_start.asp"
rs.Update
End If 'end If rs.EOF
rs.Close
Else
msg_str = "Felaktigt användarnamn eller/och lösenord. Försök igen."
End If 'end If IsNumeric(...
Else
msg_str = ""
End If 'end If NOT
%>
</code>

Tacksam för all hjälp

//JW

Testa denna kod !!
Har flyttat Response.Redirect "af_start.asp" efter rs.update


<Code>
If NOT Request.Form("login") = "" And Not Request.Form("pass") = "" Then
If IsNumeric(Request.Form("pass")) Then
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "member", "sa"

SQLcheck = "SELECT * FROM memberTB WHERE användarnamn = '" & Request.Form("login") & "' AND membernr = '"_
& Request.Form("pass") & "'"
rs.Open SQLcheck, MinCon, 1, 2

rs.AddNew

If rs.EOF Then
msg_str = "Felaktigt användarnamn eller/och lösenord. Försök igen."
Else

tal = rs("nr")
tal1 = tal + 1
rs("nr")= tal1

Session("memID") = rs("memberID")
Session("wforetag") = rs("företag")
Session("wkundnr") = Request.Form("pass")
rs.Update
Response.Redirect "af_start.asp"
End If 'end If rs.EOF
rs.Close
Else
msg_str = "Felaktigt användarnamn eller/och lösenord. Försök igen."
End If 'end If IsNumeric(...
Else
msg_str = ""
End If 'end If NOT
%>
</code>

Japp, så lätt var det...

Tack för hjälpen!

//JW