Senaste besökare

Jag skulle ha testat:

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

Anvandarnamn= request.querystring("Anvandarnamn") 

SQL="SELECT Senastebesokare, Anvandarnamn FROM Medlemmar WHERE Anvandarnamn='" & Anvandarnamn & "'" 
Connect.execute(SQL) 
Set Recset=Server.CreateObject("ADODB.Recordset") 
Recset.open SQL, Connect, 3,3 

adda=session("Anvandarnamn") & "*" 
happ=adda & recset("Senastebesokare") 
if recset("Anvandarnamn")<>Anvandarnamn then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)
end if

/Jesper

När jag tittar närmar på det hela så ser det ut som att "anvandarnamn" är den medlemmen vars krypin man tittar in i, men hur spar du användarnas eget användarnamn?
i sessions eller kakor eller vad ? Detta måste du väl ha med i if-satsen.

 if recset("Anvandarnamn")<>session("Anvandarnamn") then

jepp men funkar inte?

skriv inget i tabellen om jag skriver if not recset("anvandarnamn")<>Anvandarnamn then så funkar det

Men är det fortfarande problem?

aa det skrivs endå till mitt egen krypin!!

Men hur spar du ditt användarnamn?!
Altså när du surfar runt på din site så måste du väl kunna plocka ut det på ngt sätt. Hur gör du det?

session("Anvandarnamn")

if not recset("Anvandarnamn")=session("Anvandarnamn") then

och hur gör man om man vill slippa dubletter på senaste besökarna?

Vad händer om du inte tillåter dubletter i din databas och kör:

On Error Resume Next
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)
If Err.Number<>0 then
'Det gick inget vidare....
end if
end if

tabellen ser ut så här

antarid=1*antarid=1*osv... i en tabell

Jag fattar inte riktigt strukturen ändå, men kanske detta då?

if Recset.eof then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)

else
  'posten finns, strunta i att lägga till!
end if

tabellen ser ut så här

...Menar du inte kolumnen?

kolumnen menar jag!!

kolla här:

adda=session("Anvandarnamn") & "*"

Om du har allt i samma kolumn kan du kanske göra:

if not right(recset("Anvandarnamn"),len(anvandarnamn))[red]&"*"[/red] = anvandarnamn[red]&"*"[/red] then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sqlo)

else
  'posten finns, strunta i att lägga till!
end if

//Jesper

händer ingenting?

Prova att sätta stjärnan först, sen struntar du i stjärnan i if-satsen.

adda="*"&session("Anvandarnamn")
if not right(recset("Anvandarnamn"),len(anvandarnamn))= anvandarnamn then

Någon ASP-guru får nog hjälpa dig annars!

MVH Jesper :)

händer inget!

testa

adda=session("Anvandarnamn")&"*"
happ=adda & recset("Senastebesokare")

if not recset("Senastebesokare")&"*" = Anvandarnamn then

if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'"
connect.execute(sqlo)

else
'posten finns, strunta i att lägga till!
end if
end if