Problemas para alterar registro

[ju_rezende]

Poessoal estou novamente com um probleminha, não estou conseguindo fazer a alteração no banco de dados.

Podem verificar meu codigo

sql3="select * from " & request.form("Estado") &" where RamoAtividade='" & busca1 & "' and Municipio='" & request.form("cidade") & "' order by RazaoSicial asc"
rs3.Open sql3,con1,3,3

dim contador
dim VarSelecionado
contador=1
rs3.movefirst
do while contador<=request.form("total")-1
VarSelecionado=request.form("selecionado" & contador )
if varselecionado<>"" then

rs3("selecionado")=True
rs3.update
else
rs3("selecionado")=False
rs3.update

end if
contador=contador+1
rs3.movenext 
loop

Grata mais uma vez

[bareta]

qual o erro ou problema?

[ju_rezende]

ele não altera no banco

[Marcio Alves Vieira]

Ola !

Faça o post do formulário que envia os dados.

[ju_rezende]

<table width=100% border=1 cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
    <form action="Email.asp" method="post">
    <tr width=100%><td colspan="7"><h2>Resultado da pesquisa</h2>
        <%dim busca
Server.ScriptTimeout =90000
dim busca1
dim busca2
dim busca3
dim A
busca1=request.form("cidade")
busca2=request.form("estado")
busca3=request.form("Aividade")
set con = server.CreateObject("adodb.connection")
set rs = server.CreateObject ("adodb.recordset")

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db\brasiluxCorreio.mdb") &";Persist Security Info=False"
sql="select * from " & busca2 &" where  RamoAtividade='" & busca3 & "' and Municipio='" & busca1 & "' order by RazaoSicial asc"
'response.write sql 
'response.end
rs.Open sql,con,3,3    

%>
<span class="style3">Cidade</span>:<%=busca1%> <span class="style1"><strong>Estado</strong>:</span><%=busca2%> <span class="style1"><strong>Ramo</strong> <strong>de Atividade</strong>:</span> <%=busca3%> <input type="hidden" name="cidade"value="<%=busca1%>">
<input type="hidden" name="Estado" value="<%=busca2%>">
<input type="hidden" name="RaAtividade" value"<%=busca3%>">
<input type="hidden" name="Cidade1" value="<%=busca3%>"></td>
    </tr>
    <tr width=100%><td colspan="7">
    </td></tr>
    <tr width=100%>
      <td width=265 align="center"><h3>Empresa </h3></td>
      <td width=181 align="center"><h3>Tel</h3> </td>
      <td width=230 align="center"><h3>Email</h3></td>
      <td width=89 align="center"><h3>Selecionar</h3>  </td>    
                 </tr>
    <%dim contador
    contador=1
    if rs.eof=false  then
    do while rs.eof=false %>

    <tr width=100%>
    <td><%=rs("RazaoSicial")%></td>
              
    <td>(<%=rs("DDD")%>) <%=rs("Tel")%></td>
    <td><%=rs("Email")%></td>
    <td><input type="hidden" name="codigo" Value="<%=rs("codigo")%>">
              
    <input type="checkbox" name="selecionado<% = contador%>" id="selecionado" value="01" checked="<%=rs("selecionado")%>" ></td>
    </tr>
    <%contador=contador+1
    rs.movenext
    loop
    end if%>
            
    <tr width=100%><td colspan="7" align="center" valign="middle"><h3>
    <input type="hidden" name="total" value="<%=contador%>">
    <input type="submit" name="cidade2" value="Enviar E-mail"></h3></td>
    </tr>
    </form>
    </table>

pessoal, olhem o que eu descobri, achei o erro mas não consegui solucioná-lo fiz um teste dei um response .write do código e ele está pedando dois, acho que pode ser este o problema

do while contador<=request.form("total")-1
VarSelecionado=request.form("selecionado" & contador )
if varselecionado<>"" then
    rs3("selecionado")=rs3("selecionado")
    rs3.update
    [b]response.write rs3("codigo")[/b]else    [color="#FF00FF"]Aqui ele pega os doi códigos do banco 3 e 4 e não um de cada vez[/color]

    rs3("selecionado")="False"
    rs3.update
        
end if
    contador=contador+1
    rs3.movenext 
loop
rs3.close