Dúvida Em Form De Enquete

[Dee Dee Frehley]

Tenho um bd de enquete com uma única tabela de campos:

-IP

-Selection1

-Selection2

-Selection3

-Selection4

-Date

-Nome

-Email

O form da enquete e o resultado, ambos se encontram no mesmo arquivo...

cá está o código

<%
'Two varibles are passed into the db
'u_input is the value if the user entered a response to
'the vote/poll question....IP is the address of the user
dim strdados, rsdados, varemail, varnome
[COLOR=orange]varnome = request.form("txtnome")
varemail = request.Form("txtemail")[/COLOR]
u_input=request.form("u_input")
u_ip=request.servervariables("remote_addr")

' if the user did not enter anything in the poll on this visit
' then display the poll question and possible choices
if u_input = "" then
%>

<form method="post" action="<%= request.servervariables("script_name") %>">
  <p><font face="arial" size="2" color="#006699"><b>O melhor programa de férias 
    de Julho é:</b></font><br>
    <input type="radio"  border="2"value="1" name="u_input">
    <font face="arial" size="1" color="#006699">Comer alfajorres em Buenos Aires 
    com<br>
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;a camisa da Seleção Brasileira </font><br>
    <input type="radio" value="2" name="u_input" >
    <font face="arial" size="1" color="#006699">Contrabandear chocolate e pé-de-moleque <br>    
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(sobra de Festa Junina) para um Spa modernoso</font><br>
    <input type="radio" value="3" name="u_input" checked>
    <font face="arial" size="1" color="#006699">Passear em Ilhabela sem cartão de crédito,<br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sem lancha e sem repelente de borrachudo </font><br>
    <input type="radio" value="4" name="u_input">
    <font face="arial" size="1" color="#006699">Andar de teleférico o dia inteiro, sem esquiar,<br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; em Bariloche com o agasalho do São Paulo F.C. </font><br>
    <font face="arial" size="2" color="#006699">Nome: </font>
    <input type="text" name="txtnome">
    <br>
    <font face="arial" size="2" color="#006699">E-Mail: </font>
    <input type="text" name="txtemail">
    <br>
    <input type="submit" value="Submit" style="background: 006699; font: Arial; color: White" >
  </p>
</form>


<font color="#006699" size="3" face="arial"> <strong> 
<%
else
' Se o usuário escolheu uma opção na enquete
' checa se seu IP já está no DB
accessdb="votes_db" 
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
set rs = server.createobject("ADODB.Recordset")
sql = "select ip from ballot where ip ='" & u_ip & "'"

strdados = "INSERT into Ballot "
strdados = strdados & "(Nome, Email) "
strdados = strdados & "VALUES ('" & varnome & "',"
strdados = strdados & "'" & varemail & "')"
set rsdados = cn.execute(strdados)

rs.Open sql, cn
if rs.eof then
' if the user has not voted previously indicate it
been_here_before="No"
end if
rs.close

if been_here_before = "No" then
' Since the user has not voted previously their input
' their vote will be added to the db

sql = "insert into ballot (ip, selection" & u_input &") "
sql = sql & "values ('" & u_ip & "',1)"
rs.Open sql, cn
end if

'This will summerize and count the records in the db
sql= "select distinctrow sum(selection1) as sum_selection1, " 
sql= sql & "sum(selection2) AS sum_selection2, sum(selection3) AS sum_selection3, "
sql= sql & "sum(selection4) AS sum_selection4, count(*) AS total_votes "
sql= sql & "FROM ballot;"
rs.Open sql, cn
total1=rs ("sum_selection1")
total2=rs ("sum_selection2")
total3=rs ("sum_selection3")
total4=rs ("sum_selection4")
count=rs ("total_votes")
%>
<font face="arial" color="#006699" size="3"><b>Resultado Parcial</b></font></strong></font><br>
<font face="arial" size="2" color="#006699"><b>O melhor programa de férias 
    de Julho é:</b></font><br><br>
<font size="1" face="arial" color="#006699"><b><%= formatnumber((total1/count)*100,1) %>%</b><img src="images/red.jpg" height="10" width="<%= (total1/count)*100 %>"> 
Comer alfajorres em Buenos Aires com <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a camisa da Seleção Brasileira </font><br><br>

<font size="1" face="arial" color="#006699"><b><%= formatnumber((total2/count)*100,1) %>%</b><img src="images/yellow.jpg" height="10" width="<%= (total2/count)*100 %>">
Contrabandear chocolate e pé-de-moleque<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (sobra de Festa Junina) para um Spa modernoso</font><br><br>

<font size="1" face="arial" color="#006699"><b><%= formatnumber((total3/count)*100,1) %>%</b><img src="images/green.jpg" height="10" width="<%= (total3/count)*100 %>"> 
Passear em Ilhabela sem cartão de crédito,<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sem lancha e sem repelente de borrachudo </font><br><br>

<font size="1" face="arial" color="#006699"><b><%= formatnumber((total4/count)*100,1) %>%</b><img src="images/blue.jpg" height="10" width="<%= (total4/count)*100 %>"> 
Andar de teleférico o dia inteiro, sem esquiar,<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; em Bariloche com o agasalho do São Paulo F.C. </font><br>
<br>
<font size="1" face="arial" color="#006699"><strong><b>
<% if been_here_before <> "No" then %>
Voc&ecirc; j&aacute; votou e esse seu voto n&atilde;o foi contado 
<% else %>
Obrigado por votar 
<% end if %>
<br>
Seu IP &eacute; <%= u_ip %> 
<% end if %>
</b></strong></font>

Preciso de ajuda no insert nessa parte, pra inserir email e nome

sql = "insert into ballot (ip, selection" & u_input &") "

sql = sql & "values ('" & u_ip & "',1)"

rs.Open sql, cn

end if

[ViniciusJau]

ballot é o nome da tabela ?

porqeu você colocou uma variavel no nome do campo ?

[Dee Dee Frehley]

A idéia é ele buscar no form os campos nome e email (armazenados respectivamente em varnome e varemail) através do request.form

e inserir no bd ...

eu tentei mudar pra isso:

sql = "insert into ballot (ip, selection" & u_input &") "

sql = sql & "values ('" & u_ip & "',"

sql = sql & "1" & ","

sql = sql & "'" & varnome & "',"

sql = sql & "'" & varemail & "')"

rs.Open sql, cn

end if

só que não deu certo...

[Dee Dee Frehley]

ballot é o nome da tabela