Hvorfor virker det her ik? (database noget)

adressen er http://mercutio.mine.nu/seekers/index.asp

Koden er:

<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0
Dim objConn, objRS, strQuery
Dim strConnection
Set objConn = Server.CreateObject(\"ADODB.Connection\")
strConnection = \"DSN=Dbasen;Database=Dbasen;\"
strConnection = strConnection & \"UID=sa;PWD=;\"
objConn.Open strConnection
strQuery = \"SELECT Url, Soegeord FROM Adresser \"
strQuery = strQuery & \"ORDER BY Url\"
Set objRS = objConn.Execute(strQuery)
%>
<HTML>
<BODY>
Alle urller
<BR>
<BR>
<%
While Not objRS.EOF
    Response.Write objRS(\"Url\") & \" (\"
    Response.Write FormatCurrency(objRS(\"Soegeord\")) & \")<BR>\"
    objRS.MoveNext
Wend

objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
%>
</BODY>
</HTML>

Hvorfor virker det ikke?`?
Jeg har oprettet en odbc adgang med navnet Dbasen min database hedder Dbasen så der burde ikke være noget problem...