Sistema de encuestas con ASP

Lo basamos en una bd que contendrá la pregunta y las posibles respuestas a estas, esto nos evitar tocar el código html cada vez que variemos la encuesta. Mantendremos un registro por cada encuesta y un campo en dicho registro indicara cual es la encuesta activa en ese momento.

La estructura de la tabla encuestas en la BD Tencuestas es :

Nuestra aplicación consta de 2 módulos principales( encuesta.asp y verencuesta.asp) mas un modulo de visualización de todas las encuestas (historico.asp).

Además he incluido el código de 2 módulos de mantenimiento, que nos servirán para incluir nuevas encuestas desde la web (crearencuesta.htm y crearencuesta.asp). El uso de estos módulos implica la creación en la bd de una nueva tabla para el almacenamiento de la clave de creación de encuestas.

Estructura de la tabla clave en la BD Tencuestas

Para mostrar la encuesta en una página lo haremos con un include

#include file="encuesta.asp"

Lo que nos permite mostrar la encuesta en cualquier página con solo una línea de código. el aspecto seria el que podeis ver en la página principal de www.asptutor.com

Módulos básicos del sistema

encuesta.asp

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

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

<div align="center">
<center>
<table border="1" width="150" bgcolor="#C0C0C0" bordercolor="#0000FF">
<tr>
<td width="100%">
<form method="POST" action="encuestas/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>Encuesta
del mes</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="encuestas/historico.asp" target="_blank"><img border="0" src="images/ir.gif" alt="Historico de encuestas"></a></p>
</td>
</tr>
</table>
</div>
<%else
rse.close
end if
connae.close
set connae=nothing
%>

Usuarios que han visto este tema también han visto...

- Interactuar con secuencias de comandos del cliente
- ASP Email
- Configuración de ISS (Internet Information Server, Server de ASP)
- Borrar un registro ASP
- Lector de RSS con ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento