Foros del Web » Programando para Internet » ASP Clásico »

Pws y ADODB

Estas en el tema de Pws y ADODB en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 07/01/2002, 00:55
Avatar de ivan02  
Fecha de Ingreso: diciembre-2001
Mensajes: 449
Antigüedad: 22 años, 5 meses
Puntos: 2
Pws y ADODB

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?
  #2 (permalink)  
Antiguo 07/01/2002, 01:16
Avatar de urjose  
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 22 años, 5 meses
Puntos: 1
Re: Pws y ADODB

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">
  #3 (permalink)  
Antiguo 07/01/2002, 02:22
Avatar de ivan02  
Fecha de Ingreso: diciembre-2001
Mensajes: 449
Antigüedad: 22 años, 5 meses
Puntos: 2
Re: Pws y ADODB

&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=
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:33.