os números dos pedidos estão inseridos em uma text field (de nome pedido1) disabled, e em uma text field tipo texto so que hidden(de nome pedido), e a palavra TRANSMITIR, é um botão tipo subimit, tudo isso inserido dentro de uma form, porem as linhas de baixo da tabela são geradas por repetição, do while, então todas as text fields saem com o mesmo nome.O que acontece e que quando a pessoa clica no botão de TRANSMITIR o sistema busca todos os pedidos que tem o status ="Aguardando Transmição", o que preciso é que, quando a pessoa clique no TRANSMITIR da primeira linha, o sistema busque os dados referentes ao pedido da primeira linha (no caso 45) e assim por diante, coloquei o codigo
<!--#include file="conecta.asp"-->
<% on error resume next %>
<%
pedido = request.Form("pedido")
set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&pedido&"'")
corpo = corpo&"<style type=""text/css"">"
corpo = corpo&"<!--"
corpo = corpo&".style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }"
corpo = corpo&".style3 {"
corpo = corpo&" color: #FFFFFF;"
corpo = corpo&" font-family: Verdana, Arial, Helvetica, sans-serif;"
corpo = corpo&" font-weight: bold;"
corpo = corpo&" font-size: 36px;"
corpo = corpo&"}"
corpo = corpo&".style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; }"
corpo = corpo&"-->"
corpo = corpo&"</style>"
corpo = corpo&" <table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
corpo = corpo&" <tr>"
corpo = corpo&" <td height=""135"" bgcolor=""#003466""><div align=""center""><span class=""style3"">ATACADO REGITRONIC </span></div></td>"
corpo = corpo&" </tr>"
corpo = corpo&" <tr>"
corpo = corpo&" <td height=""347""><table width=""100%"" border=""1"" align=""center"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">"
corpo = corpo&" <tr>"
corpo = corpo&" <td width=""13%""><div align=""center"" class=""style2"">CODIGO</div></td>"
corpo = corpo&" <td width=""59%""><div align=""center"" class=""style2"">NOME</div></td>"
corpo = corpo&" <td width=""17%""><div align=""center"" class=""style2"">QUANTIDADE</div></td>"
corpo = corpo&" <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>"
corpo = corpo&" </tr>"
corpo = corpo&" <tr>"
corpo = corpo&" <td>"& do while not rs.eof
corpo = corpo&rs("codigo")
corpo = corpo&" </td>"
corpo = corpo&" <td>"&rs("nome")
corpo = corpo&" </td>"
corpo = corpo&" <td>"&rs("quantidade")
corpo = corpo&" </td>"
corpo = corpo&" <td>"&rs("valor")
corpo = corpo&" </td>"
corpo = corpo&" </tr>"
corpo = corpo&" <tr>"&rs.MoveNext
corpo = corpo& loop
corpo = corpo&" <td> </td>"
corpo = corpo&" <td> </td>"
corpo = corpo&" <td> </td>"
corpo = corpo&" <td> </td>"
corpo = corpo&" </tr>"
corpo = corpo&" </table></td>"
corpo = corpo&" </tr>"
corpo = corpo&" <tr>"
corpo = corpo&" <td height=""19"" bgcolor=""#003466""> </td>"
corpo = corpo&" </tr>"
corpo = corpo&" </table>"
set mail = server.createObject("Persits.MailSender")
mail.from = " mail"
mail.fromname = "nome"
mail.addAddress request.Form("mail")
mail.addAddress "mail"
mail.Subject = "titulo"
Mail.Body = corpo
mail.ishtml = true
On Error Resume Next
mail.send
if Err ><0 then
response.write "Erro, não pode completar a operação"
else
response.redirect("inicial.asp")
end if
set mail = nothing
%>
Pergunta
regitronic
Boa Tarde Pessoal,
Olha so, tenho em uma tela uma tabela assim
PEDIDO Nº l STATUS l
45 l Aguardando Transmição l TRANSMITIR
48 l Aguardando Transmição l TRANSMITIR
51 l Aguardando Transmição l TRANSMITIR
54 l Aguardando Transmição l TRANSMITIR
os números dos pedidos estão inseridos em uma text field (de nome pedido1) disabled, e em uma text field tipo texto so que hidden(de nome pedido), e a palavra TRANSMITIR, é um botão tipo subimit, tudo isso inserido dentro de uma form, porem as linhas de baixo da tabela são geradas por repetição, do while, então todas as text fields saem com o mesmo nome.O que acontece e que quando a pessoa clica no botão de TRANSMITIR o sistema busca todos os pedidos que tem o status ="Aguardando Transmição", o que preciso é que, quando a pessoa clique no TRANSMITIR da primeira linha, o sistema busque os dados referentes ao pedido da primeira linha (no caso 45) e assim por diante, coloquei o codigo
ARQUIVO DE CONEXAO COM O BANCO
<% constr=server.mappath("bd1.mdb") banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}" set conexao=server.createobject("adodb.connection") conexao.open banco %>ARQUIVOS QUE MOSTRA OS PEDIDOS:<!--#include file="conecta.asp"--> <% on error resume next %> <% If IsEmpty(Session("login")) Then Response.redirect("index.asp") End if %> <% set rs = conexao.execute("SELECT * FROM pedidos_arquivados WHERE status='Aguardando Transmição'") %> <style type="text/css"> <!-- .style20 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; } .style21 {font-size: 10px} --> </style> <title>Sistema de Pedidos Regitronic</title><table width="800" height="408" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="1" rowspan="26" bgcolor="#003466"><div align="right"></div></td> <td height="135" colspan="3"><img src="top.jpg" width="800" height="135" /></td> <td width="4" rowspan="26" bgcolor="#003466"> </td> </tr> <tr> <td width="36"><div align="center"></div></td> <td width="725"><div align="center"> <!--#include file="menu.asp"--> </div></td> <td width="39"><div align="center"><a href="logout.asp"></a></div></td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr> <tr> <td height="57" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="23%" class="style20"><div align="center">PEDIDO Nº </div></td> <td width="46%" class="style20"><div align="center">STATUS</div></td> <td width="31%" class="style20"><div align="center">TRANSMITIR</div></td> </tr> <tr> <% do while not rs.eof%> <td colspan="3"><form id="form1" name="form1" method="post" action="body.asp?nome=<% response.Write(request.querystring("nome")) %>"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td width="23%"><div align="center"> <label> <input name="pedidov" type="text" disabled="on" class="style21" id="pedidov" value="<% response.write rs("pedido") %>" size="10" /> </label> <input name="pedido" type="hidden" class="style21" id="pedido" value="<% response.write rs("pedido") %>" size="10" /> </div></td> <td width="46%"><div align="center"> <% response.Write rs("Status") %> </div></td> <td width="31%"><label> <div align="center"> <input name="Submit" type="submit" class="style20" value="Transmitir" /> </div> </label></td> </tr> <% rs.movenext loop %> <tr> <td> </td> <td> </td> <td> </td> </tr> </table> </form> <label></label> <div align="center"></div></td> </tr> </table> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr> <tr> <td height="19" colspan="3" bgcolor="#003466"> </td> </tr> <tr> <td height="19" colspan="3" bgcolor="#003466"> </td> </tr> </table> <% set rs=nothing set rc=nothing%>ARQUIVO QUE ENVIA O E-MAIL:<!--#include file="conecta.asp"--> <% on error resume next %> <% pedido = request.Form("pedido") set rs = conexao.execute("SELECT * FROM pedidos WHERE num_pedido='"&pedido&"'") corpo = corpo&"<style type=""text/css"">" corpo = corpo&"<!--" corpo = corpo&".style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }" corpo = corpo&".style3 {" corpo = corpo&" color: #FFFFFF;" corpo = corpo&" font-family: Verdana, Arial, Helvetica, sans-serif;" corpo = corpo&" font-weight: bold;" corpo = corpo&" font-size: 36px;" corpo = corpo&"}" corpo = corpo&".style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; }" corpo = corpo&"-->" corpo = corpo&"</style>" corpo = corpo&" <table width=""800"" height=""529"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" corpo = corpo&" <tr>" corpo = corpo&" <td height=""135"" bgcolor=""#003466""><div align=""center""><span class=""style3"">ATACADO REGITRONIC </span></div></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td height=""347""><table width=""100%"" border=""1"" align=""center"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"">" corpo = corpo&" <tr>" corpo = corpo&" <td width=""13%""><div align=""center"" class=""style2"">CODIGO</div></td>" corpo = corpo&" <td width=""59%""><div align=""center"" class=""style2"">NOME</div></td>" corpo = corpo&" <td width=""17%""><div align=""center"" class=""style2"">QUANTIDADE</div></td>" corpo = corpo&" <td width=""11%""><div align=""center"" class=""style2"">VALOR</div></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td>"& do while not rs.eof corpo = corpo&rs("codigo") corpo = corpo&" </td>" corpo = corpo&" <td>"&rs("nome") corpo = corpo&" </td>" corpo = corpo&" <td>"&rs("quantidade") corpo = corpo&" </td>" corpo = corpo&" <td>"&rs("valor") corpo = corpo&" </td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>"&rs.MoveNext corpo = corpo& loop corpo = corpo&" <td> </td>" corpo = corpo&" <td> </td>" corpo = corpo&" <td> </td>" corpo = corpo&" <td> </td>" corpo = corpo&" </tr>" corpo = corpo&" </table></td>" corpo = corpo&" </tr>" corpo = corpo&" <tr>" corpo = corpo&" <td height=""19"" bgcolor=""#003466""> </td>" corpo = corpo&" </tr>" corpo = corpo&" </table>" set mail = server.createObject("Persits.MailSender") mail.from = " mail" mail.fromname = "nome" mail.addAddress request.Form("mail") mail.addAddress "mail" mail.Subject = "titulo" Mail.Body = corpo mail.ishtml = true On Error Resume Next mail.send if Err ><0 then response.write "Erro, não pode completar a operação" else response.redirect("inicial.asp") end if set mail = nothing %>Editado por regitronicLink para o comentário
Compartilhar em outros sites
1 resposta 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.