Asp фикс бага с базой данных

код неотрабатывает строку

rs.Open strsql, conn, 1, 2

с ошибкой

-*-----------------

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

ODBC driver does not support the requested properties.

/manage/Banners_view.asp, line 85

--------------------

Данное место не единственное на сайте

.часть код...

"login" then response.redirect "login.asp" %>

Response.expires = 0

Response.expiresabsolute = Now() - 1

Response.addHeader "pragma", "no-cache"

Response.addHeader "cache-control", "private"

Response.CacheControl = "no-cache"

%>

response.buffer = true

'get key

key = request.querystring("key")

if key="" or isnull(key) then

key=request.form("key")

end if

if key="" or isnull(key) then response.redirect "Banners_list.asp"

'get action

a=request.form("a")

if a="" or isnull(a) then

a="I" 'display with input box

end if

' Open Connection to the database

set conn = Server.CreateObject("ADODB.Connection")

conn.Open DBCon

Select Case a

Case "I": ' Get a record to display

tkey = key

strsql = "select banners.* from banners "

dbwhere = " WHERE (banners.Id=" & tkey & ")"

If dbwhere

strsql = strsql & dbwhere

End If

set rs = Server.CreateObject("ADODB.Recordset")

rs.Open strsql, conn

If rs.EOF Then

Response.Clear

Response.Redirect "Banners_list.asp"

Else

rs.MoveFirst

End If

' Get the field contents

x_id = rs("id")

x_AltText = rs("AltText")

x_siteurl = rs("siteurl")

x_banner = rs("bannerURL")

x_forall = rs("forall")

x_world_id = rs("world_id")

x_state_id = rs("state_id")

x_city_id = rs("city_id")

x_internal = rs("internal")

x_external = rs("external")

if x_external then

bannerpath = x_banner

else

bannerpath = BOrelbannerDir & x_banner

end if

rs.Close

Set rs = Nothing

Case "D": ' Delete

' Open record

tkey = key

strsql = "SELECT * FROM Banners WHERE Id=" & tkey

set rs = Server.CreateObject("ADODB.Recordset")

rs.Open strsql, conn, 1, 2

If rs.EOF Then

Response.Clear

Response.Redirect "Banners_list.asp"

Else

If Not isNull(rs("bannerURL")) and (trim(rs("bannerURL")) & "x"

KillFile(BObannerDir & "" & rs("bannerURL"))

End If

rs.delete

rs.close

End If

conn.Close

Set conn = Nothing

Response.Clear

Response.Redirect "Banners_list.asp?ID=Deleted"

End Select

conn.Close

Set conn = Nothing

%>