Pws y ADODB

[ivan02]

pws puede utilizar adodb? tengo varias paginas como por ejemplo la escuesta de aspfacil.com que no corre, ocupà ado yo crei que era por el codigo que es ta confuso puero en otros codoidgo que ocupa ado tambien tine el problema si me pueden pasar otra encuesta se los agradeseria mucho
este es el cfodigo de la encuesta me marca errores en 4 partes ya revise el codigo muchas veses y la verdad no encuetro el problema ojala puedan ayudarme
pws si soporta adodb?

[urjose]

creo que estas hablando de lo mismo adodb=ado posiblemente haya algun error que no logres distinguir por que no colocas el codigo nos dices en donde te marca el error y tratamos de ayudar

salu2 :)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[ivan02]

&lt;%
' encuesta.asp --- Se encarga de presentar y responder encuestas de bd
'Constante con la encuesta, ¡cambiar para hacerlo aleatorio!
Dim objConn, objrs, sSQL, nombre, id, ID_ENCUESTA
Dim accion

set objConn=Server.CreateObject(&quot;ADODB.Connection &quot;)
set objrs=Server.CreateObject(&quot;ADODB.Recordset&qu ot;)

'Abro la conexión
objConn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;db\interaccion.mdb&quot;)


ID_ENCUESTA=2
id=ID_ENCUESTA
accion=CStr(Request.QueryString(&quot;accion&quot; ))
'Response.Write(id)

select case accion

case &quot;respuesta&quot;
MostrarResultado
case else
MostrarEncuesta id
end select

objrs.Close
set objrs=nothing
objConn.Close
set objConn=nothing

' SUBS&amp;FUNCIONES
'================================================= ======================================
Sub MostrarEncuesta (id)
' Muestra la encuesta 'id' con el titulo y las opciones para votar
Dim titulo, numopciones, I

sSQL=&quot;SELECT * FROM Encuestas WHERE IdEncuesta=&quot;&amp;id&amp;&quot;;&quot;
objrs.Open sSQL, objConn
numopciones=objrs.Fields(&quot;NumOpciones&quot;)
Response.Write(&quot;&lt;center&gt;&lt;b&gt;&quot; )
Response.Write(objrs.Fields(&quot;Nombre&quot;))
Response.Write(&quot;&lt;hr noshade&gt;&quot;)
Response.Write(&quot;&lt;/b&gt;&quot;)
Response.Write(&quot;&lt;FORM NAME=&quot;&quot;Encuesta&quot;&quot; METHOD=&quot;&quot;POST&quot;&quot; ACTION=&quot;&quot;encuesta.asp?accion=respuesta&q uot;&quot;&gt;&quot;)
Response.Write(&quot;&lt;INPUT TYPE=&quot;&quot;hidden&quot;&quot; VALUE=&quot;&amp;id&amp;&quot; NAME=&quot;&quot;Id&quot;&quot;&gt;&quot;)
for I=1 TO numopciones
' Imprime posibilidades
Response.Write(&quot;&lt;center&gt;&quot;)
Response.Write(&quot;&lt;INPUT TYPE=&quot;&quot;radio&quot;&quot; NAME=&quot;&quot;Respuesta&quot;&quot; VALUE=&quot;&quot;&quot;&amp;I&amp;&quot;&quot;&qu ot;&gt;&quot;&amp;objrs.Fields(&quot;Texto&quot;&a mp;I)&amp;&quot; &quot;)
Response.Write(&quot;&lt;/center&gt;&quot;)
next
Response.Write(&quot;&lt;br&gt;&lt;INPUT TYPE=&quot;&quot;submit&quot;&quot; VALUE=&quot;&quot;Votar&quot;&quot;&gt;&quot;)
Response.Write(&quot;&lt;/FORM&gt;&lt;/center&gt;&quot;)

End Sub 'MostrarEncuesta

'================================================= ==============================================
Sub MostrarResultado

Dim voto, encuesta, numopciones, total, I, porcentaje, rojo, azul, amarillo, verde
Dim aColores(4)

rojo=&quot;imagenes/rojo.gif&quot;
azul=&quot;imagenes/azul.gif&quot;
amarillo=