Resultados

Muchas gracias por participar en nuestra encuesta
<% Id=Request.QueryString("Id") 'Set cn=Server.CreateObject("ADODB.Connection") 'cn.Open Application("dsn_guitarrerias") if Id<>"" then sql="SELECT * FROM Encuestas WHERE Id="&Id else sql="SELECT * FROM Encuestas WHERE Id="&Session("IdEncuesta") end if Set rs=cn.Execute(sql) if rs.eof then response.write("No hay encuestas") else Voto=Request.Form("Votos") response.write("

") Id=rs("Id") R1=rs("Resp1") V1=rs("Total1") R2=rs("Resp2") V2=rs("Total2") R3=rs("Resp3") V3=rs("Total3") R4=rs("Resp4") V4=rs("Total4") R5=rs("Resp5") V5=rs("Total5") actualiza=False Barra="" Barra1="" Barra2="" Barra3="" Barra4="" Barra5="" if Voto<>0 then Mensaje=Session("NombreLargo")&" opina para la encuesta " & rs("Pregunta") & "

" end if if Voto=1 then V1=V1+1 Actualiza=True Mensaje=Mensaje&R1 end if if Voto=2 then V2=V2+1 Actualiza=True Mensaje=Mensaje&R2 end if if Voto=3 then V3=V3+1 Actualiza=True Mensaje=Mensaje&R3 end if if Voto=4 then V4=V4+1 Actualiza=True Mensaje=Mensaje&R4 end if if Voto=5 then V5=V5+1 Actualiza=True Mensaje=Mensaje&R5 end if Mensaje=Mensaje&"

" Total_Personas=V1+V2+V3+V4+V5 B1="" B2="" B3="" B4="" B5="" P1=FormatNumber(V1*100/Total_Personas,2) P2=FormatNumber(V2*100/Total_Personas,2) P3=FormatNumber(V3*100/Total_Personas,2) P4=FormatNumber(V4*100/Total_Personas,2) P5=FormatNumber(V5*100/Total_Personas,2) alcien=75 for n=1 to ((alcien*V1)/Total_Personas) B1=B1&Barra1 next for n=1 to ((alcien*V2)/Total_Personas) B2=B2&Barra2 next for n=1 to ((alcien*V3)/Total_Personas) B3=B3&Barra3 next for n=1 to ((alcien*V4)/Total_Personas) B4=B4&Barra4 next for n=1 to ((alcien*V5)/Total_Personas) B5=B5&Barra5 next Response.Write("") if R1<>"" then Response.Write("") End if if R2<>"" then Response.Write("") End if if R3<>"" then Response.Write("") End if if R4<>"" then Response.Write("") End if if R5<>"" then Response.Write("") End if Response.Write("

"&R1&"	"&B1&" "&P1&"%
"&R2&"	"&B2&" "&P2&"%
"&R3&"	"&B3&" "&P3&"%
"&R4&"	"&B4&" "&P4&"%
"&R5&"	"&B5&" "&P5&"%

") ' Response.Write("

") ' Response.Write(""&Total_Personas&" personas encuestadas") if Session("YaVoto")="" and Actualiza then sql="UPDATE Encuestas SET Total1="&V1&", Total2="&V2&", Total3="&V3&", Total4="&V4&", Total5="&V5&" " sql=sql&"WHERE Id="&Id ' Response.Write(sql) Set rs=cn.Execute(sql) Session("YaVoto")="Ya" ' Mensaje = Mensaje & "

" Mensaje = Mensaje & "IP: " & request.servervariables("REMOTE_ADDR")&"

" Mensaje = Mensaje & "Fecha: "&date()&"

" Mensaje = Mensaje & "Hora: "&time()&"

" Set myMail=CreateObject("CDO.Message") myMail.Subject="Respuesta a la Encuesta en Chapultepec "&now() myMail.From="chapultepec@chapultepec.com.mx" myMail.To=Request.Form("Correo") myMail.Bcc="davidnava@chapultepec.com.mx" myMail.HTMLBody=Mensaje myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing ' Set Mail = CreateObject("CDO.Message") ' Mail.Subject = Session("NombreLargo") & " participó en la encuesta" ' Mail.From = "administrador@flechisa.com" ' Mail.To = "javier@flechisa.com" ' Mail.Bcc = "davidnava@webtopia.com.mx" ' Mail.HTMLBody = mensaje ' Mail.Send ' set Mail = nothing end if ' cn.Close end if %>

[<%= Total_Personas %> personas encuestadas]

Encuestas previamente publicadas:

Te invitamos a que firmes nuestro