من براي اين كار رفتم و بانك اطلاعاتي رو توي ftproot كه تو همون شاخه اي كه wwwroot هستش قرار دادم و پريمزن رايت رو هم (( هم براي ftproot و هم براي زيرشاخه اي كه خودم ساختم )) قرار دادم و كار كرد اما يه نكته
كه به يه جك دسته اول هم هست اينه كه با اين كد كارميكنه كه غير منطقي تريييييييين نكته دنيا محسوب ميشه
چون كه بدون فرا خواني متد .update براي آبجكت ركورد ست كار ميكنه و خيلي هم خوب جواب ميده البته اگه هم فرا خواني كني ايرادي نميگيره
[align=left:1c34bf6039]<%
dim objconn,objrs
dbpath = "C:\Inetpub\ftproot\pgh\db1.mdb"
set objconn = server.createobject("adodb.connection")
objConn.Mode = 3
objconn.connectionstring = "driver={microsoft access driver (*.mdb)};" & "dbq=" & dbpath
objconn.open
set objrs = server.createobject("adodb.recordset")
objrs.open "db1",objconn,adopenkeyset,3,adcmdtable
do while not objrs.eof
c = objrs("c")
response.write("C = " & c)
objrs("c") = c + 1
objrs.update :arrow:
objrs.movenext
loop
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>[/align:1c34bf6039]
كه به يه جك دسته اول هم هست اينه كه با اين كد كارميكنه كه غير منطقي تريييييييين نكته دنيا محسوب ميشه
چون كه بدون فرا خواني متد .update براي آبجكت ركورد ست كار ميكنه و خيلي هم خوب جواب ميده البته اگه هم فرا خواني كني ايرادي نميگيره
[align=left:1c34bf6039]<%
dim objconn,objrs
dbpath = "C:\Inetpub\ftproot\pgh\db1.mdb"
set objconn = server.createobject("adodb.connection")
objConn.Mode = 3
objconn.connectionstring = "driver={microsoft access driver (*.mdb)};" & "dbq=" & dbpath
objconn.open
set objrs = server.createobject("adodb.recordset")
objrs.open "db1",objconn,adopenkeyset,3,adcmdtable
do while not objrs.eof
c = objrs("c")
response.write("C = " & c)
objrs("c") = c + 1
objrs.update :arrow:
objrs.movenext
loop
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
%>[/align:1c34bf6039]