Jump to content
Fórum Script Brasil
  • 0

Enquete


Guest henrique dias moreira
 Share

Question

Guest henrique dias moreira

oi pessoal

minha enquete ta tendo um pequeno problema.....

não mudo nada, apenas clico no botao alterar e ela alem de baguncçar tudo não grava mais as outras alteraçoões

antes

o que você acha dela ?

bonita

feia

muito feia

depois

o que você acha dela?

bonita,feia,muito feia

bonita,feia,muito feia

bonita,feia,muito feia

então ????????????

a_per2.asp

 <%

Set bd = Server.CreateObject("ADODB.Connection")
bd.Open Application("arquivo_enquete")

venq = Request.QueryString("enq")

Set bdenq = bd.Execute("SELECT * FROM enquete_pergunta, enquete_respostas "&_	
                    "WHERE enquete_pergunta.ID_enquete = enquete_respostas.ID_enquete "&_
                    "AND  enquete_pergunta.id_enquete = " & venq & " ")
                 
                
%>  	

<%        
If Not bdenq.EOF Then %>
</div>
<p align="center">&nbsp; </p>
<div align=center>

<form method="post" action="a_per3.asp" name="enquete" Onsubmit="return valida(this)">
<p><input type="hidden" value="<%=venq%>" name="enq"></p> 
  <table width="640" border="0" align="center" cellpadding="1" cellspacing="2" class="borda">
    <tr> 
       <td colspan="2" align="left" valign="middle" class="titulotabela"> 
        <div align="center"><strong>Alterar  
            Enquete(s)</strong></div>
    </td>        
    </tr> 
    <tr> 
      <td align="left" valign="middle" width="10%"><strong>Pergunta:</strong></td>
   <td><input type="text" name="pergunta" size="65" maxlength="100" value="<%=bdenq("pergunta")%>"></td>
    </tr>
 <% 
  cont = "1"
	do while not bdenq.eof %>
	<tr><td>Resposta <%=cont%></td><td><input type="text" name="respostas" size="65" maxlength="100" value="<%=bdenq("respostas")%>"></td></tr>
<%
	bdenq.movenext
	cont = cont +1
	loop
%>
a_per3.asp
 <%

  Set bd = Server.CreateObject("ADODB.Connection")
  bd.Open Application("arquivo_enquete")
  
  venq = Request.Form("enq")

  vpergunta = Request.Form("pergunta")
  vrespostas = Request.Form("respostas")

  bd.Execute("UPDATE enquete_pergunta, enquete_respostas SET pergunta = '" & vpergunta & "',  "&_
     " respostas = '" & vrespostas & "' "&_
      "WHERE  enquete_pergunta.id_enquete = " & venq & " "&_
       "AND  enquete_respostas.id_enquete = " & venq & " ")
     
%>
</div>
<p align=center><STRONG>Enquete 
  alterada com sucesso!</STRONG></p>

	<br>
	<p align="center"><hr width="90%" size="1" color="#808080" noshade></p>
	<p align=center>[ <A HREF="a_per.asp" >Alterar outra enquete</A> ] [ <A HREF="../principal.asp">Menu</A> ]
	</p>
<%

então ????

alguém me ajuda ???

t+

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.8k
    • Total Posts
      648.5k
×
×
  • Create New...