hola
este codigo funcionaba perfentamente pero un dia todos los codigos similares a este ya no funcionaban.Acontionuacion el error y uno de los codigos:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Controlador ODBC Microsoft Access] La operación debe usar una consulta actualizable.
/webpub/encuesta/Encuesta.asp, line 30
codigo:
Dim seleccion,sql
Seleccion=request.form("radiobutton")
Dim conn,rs,uno,dos,tres,total,porcentaje1,porcentaje2 ,porcentaje3
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=C:\Inetpub\webpub\correo.mdb"
conn.Open DSNtemp
'con.Open "correo"
If seleccion="1" then
sql="update encuesta_autos set gol=gol + 1 "
conn.execute(sql)
End if
If seleccion="2" then
sql="update encuesta_autos set clio=clio + 1 "
conn.execute(sql)
End if
If seleccion="3" then
sql="update encuesta_autos set peugeote=peugeote + 1 "
conn.execute(sql)
End if
set rs = Server.CreateObject("ADODB.RecordSet")
sql2="SELECT * FROM encuesta_autos"
rs.Open sql2,conn,3,3
Do While Not rs.EOF
uno=rs("clio")
dos=rs("peugeote")
tres=rs("gol")
rs.MoveNext
loop
total=uno+dos+tres
porcentaje1=(uno*100)/total
porcentaje2=(dos*100)/total
porcentaje3=(tres*100)/total
rs.close
conn.close
