hacer una encuesta en asp

Codigo de una encuesta con Base de datos ASP Code

Descripcion:Este codigo pone una encuesta en tu web

Lenguaje: ASP

Codigo Fuente

Copiar los codigos y pegar

'---------------inicio.asp-------------
'--- http://www.lawebdelprogramador ---
<table border=1 CELLSPACING=0 CELLPADDING=5 WIDTH=200 bordercolor="#3a6ea5">
<tr>
<td>
<table border=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100%>
<tr>
<td><font face="Arial" size=2>
Crees que el programa Napster está incurriendo en alguna
ley contra el mercado discográfico?
<%
'Abrimos la base de datos
set objBase=server.CreateObject("ADODB.Connection")
set objTabla=server.CreateObject("ADODB.RecordSet")
'Servidor=Dirección de nuestro servidor
'BaseDatos=Nombre de nuestra base de datos
objbase.Open "PROVIDER=SQLOLEDB;DATA SOURCE=Servidor;UID=Usuario;PWD=Password;
DATABASE=BaseDatos"
'Consulta SQL Sobre la tabla Encuesta,
la cual nos devuelve el primer y unico registro.
set objtabla=objbase.Execute("select * from Encuesta")
varsi=clng(objtabla.Fields("e_si"))
varno=clng(objtabla.Fields("e_no"))
'Comprobamos que la IP del usuario sea distinta de la que hay en al base de datos
ipUser=cstr(Request.ServerVariables("REMOTE_ADDR"))
cor=False
if ipuser=objtabla.Fields("ip") then Cor=true
if Request.QueryString("Encuesta")="true" and cor=false then
if Request.QueryString("Valor")="Si" then
'Aumentamos en uno el valor de si, y guardamos la IP en la Tabla
varsi=varsi+1
set objtabla=objbase.Execute("UPDATE Encuesta SET e_si="
& varsi & ",ip='" & ipuser & "'")
end if
if Request.QueryString("Valor")="No" then
'Aumentamos en uno el valor de no, y guardamos la IP en la Tabla
varno=varno+1
set objtabla=objbase.Execute("UPDATE Encuesta SET e_no=" & varno & ",ip='" & ipuser & "'")
end if
end if
objbase.close%>
<center>
<%if Request.QueryString("Valor")="" and cor=false then%>

<form method=GET action="inicio.asp" id=form1 name=form1>
<input type="hidden" name="Encuesta" value="true">
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr>
<td align=center><font face="Arial" size=2>
<input type="radio" name="Valor" Value="Si">Si
<BR><input type="radio" name="Valor" Value="No">No
</td>
<td align=center><font face="Arial" size=2>
<input type="submit" value="Enviar" id=submit1 name=submit1>
</td>
</tr>
</table>
</form>
<%else%>
<font face="Arial" size=2 color="#ff0000"><P><B>GRACIAS por colaborar</B><P></font>
<%end if%>
</center>
<%
'Mostramos el gráfico si ya han participado en la encuesta
if varsi<>0 or varno<>0 then
total=varsi+varno
pos_si=(varsi*100)/total
pos_no=(varno*100)/total
%>
<table border=0 width=100% cellpadding=0 cellspacing=1>
<tr>
<td align=center colspan=3>

<font face="Arial" size=2>Resultado de <%=replace(formatnumber(total,0),",",".")%> usuarios.
</td>
</tr>
<tr>

<td>
<font face="Arial" size=2>SI
</td>
<td>
<%if pos_si>0 then%>
<img src="barra.gif" height=15 width=<%=cint(pos_si)%>>
<%end if%>
</td>
<td align=right>
<font face="Arial" size=2><%=formatnumber(pos_si,2)%>%
</td>
</tr>
<tr>
<td>
<font face="Arial" size=2>NO
</td>
<td>
<%if pos_no>0 then%>
<img src="barra.gif" height=15 width=<%=cint(pos_no)%>>
<%end if%>
</td>
<td align=right>
<font face="Arial" size=2><%=formatnumber(pos_no,2)%>%
</td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>

Codigo Fuente en asp

Codigo Fuente en asp

Codigo Fuente en ASP