Se vart besökaren befinner sig

Jämför användarens id med det som visas.

Hur gör jag det? :stud

Du har ju användarens id eller hur? Antar att det är den som ligger i Session("cmid") och du vet vilket id medlemmen du tittar på har? Bör väl ligga i en querystring.
Då skulle du som exempel kunna göra såhär:

If cint(Session("cmid")) = cint(request.querystring("id")) Then
 'I sitt eget krypin
End If

Hm, jag skriver ut det såhär nu..

<%
				if egen = 1 then

ID = Session("cmid")
lalala = "- chillar i sitt krypin.."
Connect.Execute("UPDATE medlemmar Set whereareyou='" & lalala & "' Where ID=" & ID )

end if
%>

<%
				if egen = 0 then

ID = Session("cmid")
lalala = "- spanar in RS("alias")

Connect.Execute("UPDATE medlemmar Set whereareyou='" & lalala & "' Where ID=" & ID )

end if
%>

Felet verkar uppstå "lalala = "- spanar in RS("alias")"

Error Type:
Sun ONE ASP VBScript compilation (0x800A03F6)
Expected 'End'
/profil.asp, line 37, column 27

lalala = "- spanar in RS("alias")

ska vara

lalala = "- spanar in " & RS("alias")

Error Type:
Sun ONE ASP VBScript compilation (0x800A03F2)
Expected identifier
/profil.asp, line 37, column 39

Tacksam för svar!

Du får nog vara lite mer detaljerad i din felbeskrivning än så :)

<%
if egen = 1 then

ID = Session("cmid")
lalala = "- chillar i sitt krypin.."
Connect.Execute("UPDATE medlemmar Set whereareyou='" & lalala & "' Where ID=" & ID )

end if
%>

<%
if egen = 0 then

ID = Session("cmid")
lalala = "- spanar in " & RS("alias")..."

Connect.Execute("UPDATE medlemmar Set whereareyou='" & lalala & "' Where ID=" & ID )

end if
%>

---

Det är nog fortfarande " lalala = "- spanar in " & RS("alias")..." " raden som spökar.. :/

det är för att du aldrig öppnat RS("alias") gissar jag. Du måste ju först göra en select där du hämtar ID samt Användarnamn ur databasen för att kunna presentera RS("alias")..

Denna rad är fel också

lalala = "- spanar in " & RS("alias")..."

men du får lista ut vad själv denna gång.

<%

	if Request.QueryString("userid") = Session("cmid") OR Request.QueryString("userid") = "" then
		userid = CLng(Session("cmid"))
		SQL = "Select * from medlemmar where id = "&userid&""
		Set Rs2 = Connect.execute(SQL)
		egen = 1
	else
		userid = CLng(Request.QueryString("userid"))
		SQL = "Select * from medlemmar where id = "&userid&""
		Set Rs2 = Connect.execute(SQL)
		egen = 0
	end if
%>
<%
				if egen = 1 then

ID = Session("cmid")
lalala = "- chillar i sitt krypin.."
Connect.Execute("UPDATE medlemmar Set whereareyou='" & lalala & "' Where ID=" & ID )

end if
%>

<%
				if egen = 0 then

ID = Session("cmid")
lalala = "- spanar in " & RS("alias")

Connect.Execute("UPDATE medlemmar Set whereareyou='" & lalala & "' Where ID=" & ID )

end if
%>

Error Type:
Sun ONE ASP VBScript runtime (0x800A000D)
Type mismatch
/profil.asp, line 37

... och rad 37 är? Ta med sådant när du postar ett fel eftersom radnummrena i koden man lägger ut här sällan stämmer med de man har i sin sida. Alltid gärna ett par rader kod innan och efter felmeddelandet också.

<%
if egen = 0 then

ID = Session("cmid")
lalala = "- spanar in " & RS("alias")

Connect.Execute("UPDATE medlemmar Set whereareyou='" & lalala & "' Where ID=" & ID )

end if
%>

rad 37 är markerad :P

Hela den där kodsnutten du postade innan är lite konstig. Gör något i stil med detta istället:

If cint(Request.QueryString("userid")) = cint(Session("cmid")) OR Request.QueryString("userid") = "" Then
	'# Sitt egna krypin
	sMessagestring = "chillar i sitt krypin"
Else
	'# Någon annans
	sMessagestring = "spanar in " & RS("alias") 'Antar att denna kommer från någonstans innan i koden.
End If
	
sSQL = "UPDATE medlemmar Set whereareyou='" & sMessagestring & "' Where ID= " & Cint(Session("cmid"))
Connect.Execute(sSQL)

Hur skriver jag för att öppna "alias"?

Haha, ehm, förlåt för min lathet.. jag fixade det.. TACK!!

markera tråden som löst när du fått svar på din fråga..