اود بناء استفتاء بالضغط على الاختيار
<%
Dim mSQL
Dim mRS
key=request("key")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsahwa.mdb"))
if key=1 then
mSQL="update poll set fper=fper+1 where poll_no=2"
elseif key=2 then
mSQL="update poll set sper=sper+1 where poll_no=2"
else
mSQL="update poll set tper=tper+1 where poll_no=2"
end if
Set mRS=oConn.Execute(mSQL)
mRS.close
oConn.Close
Set mRS = Nothing
Set oConn = Nothing
%>
فيظهر هذا الحطأ
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/test/vote.asp
اي الجملة
Set mRS=oConn.Execute(mSQL)
خاطئة