|
|
 |
|
|
Cuál
es tu artista favorito?
|
|
|
<%
Dim DB_CONNECTIONSTRING
Dim objRecordset
Dim suma, res
'**************************************************
Set fp_conn = Server.CreateObject("ADODB.Connection")
DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../database/encuesta.mdb") & ";"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
fp_conn.Open db_ConnectionString, "", ""
fp_rs.Open "encuestas", fp_conn, 1, 3, 2
strasunto = "Que artista te gustaría que se presentara en Galería de Artistas: " & request.form("comentarios")
'*************************************************
If request.form("Submit") = "Votar" Then
fp_rs.MoveFirst
'fp_rs.Edit
'----------------- E1-----------------------------
if request.form("radiobutton") = "1" Then
fp_rs.Fields("e1") = fp_rs.Fields("e1") + 1
end if
'------------------E2----------------------------
if request.form("radiobutton") = "2" Then
fp_rs.Fields("e2") = fp_rs.Fields("e2") + 1
end if
'------------------E3----------------------------
if request.form("radiobutton") = "3" Then
fp_rs.Fields("e3") = fp_rs.Fields("e3") + 1
end if
'------------------E4----------------------------
if request.form("radiobutton") = "4" Then
fp_rs.Fields("e4") = fp_rs.Fields("e4") + 1
end if
'------------------E5----------------------------
if request.form("radiobutton") = "5" Then
fp_rs.Fields("e5") = fp_rs.Fields("e5") + 1
end if
'------------------------------------------------
'fp_rs.Update
else
if request.form("Submit2") = "Enviar" Then
If strasunto <> " " then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress = "ENCUESTA@encuesta.com"
Mailer.RemoteHost = "pop.psi.net.pa"
Mailer.AddRecipient "Información", "info@stereo89.com"
Mailer.Subject = "Formulario:*** ENCUESTA... ***"
Mailer.BodyText = strasunto
Mailer.DateTime= Now
if Mailer.SendMail then
response.write "Su solicitud a sido aceptada, pronto le complaceremos." & vbCrLf
End if
else
response.write "El campo de comentario no fue llenado correctamente por lo cual su solicitud no fue procesada correctamente, intentelo nuevamente. " & vbCrLf
end if
end if
end if
fp_rs.MoveFirst
suma = fp_rs.Fields("e1") + fp_rs.Fields("e2") + fp_rs.Fields("e3") + fp_rs.Fields("e4") + fp_rs.Fields("e5")
Response.Write " | "
Response.Write "" & "Ricky Martin | "
res = Round (fp_rs.Fields("e1")/suma * 100)
Response.Write "  & ) " & " "
Response.Write "" & res
Response.Write "% | "
Response.Write "| " & "" & "Luis Miguel | "
res = Round (fp_rs.Fields("e2")/suma * 100)
Response.Write " " & " "
Response.Write "" & res
Response.Write "% | "
Response.Write " | " & "" & "Enrique Iglesias | "
res = Round (fp_rs.Fields("e3")/suma * 100)
Response.Write " " & " "
Response.Write "" & res
Response.Write "% | "
Response.Write " | " & "" & "N'sync | "
res = Round (fp_rs.Fields("e4")/suma * 100)
Response.Write " " & " "
Response.Write "" & res
Response.Write "% | "
Response.Write " | " & "" & "Backstreet Boys | "
res = Round (fp_rs.Fields("e5")/suma * 100)
Response.Write " " & " "
Response.Write "" & res
Response.Write "% | "
Response.Write " " & "" & "TOTAL DE VOTOS | "
Response.Write ""
Response.Write "" & suma
Response.Write " | "
Response.Write " "
strasunto = " "
fp_rs.Close
fp_conn.Close
%>
|
| |
|
Haga
click en la imagen para ir a la página web del artista
|
|
|
|
|
|
