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')
%>

------------------
Hälsningar Ricki
www.ricki.nu

felmeddelande?

skriv ut sql-frågan också med response.write, så ser man om det är någe knas med den.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
let's look for treasure!</A>