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
%>