Senastebesökare

mm jag förstår =) men e det inte bättre och göra som jag gör eller?

nån som vet hur man gör det blir samma värden på alla medlemmarnas senastebesökare?

mm jag förstår =) men e det inte bättre och göra som jag gör eller?

Nej du förstår tydligen inte.

Det är inte bättre att göra så som du säger. Gör om funktionen, annars kommer du ha problem med det där resten av tiden du jobbar med applikationen.

men jag vill inte hålla på och ändra i databasen och sånt!

Nehe.

Då blev det helt plötsligt svårt igen

det är en admin funktion så jag vill få igång!
tar bort ett ord i fält som ser ut så här Gustav,pelle,antar !!

Ok, då gör vi väl så då:

1. Du kan inte skriva ett UPDATE-statement utan en WHERE i, då uppdateras alla poster precis som du skriver.
2. Testa det här:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Database/Medlemmar.mdb")&""
set recset = server.createobject("Adodb.recordset")
sql = "select * from medlemmar"
recset.open sql,connect,3,3
arr = Split(recset("Senastebesokare"),",") 
For i = 0 To Ubound(arr)
If lcase(arr(i)) <> lcase(recset("Senastebesokare")) Then 
newstr = newstr & arr(i) & ","
End If 
Next 

Connect.Execute("UPDATE Medlemmar SET Senastebesokare = '"& newstr &"' [red]WHERE kolumn = '" & nån_variabel & "'[/red] ")
connect.close
set connect = nothing

solbulle skrev:

Du får i din sqlfråga lägga till en "Where-sats" så att du bara plockar ut en viss persons besökare, eller loopa dig igenom hela databasen.
...

Får se om han lyssnar nu då.

nope funkar inte?

arr = Split(recset("Senastebesokare"),",") 
For i = 0 To Ubound(arr)
If lcase(arr(i)) <> lcase(recset("Senastebesokare")) Then 
newstr = newstr & arr(i) & ","
End If 
Next 

Connect.Execute("UPDATE Medlemmar SET Senastebesokare = '"& newstr &"' where not Senastebesokare='"&request.form("Anvandarnamn")&"'")
connect.close
set connect = nothing

Vad funkar inte? Vad händer? Felmeddelande?

inga felmeddelande men blir samma värde i alla fält? och extra ,,,

Släng in lite testutskrifter:

arr = Split(recset("Senastebesokare"),",") 

response.write (recset("Senastebesokare") & "<p>"

For i = 0 To Ubound(arr)
If lcase(arr(i)) <> lcase(recset("Senastebesokare")) Then 
newstr = newstr & arr(i) & ","
End If 
Next 

response.write newstr  & "<p>"
response.end

Connect.Execute("UPDATE Medlemmar SET Senastebesokare = '"& newstr &"' where not Senastebesokare='"&request.form("Anvandarnamn")&"'")
connect.close
set connect = nothing

Vad får du ut?

nu blir det så här
pelle,gustav,antar,,,,,

visa alla utskrifter:

response.write (recset("Senastebesokare") & "<p>"
samt

response.write newstr & "<p>"

Kanske kan man göra något likt detta för att få bort de tomm posterna, finns säkert bättre sätt:

arr = Split(recset("Senastebesokare"),",") 

	For i = 0 To Ubound(arr)
	If lcase(arr(i)) <> lcase(recset("Senastebesokare")) Then
		If  len(arr(i)) > 2 then 
			newstr = newstr & arr(i) & ","
		End If
	End If 
Next

solbulle> nu hänger jag inte med vilken kod ska jag välja?

gustav går fortfarande inte bort!