Duvida Na Enquete

[tsarri]

Galera eu montei uma enquete e nela tem as 4 opções e mais um campo de texto, porque a enquete é assim

Qual produto você quer na loja virtual

Tenis, Camisa, Bolsa e outros, no outros o cliente coloca o que quiser mais eu não estou conseguindo colocar este campo no bd.

<%

'Dimensões variáveis

Dim adoCon    
Dim rsWeeklyPoll  	
Dim strAccessDB  	
Dim strSQL  	
Dim strPollQuestion  
Dim intPollIDNum  
Dim intSelectionLoopCounter	
Dim intVotedIDNo  
Dim blnCheckForPoll  
Dim blnAlreadyVoted	


if request.form("reg") = "yes" then
'get variables from form
	outros = request.form("outros")

  if err = 0 then
  	set dataconn = server.createobject ("ADODB.connection")
  	set rs1 = server.createobject ("ADODB.recordset")
  	dataconn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=\\servidor\g$\desenvolvimentobr_enquete_db.mdb"
  	MYSQL = "SELECT * FROM members WHERE usern = '" & usn & "'"
  	rs1.open MYSQL, dataconn, 1, 3

    	rs1.AddNew
    	rs1.Fields("Outros") = outros

  	rs1.close()
  	dataconn.close()

                 End If
End If


On Error Resume Next

blnCheckForPoll = True
blnAlreadyVoted = False
intPollIDNum = 1


'Inicio da conexao com o banco de dados
strAccessDB = "br_enquete_db"


'Criando a conexão
Set adoCon = Server.CreateObject("ADODB.Connection")
Set rsWeeklyPoll = Server.CreateObject("ADODB.Recordset")

'Abrindo a conexão
adoCon="DRIVER={Microsoft Access Driver (*.mdb)};"

adoCon = adoCon & "DBQ=" & server.mappath(strAccessDB)

'Inicio das variaveis strSQL 
strSQL = "SELECT * FROM br_enquete_dados ORDER By id_no DESC;"

rsWeeklyPoll.Open strSQL, adoCon, 3

If rsWeeklyPoll.EOF Then

	blnCheckForPoll = False	

Else 

	strPollQuestion = rsWeeklyPoll("Question")	
  
	intPollIDNum = CInt(rsWeeklyPoll("id_no"))

	For intReadInVotesLoopCounter = 1 To 7

	intToatalPollVotes = intToatalPollVotes + CInt(rsWeeklyPoll("Votes_" & intReadInVotesLoopCounter & ""))
	Next

	intVotedIDNo = CInt(Request.Cookies("Poll")("PollID"))

	'If intVotedIDNo = intPollIDNum Then blnAlreadyVoted = False

End If
%>

<script  language="JavaScript">
<!-- br_enquete

//Função pop-up
function openWin(theURL,winName,features) {
  	window.open(theURL,winName,features);
}

// -->
</script>
<form method="post" action="br_enquete.asp" target="poll" onSubmit="window.open('', 'poll', 'toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=460,height=400')">
  <table width="200" border="0" cellspacing="0" cellpadding="1" align="center" bgcolor="#eeeeee">
    <tr> 
      <td colspan="2"><font face="Arial, Helvetica, sans-serif" size="2"> 
        <% = strPollQuestion %>
        </font></td>
    </tr>
    <tr> 
      <td> 
        <%
If blnCheckForPoll = True Then

	For intSelectionLoopCounter = 1 To 7

If NOT rsWeeklyPoll("Selection_" & intSelectionLoopCounter) = "" Then

  	If blnAlreadyVoted = False Then  
    
    Response.Write vbCrLf & "	<tr><td><input type=""radio"" name=""PollVote"" value=""Votes_" & intSelectionLoopCounter & """>"
    	
    
    Response.Write vbCrLf & "	<font face=""Arial, Helvetica, sans-serif"" size=""1"">" & rsWeeklyPoll("Selection_" & intSelectionLoopCounter) & "</font></td></tr>"
    

  	Else
  	
    If intToatalPollVotes = 0 Then 
    	dblPollVotePercentage = FormatPercent(0, 0)
    	
    Else
    	
    	dblPollVotePercentage = FormatPercent((rsWeeklyPoll("Votes_" & intSelectionLoopCounter) / intToatalPollVotes), 0)
    End If
    
    
    Response.Write vbCrLf & "        <tr>"
    Response.Write vbCrLf & "          <td colspan=""2""><font face=""Arial, Helvetica, sans-serif"" size=""1"">" & rsWeeklyPoll("Selection_" & intSelectionLoopCounter) & "</font></td>"
    Response.Write vbCrLf & "        </tr>"
    Response.Write vbCrLf & "        <tr>"
    Response.Write vbCrLf & "        <td width=""140""><img src=""barra.gif"" width=""" & dblPollVotePercentage & """ height=""11""></td>"
    Response.Write vbCrLf & "        <td width=""9"" align=""right""><font face=""Arial, Helvetica, sans-serif"" size=""1"">" & dblPollVotePercentage & "</font></td>"
    Response.Write vbCrLf & "        </tr>"
  	
  	End If
  End If
	Next	

rs1.AddNew
    	rs1.Fields("Outros") = outros
  	


	%>



      </td>
    </tr>
    <tr> 
      <td align="center" colspan="2"> 
        <%
        If blnAlreadyVoted = False Then	
        %>



        <input type="text" name="outros" size="20">


<br><br>


<input type="hidden" name="id" value="<% = intPollIDNum %>">
        <input type="submit" value="Votar" name="submit">
        <%
        
        Else
          
  Response.Write vbCrLf & "  <font face=""Arial, Helvetica, sans-serif"" size=""1"">Total de votos: " & intToatalPollVotes & "</font>"
	End If


Else	
	Response.Write vbCrLf & "Não existem enquetes para serem exibidas"
End If	


Set adoCon = Nothing
rsWeeklyPoll.Close
Set rsWeeklyPoll = Nothing 
      
%>


      </td>
    </tr>
    <tr> 
      <td align="center" colspan="2"><a href="JavaScript:openWin('br_enquete.asp?ID=<% = intPollIDNum %>','poll','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=460,height=400')"><font face="Arial, Helvetica, sans-serif" size="1">Ver resultados</font></a></td>
    </tr>

        
  </table>
</form>

[cyberalexxx]

O Script é muito grande, então da uma força:

O que acontence??

Da erro??

onde??

quando??

[tsarri]

Acessa o link ai

enquete

eu quero que o campo outros seja adicionado no banco de dados, o problema é q não ta apareçendo nenhum erro, so q as opinões não vai para o bd, me ajudem,valeu

Editado: Para usar Links, Coloração, e outras coisas mais dentro de Codigos, use a tag QUOTE!

Editado Novembro 9, 2004 por dark0

[dark0]

mais eu não estou conseguindo colocar este campo no bd.

esse campo? qual campo?

Porque não ta conseguindo?