I'm trying to execute a query directly in xsl

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/
Transform"  xmlns:msxsl="urn:schemas-microsoft-com:xslt"
xmlns:js="JavaScript" xmlns:user="VBScript">
<msxsl:script language="VBScript" implements-prefix="user">
<![CDATA[
function test(p)
for i=0 to p
ok = "<a class='xxx' href='results.asp?pag="&i&"'>["&i&"]</a>"& ok
next

test= ok
end function

function testSQL()
Dim Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&
server.MapPath("/mdb-database/fare.mdb")
dim SQL
SQL= "INSERT INTO bestPrice (id_hotel) "
SQL = SQL&"VALUES('1') "
conn.execute (sql)
conn.close

testSQL = SQL
set conn=Nothing
end function

]]>
</msxsl:script>

inside the template I call the function in this way:
<xsl:value-of select="user:testSQL()" />

but the system return  an error:

Microsoft VBScript runtime error Object required: 'Server' line = 12,
col = 0 (line is offset from the start of the script block). Error
returned from property or method call.

some advices ?

Thanks a lot.