Ir para conteúdo
Fórum Script Brasil
  • 0

Alterar e cadastrar varios arquivos


igadino

Pergunta

Pessoal estou com um pequena problema meste codigo, não estou conseguindo alterar os registro que marco no checkbox alguém tem uma luz.

<%
   dim mostra
   dim sql
   dim conn
    on error resume next
    Session.TimeOut = 20
    Set conn = Server.CreateObject("ADODB.CONNECTION")
    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db/banco.mdb")
    ' Conexao que faz a paginação
    Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
mostra="Igreja Evangélica Assembléia de Deus - Ministério da Missão"
SQL = "SELECT * FROM email ORDER BY id DESC"
RS.Open SQL, conn, 3
if not request("id")="" then
    str=request.form("id")
    strq=Split(str,",")
    strListaId = Request.Form("check")
    arrLista   = Split(strListaId,",")
    For i = 0 To Ubound(arrLista)
        strQ.Execute("UPDATE email SET mail = '" &arrLista(i)& "' WHERE id = "&strq&"")
        Set objRS = conn.Execute(strQ)
            Next
else
response.Write("Error")
end if
%>
<html>
<head>
<title><%=mostra%></title>
<body marginwidth="0" marginheight="0" topmargin="0" leftmargin="0" class="tabela01">
<form method="post" action="varios.asp">
<%
while not rs.eof
%>
<input type="text" name="check" value="<%=rs("mail")%>">  <input type="checkbox" name="id" value="<%=rs("id")%>"><br>
<%
rs.movenext
wend
%>
<input type="Submit" value="Alterar">
</form>

</body>
</html>

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...