What's wrong with this simple update code?

JGKWORK · May 25, 2004

Can someone please tell me what's wrong with the update code below? The error is: "Object or provider is not capable of performing requested operation"

************

<html>
<head>
<title> msdasql - microsoft excel driver (*.xls) - testing update </title>
<script language=vbscript>

sub goupdate()

set oConn=createobject("ADODB.Connection")

oConn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=H:\Reports CC\folder.mdb;"

sCmd="select * from [Intranet_Counter]"

Set rs = oConn.Execute(sCmd)

Total= rs(0)+1
'document.write(Total)

rs(0) = Total+1
rs.Update

document.write "This page has been visited " & rs(0).value & " times. <p>"

rs.close
set rs=nothing
oConn.close
set oConn=nothing

end sub
</script>
</head>
<body onload="goupdate()">

</body>
</html>

********

Thanks.

onpnt · May 25, 2004

First thing I see wrong is it is running on the client and ASP is run on the server

___________________________________________________________________
_{http://www.onpnt.com
The answer to your ??'s may be closer then you think. faq333-3811

Join the Northern Illinois/Southern Wisconsin members in Forum1064}

JGKWORK · May 25, 2004

ADO should still run these operations though, I have ran the same update to an Excel spreadsheet no problem. ??

Falcon99 · May 27, 2004

Yes but you're trying to run it on the client, not the server.
Try replacing the vb script tags by putting the code between these tags instead:

<HTML> . . .

<%

...vb script code....

%>

. . .
</HTML>

This way the code is performed on IIS before the page is served to the client browser.

JGKWORK · May 28, 2004

Thanks, but managed it with the code below (I am not running IIS or any web server, this is running directly from a network drive and the file is a .htm extension).

<html>
<head>
<title> msdasql - microsoft excel driver (*.xls) - testing update </title>
<script language=vbscript>

sub goupdate()

set oConn=createobject("ADODB.Connection")

oConn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=H:\Reports CC\folder.mdb;"

sCmd="UPDATE Intranet_Counter SET Intranet_Counter.Total_Count = [total_count]+1;"
sCmd2="INSERT INTO tblIntranetAccess (accessedtime) SELECT Now() AS Expr1;"

Set rs = oConn.Execute(sCmd)
Set rs = oConn.Execute(sCmd2)

'document.write "This page has been visited " & rs(0).value & " times. <p>"

'rs.close
set rs=nothing
oConn.close
set oConn=nothing

end sub
</script>
</head>
<body onload="goupdate()">

</body>
</html>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

What's wrong with this simple update code?

JGKWORK

IS-IT--Management

onpnt

Programmer

JGKWORK

IS-IT--Management

Falcon99

Programmer

JGKWORK

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor