مشكل بزرگ با ASP

[purya]

یه بانک دارم که میخوام آپد یتش کنم اما این ایراد رو میگیره

www.onlinenice.com/cunter.asp

اين هم كدش :

[align=left:f22bbf0824]

<!--#include virtual="/adovbs.inc"-->
<%
dim dbpatch,bojconn,objrs
     
     dbpatch = server.mappath("db/db.mdb")
     
     set objconn = server.createobject("ADODB.connection")
         objconn.connectionstring = "Driver={microsoft access driver (*.mdb)};" & "DBQ=" & dbpatch
         objconn.open
         
     set objrs = server.createobject("ADODB.recordset")    
         objrs.open "cunter",objconn,adopenkeyset,adLockOptimistic,adcmdtable
         
     do while not objrs.eof
        
        icunt = objrs("cunter")
        
        objrs.movenext
        
     loop
     
     response.write "Value For cunter : " & icunt & "<br><hr>"
     
     objrs.movefirst
     
     do while not objrs.eof
        objrs("cunter") = 3
        objrs.update
        objrs.movenext
     loop
   
     objrs.movefirst
  
     do while not objrs.eof
        
        icunt2 = objrs("cunter")
        objrs.movenext
        
     loop
     
     response.write "Value For cunter2 : " & icunt2 & "<br><hr>"


        objrs.close
     set objrs = nothing
        
        objconn.close
     set objconn = nothing

%>
اين هم بانكش

[url]http://www.onlinenice.com/db/db.mdb[/url]

[/align:f22bbf0824]

اگه ميتونين جواب بدين تا آخر عمر دعاتون ميكنم

 

[nima_isp]

سلام هم شهري
بابا جون من اولا چرا از روي كتاب مينويسي
دوما- كد خطاي برنامه شما كجا هست
سوما ايراد <!--#include virtual="/adovbs.inc"-->
به اين بر ميگرده
چهارما من توي سپيدارم كاري داشتي تلفن بزن در خدمتم