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>
Pergunta
igadino
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
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.