Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

danicabelo

Exibir somente a ultima entrada do banco de dados

Por , em ASP Clássico

Recommended Posts

danicabelo    0

danicabelo
Postado

Olá, preciso fazer com que este codigo exiba somente as ultimas 2 entradas do banco de dados, porem , ele sempre mostra todas as entradas.

 

Por favor, quem puder me dar uma forcinha ficarei agradecido demais.. passei a noite toda tentando resolver isso e nao consegui.. Muito obrigado!

 

 

 

O código é:

 

 

<% option explicit %><%response.buffer=true %><!--#include file="../includes/config.asp"--><% if not session("pag_mensalidades") then response.redirect("../scripts_cadastros/alunos.asp") %><% dim idid=request.querystring("id")if ((not isnumeric(id)) or id="") then response.redirect("../scripts_cadastros/alunos.asp") dim confinanc, rsalunos, rsmensalidadesset confinanc=server.createobject("adodb.connection")confinanc.open mm_financset rsalunos=server.createobject("adodb.recordset")set rsalunos=confinanc.execute ("select * from alunos where id_aluno="&id)if rsalunos.eof thenrsalunos.closeset rsalunos=nothingconfinanc.closeset confinanc=nothingresponse.redirect("../scripts_cadastros/alunos.asp")end if %><html><head><title><%=mm_title%></title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="../css/style.css" rel="stylesheet" type="text/css"></head><body bgcolor="#2C5170" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="033767" vlink="#993333" alink="033767"><table width="780"  align="center" border="0" cellspacing="0" cellpadding="0">  <tr> 	<td align="left" valign="top"> <table width="780" border="0" cellspacing="0" cellpadding="0">		<tr align="left" valign="top"> 		  <td width="534" bgcolor="#FFFFFF"> <table width="534" border="0" cellspacing="0" cellpadding="0">			  <tr align="left" valign="top"> 				<td width="41"> </td>				<td width="493"> <table width="95%" border="0" cellspacing="0" cellpadding="0">					<tr> 					  <td align="left" valign="top"><img src="../imagens_principal/spacer.gif" width="16" height="8"></td>					</tr>					<tr> 					  <td align="left" valign="top" background="../imagens_principal/welocme_bg.jpg"><img src="../imagens_principal/welocme_bg.jpg" width="5" height="2"></td>					</tr>					<tr> 					  <td align="left" valign="top" ><img src="../imagens_principal/spacer.gif" width="16" height="8"></td>					</tr>					<tr> 					  <td align="center" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">						  <tr> 							<td height="20" class="body"> <div align="center"><strong><%=server.htmlencode(ucase(rsalunos("nome")))%></strong></div></td>						  </tr>						  <tr> 							<td> <% dim mesatual, dataatual, juros, valortotal, valorjuros, cont							set rsmensalidades=server.createobject("adodb.connection")														dim mes_inicio, mes_fim, dia, ano, i							mes_inicio=cint(datepart("m",rsalunos("data_primeira")))							dia=cint(datepart("d", rsalunos("data_primeira")))							ano=datepart("yyyy",rsalunos("data_primeira"))							mes_fim=cint(mes_inicio+cint(rsalunos("quant_parcelas")))-1														mesatual=mes_inicio							dataatual= cdate(formatdatetime(now(),2)) 							for i=1 to 1																												if mesatual>12 then							   mesatual=1							   ano=ano+1							end if							   set rsmensalidades=confinanc.execute ("select * from mensalidades where id_aluno="&id&" order by mensalidades.data_pagto desc" )   							   							  							   if rsmensalidades.eof then%> <%else							   while not rsmensalidades.eof%> <table width="100%" border="0" cellspacing="0" cellpadding="0">								<tr> 								  <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bgcolor="#CDFEA0" class="body">									  <% if session("exec_mensalidades") then %>									  <tr> 										<td colspan="4"><div align="right">[ <strong><a href="valid_exec_mensalidades.asp?id=<%=rsmensalidades("id_mensalidade")%>&id2=<%=id%>" onclick="return confirm('Tem certeza de que deseja excluir este pagamento?');"><font color="#FF0000">X</font></a></strong> 											]</div></td>									  </tr>									  <% end if %>									  <tr> 										<td width="20%"><strong>Vencimento:</strong></td>										<td width="32%"><%=formatdatetime(rsmensalidades("data_vencimento"),2)%></td>										<td width="24%"><strong>Pagamento:</strong></td>										<td width="24%"><%=formatdatetime(rsmensalidades("data_pagto"),2)%></td>									  </tr>									  <tr> 										<td><strong>Tipo de Pgto:</strong></td>										<td><% if rsmensalidades("tipo_pagto")=1 then										response.write server.htmlencode("À vista")										elseif rsmensalidades("tipo_pagto")=2 then										response.write server.htmlencode("Cheque, à vista")										else										response.write server.htmlencode("Cheque, à prazo")										end if%> 										</td>										<td><strong>Valor:</strong></td>										<td><%=server.htmlencode(formatcurrency(rsmensalidades("valor")))%></td>									  </tr>									  <tr> 										<td colspan="2" rowspan="3"><% if rsmensalidades("tipo_pagto")=2 or rsmensalidades("tipo_pagto")=3 then%> <table width="100%" border="0" cellpadding="0" cellspacing="2" class="body">											<tr> 											  <td>Data:</td>											  <td><%=formatdatetime(rsmensalidades("data_cheque"),2)%></td>											</tr>											<tr> 											  <td width="32%">Emitente:</td>											  <td width="68%"><%=server.htmlencode(rsmensalidades("emitente"))%></td>											</tr>											<tr> 											  <td>Banco:</td>											  <td><%=server.htmlencode(rsmensalidades("banco"))%></td>											</tr>											<tr> 											  <td>Cheque:</td>											  <td><%=server.htmlencode(rsmensalidades("cheque"))%></td>											</tr>											<tr> 											  <td>Telefone:</td>											  <td><%=server.htmlencode(rsmensalidades("telefone"))%></td>											</tr>										  </table>										  <%else%>   <%end if%></td>										<td><strong>Juros:</strong></td>										<td><%										juros=0																			valorjuros=0										if rsmensalidades("data_pagto")>rsmensalidades("data_vencimento") and rsmensalidades("juros")<>0 then													juros=cint(datediff("d", rsmensalidades("data_vencimento"), rsmensalidades("data_pagto")))*rsmensalidades("juros")										valorjuros=((rsmensalidades("valor")*juros)/100)																														end if%> 										  <%=formatcurrency(valorjuros)%> (<%=juros%>%)</td>									  </tr>									  <tr> 										<td><strong>Desconto:</strong></td>										<td><%=server.htmlencode(formatcurrency(rsmensalidades("desconto")))%></td>									  </tr>									  <tr> 										<td><strong>Total:</strong></td>										<td><%=server.htmlencode(formatcurrency((rsmensalidades("valor")+valorjuros)-rsmensalidades("desconto")))%></td>									  </tr>									  <tr> 										<td colspan="4"><div align="center">[ 											<a href="../scripts_relatorios/recibo_mensalidade.asp?id=<%=rsmensalidades("id_mensalidade")%>" target="_blank">Emitir 											Recibo</a> ] </div></td>									  </tr>									</table></td>								</tr>								<tr> 								  <td> </td>								</tr>							  </table>							  <%rsmensalidades.movenext							   wend							   end if							   rsmensalidades.close%> 							  <% mesatual=mesatual+1							next %> </td>						  </tr>						</table></td>					</tr>				  </table></td>			  </tr>			</table></td>		  <td width="246" background="../imagens_principal/table_02_bg.jpg">  </td>		</tr>	  </table></td>  </tr></table><%rsalunos.closeset rsalunos=nothingconfinanc.closeset confinanc=nothing%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você tem dois select, não sei de qual se trata.

 

Mas em todo caso é só usar TOP e ordenar ao contrário.

Por exemplo:

"SELECT TOP 2 * FROM alunos WHERE id_aluno="&id&" ORDER BY id_aluno DESC"

Compartilhar este post

Link para o post
Compartilhar em outros sites

danicabelo    0

danicabelo
Postado

Você tem dois select, não sei de qual se trata.Mas em todo caso é só usar TOP e ordenar ao contrário.Por exemplo:

"SELECT TOP 2 * FROM alunos WHERE id_aluno="&id&" ORDER BY id_aluno DESC"
Opa Argon, o select é este 
select TOP 2 * from mensalidades where id_aluno="&id&" order by mensalidades.data_pagto desc
Porem utilizei o TOP 2 como voc~e falou mas mesmo assim continua exibindo tudo :(O que será que pode estar errado? :(

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito