Hvorfor virker dette ikke??

Jeg er ved at lave et subdomain script, men kan ikke få det til at fungere....

Scriptet:
-------------------------
<%
Dim Subs
Subs = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\clansite.dk_x6z7um\wwwroot\db\sub.mdb;"

Set Con = Server.CreateObject("ADODB.Connection")
Con.open Subs

Sql = "SELECT * FROM Subs"
set rs = Con.execute( Sql )
%>
<%
if left(request.servervariables("SERVER_NAME"), InStr(request.servervariables("SERVER_NAME"), ".") -1) = Rs("URL") then %>

<FRAMESET FRAMEBORDER="0" FRAMESPACING="5" BORDER="5" ROWS="100%,*" COLS="100%">
    <FRAME SRC="<%Rs("strURL")%>" NAME="Midle" SCROLLING="auto">
</FRAMESET>

<%
else
Response.Redirect("http://www.clansite.dk")
end if

rs.close
Set rs = Nothing
Con.close
Set Con = Nothing
%>
------------------------------------

Og jeg får fejlen:
-----------------------------------
error '80020009'
Exception occurred.

/includes/Subdomain.asp, line 12
------------------------------------


Kan du hjælpe mig??