Como ocultar um checkbox...

[Nando Leads 0]

tenho a seguinte dificuldade!!!!...

 

estou utilizando a seguinte condição:

 

<%			varConta = 0						if varPagar = "Pendente" Then			set rsquery5 = conn.execute("select * from Descontos where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "' and Valor_Total > '" & varConta & "' ")			else			set rsquery5 = conn.execute("select * from Descontos where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "'")						end if						%>	  </tr>	<tr>			  <%			while not rsquery5.eof			%>	  <td><input name="checkbox2" type= "checkbox"   value="<% = rsquery5("Código")%>">			  <%			Response.Write( "Tipo : " &  rsquery5("Tipo_Desconto"))			%></td>	  <td height="25">			  <%			  valor =  rsquery5("Data")			  Response.Write(valor)			  %>	  </td>	  <td><div align="right">Valor:</div></td>	  <td> 			  <%			  valor =  rsquery5("Valor_Total")			  Response.Write(valor )			  %>	  </td>	</tr>

 

se varPagar for = a pendente, faz o select e preenche o checkbox com os valores do BD....

 

minha duvida é:

 

se varPagar for diferente de pedente, ele faz o select e traz os valores da mesma forma, mas ñ mostra o checkbox....

 

 

se puderem me ajudar fici grato...

[jrcardozo 4]

if varPagar = "Pendente" Then%><td><input name="checkbox2" type= "checkbox" value="<% = rsquery5("Código")%>"><%elseresponse.write(rsquery5("Código"))end if

[Nando Leads 0]

Entao agora é só adaptar essa condição ao meu codigo....vou fazer o teste, daquia pouco eu post o codigo ae...

[Nando Leads 0]

jhonathan,ñ consegui, você poder me der um exemplo baseado no code acima agradeço....eu acabei me perdendo no codigo, to comessando na arte de programar.....é que o codigo acima te um loop.....o loop tem que funcionar para os 2 selects, o com checkbox e sem o mesmo...desculpe mas ñ consegui adaptar sua dica a meu codigo...se você puder me ajudar agradesso...

[Nando Leads 0]

aqui esta o code completo do form:

 

varData1 = request("txtDataInicial")

varData1 = cdate(varData1)

varData3 = request("txtDataInicial")

 

dia=day(varData1)

mes=month(varData1)

ano=year(varData1)

 

varData1 = mes & "/" & dia & "/" & ano

 

 

varData2 = request("txtDataFinal")

varData2 = cdate(varData2)

varData4 = request("txtDataFinal")

 

dia=day(varData2)

mes=month(varData2)

ano=year(varData2)

 

varData2 = mes & "/" & dia & "/" & ano

 

'********************************************************************'

varValor = ""

 

set rsquery2 = conn.execute("select * from Comissao where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "' and Data Between #" & varData1 & "# AND #" & varData2 & "# order by Data")

%>

<style type="text/css">

<!--

.style1 {color _linenums:0'><% Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb") varPesquisa = request("txtPesquisa") varPagar = request("txtPagar") '************************FUNÇÃO DATA ERRADA***************************' varData1 = request("txtDataInicial") varData1 = cdate(varData1) varData3 = request("txtDataInicial") dia=day(varData1) mes=month(varData1) ano=year(varData1) varData1 = mes & "/" & dia & "/" & ano varData2 = request("txtDataFinal") varData2 = cdate(varData2) varData4 = request("txtDataFinal") dia=day(varData2) mes=month(varData2) ano=year(varData2) varData2 = mes & "/" & dia & "/" & ano '********************************************************************' varValor = "" set rsquery2 = conn.execute("select * from Comissao where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "' and Data Between #" & varData1 & "# AND #" & varData2 & "# order by Data") %><style type="text/css"><!--.style1 {color: #FF0000}.style3 { color: #000000; font-weight: bold;}.style5 {color: #333333; }.style6 { color: #666666; font-weight: bold;}--></style><script language="JavaScript" type="text/JavaScript">ok=false;function CheckAll() { if(!ok){ for (var i=0;i<document.form1.elements.length;i++) { var x = document.form1.elements; if (x.name == 'checkbox') { x.checked = true; ok=true; } } } else{ for (var i=0;i<document.form1.elements.length;i++) { var x = document.form1.elements; if (x.name == 'checkbox') { x.checked = false; ok=false; } } }}</script> <% varMotorista = Request("txtPesquisa") %><!-- '#include file = "drop_sistema.html" --><title>Extras</title><form name="form1" method="post" action="Relatorio_Desconto.asp?VarMotorista=<% = varMotorista %>"> <h2 align="center">Extras(<span class="style1">Comissões</span>)</h2><table width="531" height="418" border="2" align="center"> <tr> <td width="145"><div align="right"><strong>Nome:</strong></div></td> <td width="99" height="23"><% = rsquery2("Motorista")%></td> <td width="56"><div align="right"><strong>Periodo:</strong></div></td> <td width="201"><% response.write(varData3 & " - Até - " & varData4)%></td> </tr> <tr> <td><div align="right"><strong>Status:</strong></div></td> <td height="23" colspan="3"><% = rsquery2("Status")%></td> </tr> <% set rsquery3 = conn.execute("SELECT SUM (Comissao) as valor_mes from Comissao where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "' and Data Between #" & varData1 & "# AND #" & varData2 & "#") %> <tr> <td height="23" colspan="4"> </td> </tr> <tr> <td height="23" colspan="4"><div align="center" class="style3">Referente á: </div></td> </tr> <tr> <td height="23" colspan="4"><div align="center" class="style3"> <div align="left" class="style5">Serviços Extras: </div> </div></td> </tr> <tr> <td height="23" colspan="4"><input type="checkbox" name="checkbox1" onClick="CheckAll();" > <span class="style6">Marcar Todos </span></td> </tr> <% set rsquery4 = conn.execute("select * from Comissao where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "' and Data Between #" & varData1 & "# AND #" & varData2 & "# order by Data, Ponto_Inicio") while not rsquery4.eof %> <tr> <td height="22" colspan="4"><div align="left"> <input type="checkbox" name="checkbox" value="<% = rsquery4("Código")%>"> <% response.write(rsquery4("Data") & " - " & rsquery4("Empresa") & " - " & rsquery4("Ponto_Inicio") ) %> </div></td> </tr> <% rsquery4.movenext wend %> <tr> <td height="22" colspan="4"> </td> </tr> <tr> <td><div align="right"><strong>Total:</strong></div></td> <% set rsquery5 = conn.execute("select * from Descontos where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "'") %> <td height="23" colspan="3"> <% valor = rsquery3.fields("valor_mes") Response.Write(valor) %> </td> </tr> <tr> <td height="23" colspan="4"> </td> </tr> <tr> <td height="23" colspan="4"><div align="left" class="style5"><strong>Descontos:</strong></div></td> <% varConta = 0 if varPagar = "Pendente" Then set rsquery5 = conn.execute("select * from Descontos where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "' and Valor_Total > '" & varConta & "' ") else set rsquery5 = conn.execute("select * from Descontos where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "'") end if %> </tr> <tr> <% while not rsquery5.eof %> <td><input name="checkbox2" type= "checkbox" value="<% = rsquery5("Código")%>"> <% Response.Write( "Tipo : " & rsquery5("Tipo_Desconto")) %></td> <td height="25"> <% valor = rsquery5("Data") Response.Write(valor) %> </td> <td><div align="right">Valor:</div></td> <td> <% valor = rsquery5("Valor_Total") Response.Write(valor ) %> </td> </tr> <% rsquery5.movenext wend %> <% set rsquery5 = conn.execute("select * from Descontos where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "'") %> <tr> <td height="23" colspan="4"> </td> </tr> <tr> <td><div align="right"><strong>Total:</strong></div></td> <td height="23" colspan="3"> <% set rsquery6 = conn.execute("SELECT SUM (Valor_Total) as Soma_Total from Descontos where Motorista = '" & varPesquisa & "' and Status = '" & varPagar & "'") while not rsquery6.EOF valor = rsquery6.fields("Soma_Total") Response.Write(valor) rsquery6.movenext wend %> </td> </tr> <tr> <td height="23" colspan="4"> </td> </tr> <tr> <td height="22" colspan="4"><input type="submit" name="Submit" value="Descontar" /> <label> </label></td> </tr></table></form> <% Conn.Close %>

[Ted k' 126]

usando o exemplo do jonathandj

 

<%
while not rsquery5.eof

if varPagar = "Pendente" Then
%>
<td><input name="checkbox2" type= "checkbox" value="<% = rsquery5("Código")%>"></td>
<%
else

Response.Write( "Tipo : " & rsquery5("Tipo_Desconto"))
end if
%>
<td height="25">
<%
valor = rsquery5("Data")
Response.Write(valor)

[Nando Leads 0]

Valeu mesmo pela força de vcs...agora sim entendi o codigo, deu certo...até a proxima!!!

[Ted k' 126]

que bom cara, boa programação e veja com detalhe o código para estudar bastante, o IF Else pode te ajudar muito!!!