Codigo Fuente en asp

manuales, tutoriales, programacion
programming tutorials, programming manuals
codigo fuente
RegistroNewsletter
Untitled Document
zonas:adsl:area-flash:area-php:area-asp:area-vb:area-photoshop:area-Vfox:area-Soft:area.:Mas
+ de 85.000 registrados
Untitled Document
Secciones: Manuales-Diseño-Trucos-Recursos-Foros/Comunidad-Software-CodigoFuente-comprasN
Añadenos Favoritos
links2
Secciones: Herramientas-Libros-Webmasters/Google-Noticias -Biblioteca-Cursos-MastersN-DirectorioN

Codigo Fuente en asp

manuales, tutoriales, programacion
programming tutorials, programming manuals
Untitled Document

+ Manual de ASP
+ ManualesASP
+ RecursosASP
+ UtilidadesASP
+ ForosASP (N)
+ LibrosASP
+ CodigoASP
+ ArticulosASP
+ Cursos-Masters

-inicio codigo fuente
codigo fuenteCodigo Fuente de
Access
AJAX
AS/400
ASP
C sharp
C/Visual C
Clarion
Clipper/FiveWin
Cobol
Delphi
Ensamblador
Excel
Fortran
FoxPro/Visual FoxPro
HTML
Java
JavaScript
javascript imagenes
javascript-imagenes
Linux/Unix Shell Scripting
Oracle
Pascal/Turbo Pascal
Perl
PHP
Power Builder
Prolog
Python
SQL
TipsANDtricks
Visual Basic
Visual Basic Script
Visual Basic.NET
Visual C++ .NET
Visual CSharp .NET
Windows
Documento sin título
codigo fuenteCodigo Fuente

+Codigo Fuente de:
+ JavaScripts
+ PHP
+ ASP
+ PERL
+ Oracle
+ mySQL
+ Visual Basic
+ Visual Fox Pro
+ AJAX nuevo
+ Bases de datos

codigo fuente Tips
+ Tips&Tricks

codigo fuente JavaScripts de:
+ banners
+ Datos
+ Formularios
+ Imagenes
+ Navegacion
+ textos
+ variados

codigo fuente Hot Scripts
+ Foros
+ Blogs
+ Libro de visitas
+ Listas de correo
+ Noticias -
+ Sistema de Webs
+ Admin de FAQ´s
+ Contadores
+ Estadisticas

+Resto de la Web

+ Pagina de Inicio

+Newsletter
+InscribeteGratis

+Manuales
+Programacion
+DiseñoWeb
+Office/Ofimatica
+S.O.
+Aplicaciones
+Manual.propios

+Trucos
+Ver secc.trucos

+Recursos
+secc.recursos

+Codigo Fuente:
+Todos los script
+ASP
+PHP
+Visual Basic
+JavaScript
+Perl
+Tips&Tricks

+Comunidad
+Foros
+Ganar dinero
+Herramientas
+Libros

+Webmasters
+Webmasters
+ G o o g l e

+Software
+ir a secc. Soft

+AreasExclusivas
+Zona Flash
+Zona PHP
+Zona ASP
+Zona VB
+Zona ADSL
+Zona MAC

+Noticias [N]
+ir a noticias

+DiVX
+Area Divx

+Games/Ocio
+Area Juegos

+Canal Compras
+Compras N

+Directorio [New]
+Ver directorio

Inicio > Inicio Codigo Fuente > Inicio esta seccion > esta pagina

Codigo Fuente en ASP

codigo en ASP para realizar una encuesta
Codigo 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%>
<!--Muestra el formulario para realizar la votación-->
<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>
<!--Mostramos el total de usuarios que han participado en la encuesta en formato español-->
<font face="Arial" size=2>Resultado de <%=replace(formatnumber(total,0),",",".")%> usuarios.
</td>
</tr>
<tr>
<!--Mostramos la gráfica-->
<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>
del.icio.us
ADD BLOGLINES Comenta y vota esta noticia en :
 
votanos en blogmemes
votanos en digg
Añadenos Favoritos - Ver foro relacionado - Registrate gratuitamente
Recomendar
Recomendar esta pagina a un amigo
 
Untitled Document
Documento sin título
Colabora con nosotros envianos tu codigo
Untitled Document
+ Directorio Ofertas
ofertas ADSL
ofertas Tech
ofertas viajes
ofertas finanzas
formacion
OfertasCreditos
  otras ofertas
Canal Compras
+ Canal compras
+canal informatica
+imagen y sonido
+juegos y consolas
+ Directorio Ofertas
secc. empleo
cursos
ir a libros
+ Ganar Dinero
+ Webmasters
+ resto de gente
+ Software
+ ir a software
Lo + descargado
programas para
programas para bajar peliculas
bajar peliculas
programas para bajar musica
bajar musica
programas de seguridad para tu pc
programas google
programas para DJ - mezcladores
programas para webmasters
programas pre-fabricados
+ Tonos y Melodias
Melodias tonos
Juegos java
- Juegos de moviles
+
Busca Logos
+ Logos y Melodias
+ Libros
+ ir a ver los libros
+Recursos CGI
+ ir a seccion
+Ocio
Juegos Flash Online
+Cursos y Masters
cursos y masters
+ Ofertas
ofertas TecNo
+Nuetros Blogs
Ver Blogs
+Programas Gratis
Programas gratis
+RSS de noticias

RSS PR

links programacion
Registrate gratuitamente a nuestra NEWSLETTER y estate al tanto de todas las novedades
Programacion : LWPI Solorecursos I programacion I abcdatos I TrucosTecnicos I servicios gratisI ofertas de ADSLI pueblos 2.0 I
Areas exclusivas: tutoriales I cursos I ofertas I adsl I reproductores dvd I Formación Iwebtutoriales
Otros: SMSarea I tutoriales I DIVXarea I tutoriales I trucos de windows Igooglemania Iofertas I programatium.net I canal compras I
site programatium.com : site1 - site2 - site3 - site4 - site5 - site6 - site7 - site8
manuales Sugiere un manual para esta seccion
who's online
Linkanos
www.programatium.com© 1999 - web esta optimizada para Microsoft explorer 6.0
tutoriales