Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 ayuda en el sistema de encuesta
 Foro Bloqueado  Tema Bloqueado


Autor Temas
james_mayor
Starting Member


26 Posts
Mensajes - 20 Jan 2002 :  18:48:27  Ver Perfil  Enviar Email
Hola todos, he estado tratando de poner el sistema de encuesta (de asptutor) pero por alguna razon no funciona. ya se que me han estado ayudando (especialmente Alexis) pero sigo igual. aqui les mando todo el codigo porfavor diganme si algo esta mal.

p.s. mi base de datos es en ingles.

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-**--**-*
mi data base : pcpoll.mdb

---------------------------------------------
tr1 - tr2 .. - r1 - r2 ..- idencuesta- activa
---------------------------------------------
good bad 0 0 1 (con aspa)

---------------------------------------------
pregunta - nopcion - incio - fin
---------------------------------------------
que te parece 3 12/01/2001
mi web page

-*-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
encuesta.asp

<%Set Connae = Server.CreateObject("ADODB.Connection")
Connae.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/trying/Tencuestas.mdb"))

set rse=createobject("ADODB.Recordset")
sqltxt="SELECT * from encuestas where activa=true"
rse.open sqltxt,connae
if not rse.EOF then
%>
<html>

<head>
<body>

<div align="center">
<center>
<table border="1" width="150" bgcolor="#C0C0C0" bordercolor="#0000FF">
<tr>
<td width="100%">
<form method="POST" action="trying/verencuesta.asp" target="_blank">
<table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#0000FF">
<p align="center"><font face="Verdana" size="1" color="#00FFFF"><b><i> Pool of the month </i></b></font></td>
</tr>
<tr>
<td width="100%">
<p align="center"><font face="Verdana" size="1"><b><%=rse("pregunta")%></b></font></td>
</tr>
<%for i = 0 to rse("nopciones")-1 step 1 %>
<tr>
<td width="100%"><input type="radio" value="<%=i%>" name="opcion" checked>
<font face="Verdana" size="1"><%=rse(i)%></font></td>
</tr>
<%next
rse.close%>
</table>
<p align="center">
<input border="0" src="../images/opinar.gif" name="I1" type="image"></p>
</form>
</center>
<p align="center"><a href="trying/historico.asp" target="_blank"><img border="0" src="images/ir.gif" alt="History of pool"></a></p>
</td>
</tr>
</table>
</div>
<%else
rse.close
end if
connae.close
set connae=nothing
%>
</body>
</html>
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
verencuesta.asp

<% @LCID = 1034 %>
<%response.expires=-1000%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/trying/PCpoll.mdb"))


if request.form("opcion")<>"" then


select case true

case request.form("opcion")=0
campo="r1"
case request.form("opcion")=1
campo="r2"
case request.form("opcion")=2
campo="r3"
case request.form("opcion")=3
campo="r4"
end select

sqltxt="update encuestas set "&campo&" = "&campo&"+1 where activa=True"

conn.execute sqltxt
end if
%>

<html>

<head>

<title>Poll of PC</title>
</head>

<body>
<%if request.form("opcion")<>"" then%>
<p align="center"><font color="#FF0000"><b><font face="Verdana" size="1" color="#FF0000">Thank you</font><br>
</b></font><br>

<%end if
dim colores(3)
colores(0)="red"
colores(1)="blue"
colores(2)="green"
colores(3)="black"
tamatabla=400 'tamaño de la tabla

set rs=createobject("ADODB.Recordset")
sqltxt="SELECT * from encuestas where activa=true"
rs.open sqltxt,conn
if not rs.EOF then
%>

<div align="center">
<center>
<table border="1" width="<%=tamatabla%>" bgcolor="#C0C0C0" bordercolor="#0000FF">
<tr>
<td width="<%=tamatabla%>" bgcolor="#0000FF">
<p align="center"><font color="#FFFFFF" face="Verdana" size="1"><b><%=rs("pregunta")%></b></font></td>
</tr>
<tr>
<td width="<%=tamatabla%>">

<table border="0" width="<%=tamatabla%>">
<%totvotos=rs("r1")+rs("r2")+rs("r3")+rs("r4")
if totvotos< 1 then totvotos=1
for i = 0 to rs("nopciones")-1 step 1 %>
<%porcentaje=formatnumber(rs(i+4)*100/totvotos,2)%>
<tr>
<td width="<%=tamatabla*30/100%>" valign="top"><font face="Verdana" size="1"><b><%=rs(i)%></b></font><br>
<font face="Verdana" color="#FFFFFF" size="1"><b><%=porcentaje%>%</b></font></td>

<td width="<%=tamatabla*70/100%>">

<table border="0" width="<%=round(porcentaje)%>%" bgcolor="<%=colores(i)%>">
<tr>
<td width="100%">
</td>
</tr>
</table>
</td>
</tr>
<%next

%>
</table>

</td>
</tr>
<tr>
<td width="300">
<p align="center"><font face="Verdana" size="1"><b>Total de votos: <font color="#FF0000"><%=totvotos%></font> </b></font></p>
</td>
</tr>
<%if rs("inicio")<>"" then%>

<tr>
<td width="300">
<font face="Verdana" size="1">Fecha de inicio: <%=rs("inicio")%></font>
</td>
</tr><%end if%>

<%if rs("fin")<>"" then%>
<tr>
<td width="300">
<font face="Verdana" size="1">Fecha de cierre: <%=formatdatetime(rs("fin"),2)%></font>
</td>
</tr>
<%end if%>
</table>
</center>
</div>
<%rs.close
set conn = nothing
end if%>
<p align="center"><font face="Verdana" size="1"><a href="javascript:close();">Cerrar
ventana</a></font></p>
<p align="center"><font face="Verdana" size="1"><a href="historico.asp"> See polls </a></font></p>

<p align="right"><font face="Verdana" size="1">Sistema de encuestas de <a href="http://www.asptutor.com" target="_blank"><img border="0" src="http://www.asptutor.com/images/asptutor88x31.gif" align="center"></a></font></p>


</body>

</html>


*-*-*-*-*-*-*-*-*-*-*-*-*-


no estoy usando el historico por el momento; no creo que lo necesito para hacer la encuesta (eso creo yo, pero si lo necesito diganme) yo supongo que afecta la primera encuesta.

por favor ayuda

gracias

james

p.s. mi correo es james_mayor@hotmail.com


*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
encuesta.asp


Alexis_m20
Senior Member

Chile
1021 Posts
Posted - 21 Jan 2002 :  13:30:39  Ver perfil  Enviar e-mail  Visit Alexis_m20's Homepage
james te envie el mensaje. con todo correcto

Alexis Mejias
Programador En Computación
Lrogame@hotmail.comInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar