
13/05/2008, 12:27
|
| | Fecha de Ingreso: abril-2008
Mensajes: 62
Antigüedad: 17 años Puntos: 1 | |
Re: Realizar Encuesta con ASP otra vez yo !!
ok ya esta la BD y la paginaq muestra las preguntas con sus respectivas opciones de respuesta, ahora la pregunta es...¿como guardo los votos y hago q se vayan sumando?
la BD consta de tres tablas que son
answer,question y votos ya estan debidamente relacionadas
con este codigo estoy mostrando las preguntas
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>Paginación de registros</title>
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
.Estilo2 {font-size: 10px; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<!-- Montamos la sentencia SQL con los campos a seleccionar -->
<%SQLtxt = "SELECT * FROM question" %>
<body>
<form method="POST" name="paginador.asp">
<!-- Creamos el objeto recordset y le asignamos un tipo de cursor
que nos permita movernos por el y asignarle tamaños de pagina -->
<%set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenstatic %>
<!-- abrimos el recordset con la sentencia SQL sobre nuestra base
ODBC y le asignamos el tamaño de página -->
<%rs.Open SQLtxt, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\encuesta.mdb")%>
<center>
<h3> </h3>
</center>
<table border="0" width="100%" bgcolor="#CCFF66">
<tr>
<td width="50%" align="center"> </td>
<td width="50%" align="center"> </td>
</tr>
</table>
<br>
<table width="61%" BORDER="1" align="center" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000">
<tr bgcolor="#FFCC66">
<td width="43%"><div align="center"><strong>Marca solamente una de las Opciones </strong></div></td>
<td width="17%"><div align="center"><strong>Totalmente de acuerdo </strong></div></td>
<td width="16%" align="right"><div align="center"><strong>De acuerdo </strong></div></td>
<td width="24%"><div align="center"><strong>Ni de acuerdo Ni desacuerdo </strong></div></td>
<td width="24%"><div align="center"><strong>En desacuerdo </strong></div></td>
<td width="24%"><div align="center"><strong>Totalmente en desacuerdo </strong></div></td>
</tr>
<!-- montamos el bucle para mostrar los registros -->
<%
contador=0
Do While contador < rs.pagesize and NOT rs.EOF%>
<tr>
<td><div align="center" class="Estilo2">
<div align="left"><%= rs("question")%></div>
</div></td>
<td><label>
<div align="center">
<input name="voto" type="radio" value="1">
</div>
</label></td>
<td align="right"><div align="center">
<input name="voto" type="radio" value="2">
</div></td>
<td align="right"><div align="center">
<input name="voto" type="radio" value="3">
</div></td>
<td align="right"><div align="center">
<input name="voto" type="radio" value="4">
</div></td>
<td align="right"><div align="center">
<input name="voto" type="radio" value="5">
</div></td>
</tr>
<% rs.MoveNext
contador=contador+1
Loop
%>
<%rs.Close%>
</table>
<div align="center">
<center>
<p align="center">
<label>
<input type="submit" name="Submit" value="Enviar">
</label>
</p>
</form>
</body>
</html> |