Function()

Varför fungerar inte denna funktion?

<%
Function addStatus(text)

	'----------------------------------------------------------------
	' Skapa en databas-connection
	'----------------------------------------------------------------
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databaser\users.mdb") & ";pwd=xxx;"

	'----------------------------------------------------------------
	' Ändra på Sonline
	'----------------------------------------------------------------
	Conn.Execute("UPDATE Users SET Sstatus='" & text & "' Where ID=" & Session("User") & "")

	'----------------------------------------------------------------
	' Stäng anslutningen
	'----------------------------------------------------------------
	Conn.Close

End Function
%>

<%
addStatus('Kollar på huvudsidan')
%>