AJUDA COM FORMULARIO

ARNALDOCRUZ 13/08/2009 03:07:55
#319738
Bom dia

galera estou montando um 'formulario que apresenta as parcelas em atraso tipo abaixo


Parcela Vencimento Valor Print
1/12 20/01/2009 60,00 (aqui entrar um botão submit ou radio)
2/12 20/02/2009 60,00 (aqui entrar um botão submit ou radio)

até 12/12

ou somente um botão aqui que capture o value de uma parcela selecionada.


o codigo está assim

<% Do While not rs.eof %>
<table width=[Ô]400[Ô] border=[Ô]0[Ô]>
<tr>
<td width=[Ô]100[Ô] valign=[Ô]top[Ô] height=[Ô]10[Ô] align=[Ô]center[Ô]><%=rs.Fields([Ô]Parcela[Ô])%></td>
<td width=[Ô]100[Ô] valign=[Ô]top[Ô] height=[Ô]10[Ô] align=[Ô]center[Ô]><%=rs.Fields([Ô]Vencimento[Ô])%></td>
<td width=[Ô]100[Ô] valign=[Ô]top[Ô] height=[Ô]10[Ô] align=[Ô]right[Ô] ><%=FormatNumber(rs.Fields([Ô]Valor[Ô]),2)%></td>
<td width=[Ô]100[Ô] valign=[Ô]middle[Ô] align=[Ô]center[Ô]>
<form id=[Ô]form1[Ô] name=[Ô]form1[Ô] method=[Ô]post[Ô] action=[Ô][Ô]>
<label>
<input type=[Ô]Submite[Ô] name=[Ô]IDE[Ô] value=[Ô]<%=rs.Fields([Ô]ID[Ô])%>[Ô]/>
</label>
</form>
</td>
</tr>
< % rs.movenext %>
</table>
<% loop %>

o problema é que o espaço entre uma linha e outra fica enorme, já tentei colocar um botão de radio e somente um botão no final mas continua com o mesmo problema. e também que com o botão de radio o usuario só poderia selecionar uma parcela por mas testei e dá pra marcar todos ai melou a ideia.


Obrigado
JUNIORNET 14/08/2009 17:06:14
#319894 Resposta escolhida
Kra fiz um teste com a tabela Products do Northwind e rolou da uma olhada se é isso que vc precisa

  <body>
<!--#include file=[Ô]AbriConexao.asp[Ô]-->
<%
dim strSql, ObjRs, cor

strSQL = [Ô]Select * from Products[Ô]

set ObjRs  = Server.CreateObject([Ô]ADODB.RECORDSET[Ô])
Set ObjRs = ObjCon.execute(strSQL, NOUT)
%>

<p>Listagem de Produtos.</p>

<%
if ObjRs.eof then
	Response.Write([Ô]Nenhum registro encontrado[Ô])
else
%>
<form id=[Ô]form1[Ô] name=[Ô]form1[Ô] method=[Ô]post[Ô] action=[Ô][Ô]>
<table width=[Ô]100%[Ô] border=[Ô]0[Ô] cellpadding=[Ô]0[Ô] cellspacing=[Ô]0[Ô] bordercolor=[Ô]#999999[Ô] class=[Ô]style10[Ô]>
	  <tr>
		<td width=[Ô]6%[Ô]><div align=[Ô]center[Ô] class=[Ô]style16[Ô]><span class=[Ô]style12[Ô]>Cod. </span></div></td>
		<td width=[Ô]59%[Ô]><div align=[Ô]center[Ô] class=[Ô]style16[Ô]>Descrição</div></td>
		<td width=[Ô]21%[Ô]><div align=[Ô]center[Ô] class=[Ô]style16[Ô]>Categoria</div></td>
		<td width=[Ô]14%[Ô]><div align=[Ô]center[Ô] class=[Ô]style16[Ô]>Print</div></td>
	  </tr>
  <%
  for cont = 1 to 10
  		if cor = [Ô]#999999[Ô] then
			cor = [Ô]#FFFFFF[Ô]
		else
			cor = [Ô]#999999[Ô]
		end if
  
  %>
  <tr bgcolor=[Ô]<%=cor%>[Ô]>
	<td><div align=[Ô]center[Ô] class=[Ô]style17[Ô]><%=ObjRs([Ô]ProductID[Ô])%></div></td>
	<td><div align=[Ô]center[Ô] class=[Ô]style17[Ô]><%=ObjRs([Ô]ProductName[Ô])%></div></td>
	<td><div align=[Ô]center[Ô] class=[Ô]style17[Ô]><%=ObjRs([Ô]CategoryID[Ô])%></div></td>
	<td><div align=[Ô]center[Ô] class=[Ô]style17[Ô]>
	  <label>
	  <input type=[Ô]radio[Ô] name=[Ô]radio[Ô] id=[Ô]radio[Ô] value=[Ô]radio[Ô] />
	  </label>
	</div></td>
  </tr>
  <%ObjRs.movenext
  next
  ObjRs.close
  set ObjRs = nothing
  %>
</table>
</form>
<%ObjCon.close
set ObjCon = nothing
end if
%>


</body>


o arquivo include AbriConexao.asp

  <%
dim ObjCon
set ObjCon = server.CreateObject ([Ô]adodb.connection[Ô])
ObjCon.Open [Ô]DRIVER={Microsoft Access Driver (*.mdb)};DBQ=[Ô] & Server.MapPath([Ô]Modelo.mdb[Ô]) 
%>



Ve se é isso que vc precisa

Qq coisa da um toque

Junior
Tópico encerrado , respostas não são mais permitidas
Voltar