dim conn dim rs, sql Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("olfconstring") sql="update sdweb.websessions set sist_aktiv=sysdate where session_id='" & session("session_key") & "' " set rs=conn.execute(sql) set rs=nothing conn.close set conn=nothing %>