I got this script off another page and when I use it on my local PC it works fine..when I upload it
to a hosting service they are using OLEDB.4.0..the original line of code was
Set db = Server.CreateObject("ADODB.Connection"
db.Open "Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=" & strDBPath & ";"
so I changed that to:
Set db = Server.CreateObject("ADODB.Connection"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
now I get an error that says:
Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.
the following is the code that it is refering to..I have marked the line in which IE is saying is causing
that error:
does anyone know how to fix the "updateable query"
<%
mypath=request.servervariables("path_info"
myid=request.querystring("id"
if (myid=""
then myid=0
***THIS LINE IS THE PROBLEM***
db.execute("update menu set menu_count=menu_count+1 where menu_id=" & myid)
' print hierarchy of linked menu titles
sub printlinkedmenus(menuid)
if (menuid >= 0) then
set rsmenu=db.execute("select * from menu where menu_id=" & menuid)
printlinkedmenus(rsmenu("menu_parent"
)
if (menuid > 0) then response.write(" : "
str="<a href=""" & mypath & "?id=" & menuid & """ style=""color:black; text-decoration:none;"" "
str=str & "onMouseOver=""self.status='" & decode(rsmenu("menu_title"
) & "'; return true"" "
str=str & "onMouseOut=""self.status=''; return true"">"
str=str & decode(rsmenu("menu_title"
) & "</a>"
response.write(str)
set rsmenu=nothing
end if
end sub
' print hierarchy of plain text menu titles
sub printmenus(menuid)
if (menuid >= 0) then
set rsmenu=db.execute("select * from menu where menu_id=" & menuid)
printmenus(rsmenu("menu_parent"
)
if (menuid > 0) then response.write(" : "
response.write(decode(rsmenu("menu_title"
))
set rsmenu=nothing
end if
end sub
%>
to a hosting service they are using OLEDB.4.0..the original line of code was
Set db = Server.CreateObject("ADODB.Connection"
db.Open "Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=" & strDBPath & ";"
so I changed that to:
Set db = Server.CreateObject("ADODB.Connection"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
now I get an error that says:
Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.
the following is the code that it is refering to..I have marked the line in which IE is saying is causing
that error:
does anyone know how to fix the "updateable query"
<%
mypath=request.servervariables("path_info"
myid=request.querystring("id"
if (myid=""
***THIS LINE IS THE PROBLEM***
db.execute("update menu set menu_count=menu_count+1 where menu_id=" & myid)
' print hierarchy of linked menu titles
sub printlinkedmenus(menuid)
if (menuid >= 0) then
set rsmenu=db.execute("select * from menu where menu_id=" & menuid)
printlinkedmenus(rsmenu("menu_parent"
if (menuid > 0) then response.write(" : "
str="<a href=""" & mypath & "?id=" & menuid & """ style=""color:black; text-decoration:none;"" "
str=str & "onMouseOver=""self.status='" & decode(rsmenu("menu_title"
str=str & "onMouseOut=""self.status=''; return true"">"
str=str & decode(rsmenu("menu_title"
response.write(str)
set rsmenu=nothing
end if
end sub
' print hierarchy of plain text menu titles
sub printmenus(menuid)
if (menuid >= 0) then
set rsmenu=db.execute("select * from menu where menu_id=" & menuid)
printmenus(rsmenu("menu_parent"
if (menuid > 0) then response.write(" : "
response.write(decode(rsmenu("menu_title"
set rsmenu=nothing
end if
end sub
%>