problemas pws encuesta sSql

[ivan02]

E tenido probleamas con las encuestas baje una de aspfacil pero no corre me marca un error en sSql pws pue3de soportarlo?

yo crei que era Sql pero no es sSql quisa era un error pero en otro code me marca el mismo problema que puede ser esto?

si alguien sabe donde bajar alguna encuasta que sirva no sean maalos ayudenme

saludos

[urjose]

por que no pones el error q te manda, la linea en que te lo mando, el codigo donde se supone que esta mal...

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]

Gracias te agradesco el codigo es muy grande
es de asp facil.com de la encuesta

&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,