Haster -> Find EN fejl!

Har denne kode:

<%@ Language = \"VBScript\" %>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0
%>
<!-- # include file = \"../adovbs.inc\" -->
<!-- # include file = \"../config.asp\" -->
<html>
<head>
<title>PopUpBob Awards - Gamle vindere af Awards</title>
<link rel=stylesheet href=\"../style.css\" type=\"text/css\">
</head>
<body>
<table align=\"center\" width=\"760\" height=\"100\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\">
  <tr>
      <td width=\"500\" valign=\"top\">
        <img src=\"logo.jpg\">
      </td>
  </tr>
  <tr>
      <td width=\"500\" valign=\"top\" align=\"center\">
        <font size=\"2\">
        <p><br><br><br>
        <b><font style=\"cursor : default\">
        <h3>Vindere af PopUpBob Awards:</h3><br>
<%
Dim intPage, rs, strSQL, strDSN, intRecCount, intPageCount, intNum

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If
    Response.Write \"<div align=\'center\'>\"
      Response.Write \"<center>\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM award ORDER BY dato desc\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"winners.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write \"<p><b><font size=\'2\'>Side \" & intPage & \" af \" & intPageCount & \"</font></b></p>\"
    Response.Write \"<div align=\'center\'>\"
      Response.Write \"<table border=\'0\' cellpadding=\'0\' cellspacing=\'0\' width=\'760\' align=\'center\'>\"
        Response.Write \"<tr>\"
    Response.Write \"<td width=\'300\'>\"
    Response.Write \"<b><font size=\'3\'>Navn:\"
    Response.Write \"</td>\"
    Response.Write \"<td width=\'410\'>\"
    Response.Write \"<b><font size=\'3\'>Url:</a>\"
    Response.Write \"</td>\"
    Response.Write \"<td width=\'50\'>\"
    Response.Write \"<b><font size=\'3\'>Karakter:</big>\"
    Response.Write \"</td>\"
    Response.Write \"</tr>\"
      Response.Write \"</table>\"
    Response.Write \"</div>\"
  Do While Not rs.EOF And intRecCount > 0

    Response.Write \"<div align=\'center\'>\"
      Response.Write \"<table border=\'0\' cellpadding=\'0\' cellspacing=\'0\' width=\'760\' align=\'center\'>\"
        Response.Write \"<tr>\"
    Response.Write \"<td width=\'300\'>\"
    Response.Write \"<font size=\'2\'>\" & rs(\"navn\")
    Response.Write \"</td>\"
    Response.Write \"<td width=\'410\'>\"
    Response.Write \"<a href=\'\" & RS(\"url\") & \"\' target=\'_blank\'><font size=\'2\'>\" & RS(\"url\") & \"</a>\"
    Response.Write \"</td>\"
    Response.Write \"<td width=\'50\'>\"
    Response.Write \"<font size=\'2\'>\" & rs(\"karakter\")
    Response.Write \"</td>\"
    Response.Write \"</tr>\"
      Response.Write \"</table>\"
    Response.Write \"</div>\"

  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing
    Response.Write \"</td>\"
    Response.Write \"</tr>\"
    Response.Write \"<tr>\"
    Response.Write \"<td align=\'center\'><font size=\'2\'><br>\"
Response.Write \"<div align=\'center\'>\"
Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
  Response.Write \"<a href=winners.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
  Response.Write \"<font size=\'2\'><b><a href=winners.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
  Response.Write \"<font size=\'2\'><b>&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write \"<font size=\'2\'><b><a href=winners.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
  Response.Write \"<font size=\'2\'><b>&gt;&gt;\"
End If
%><br>
        <br>
        </font></b></font>
<p>

                  <a href=\"./\" style=\"cursor : default\">Tilbage</a><p>
<div align=\"center\">
        <!--webbot bot=\"HTMLMarkup\" startspan --><a target=\"_blank\" href=\"http://www.chart.dk/ref.asp?id=23852\">
<img alt=\"chart.dk\" border=\"0\" src=\"http://cluster.chart.dk/chart.asp?id=23852\">
</a><!--webbot bot=\"HTMLMarkup\" endspan -->
</div>
              </td>
            </tr>
        </table>
      </td>
  </tr>
</table>
</body>
</html>

Får denne fejl,


Microsoft OLE DB Provider for ODBC Drivers error \'80040e21\'

ODBC driver does not support the requested properties.

winners.asp, line 39

Kan sq ikke helt regne ud hvad det er...