Nenhuma resposta neste tópico

[cesarhtc]

Tenho o codigo abaixo nele existe um link que é para carregar os dados em um formulario de Alteração. Só que esta carregando com o primeiro registro, ou seja.
se clico no ultimo registro ele traz os dados do primeiro.

Poderiam me ajudar?

[]s

' 2) Montar a String Para a Consulta

sql="SELECT * FROM resuitem WHERE ID_EDITAL='" & wchave & "' ORDER BY nu_item "

'response.write sql & "<br>"

'3) Criar o Objeto RecordSet
SET consulta=SERVER.CreateObject("ADODB.RecordSet")

'4) Abrir o RecordSet na Conexão Aplicando a cláusula SQL:
consulta.OPEN sql, conexao


if consulta.EOF then
        'response.write "No momento não a nenhuma licitação"
end if

%>


<p align="center"><font color="#800000" face="Arial" size="2"><b>Itens lançados</b></font></p>

<TABLE align=center rules=all width=100% border="0">
<TR>
   <TD align=center bgcolor=lightyellow><font face= "Trebuchet MS" size= "1" color="#000080">&nbsp;Licitação&nbsp;&nbsp;</font>
   </TD>
   <TD align=center bgcolor=lightyellow><font face= "Trebuchet MS" size= "1" color="#000080">Item</font>
   </TD>
   <TD align=center bgcolor=lightyellow><font face= "Trebuchet MS" size= "1" color="#000080">Objeto</font>
   </TD>
   <TD align=center bgcolor=lightyellow><font face= "Trebuchet MS" size= "1" color="#000080">Empresa</font>
   </TD>
   <TD align=center bgcolor=lightyellow><font face= "Trebuchet MS" size= "1" color="#000080">Valor</font>
   </TD>
   <TD align=center bgcolor=lightyellow><font face= "Trebuchet MS" size= "1" color="#000080">Situação</font>
   </TD>


<%
IF consulta.EOF Then%>

</TABLE>

<TABLE align=center>
  <TR>
     <TD>
     <font face=arial size=2 color=bordo> <B>Até o momento não nenhum resultado</B></font>
     </TD>
  </TR>
</TABLE>

<%        
End IF
%>

<%
do while NOT consulta.EOF
%>


<TR>    
   <TD align=center><font face= "verdana" size= "1" color="#000080">
   <A href="Form_Alterar_Result.asp?SG_UF=<%=consulta("SG_uf")%>&SG_Modalidade=<%=consulta("SG_modalidade")%>&NU_NL=<%=consulta("NU_NL")%>"><U><%=wuf&"-"&wmodal&"-"&wnl%></U></A>
   </TD>
    
 <TD align=center><font face= "verdana" size= "1" color="#000080"><%=consulta("nu_item")%></TD>
 <TD align=justify><font face= "Trebuchet MS" size= "1" color="black"><%=consulta("te_objeto")%></TD>
 <TD align=justify><font face= "verdana" size= "1" color="#000080"><%=consulta("nm_fornecedor")%></TD>
  
   <TD align=right><font face= "verdana" size= "1" color="#000080">R$<%=formatnumber((consulta("vl_valor")),2)%></TD>
  
 <%  Var1=consulta("nm_status")
     
    If Var1="Normal" then
              cor="Blue"
              tamanho="1"
              
    Else
               cor="red" 
               tamanho="1" 
    End if %>

   <TD align=center><font face="verdana" size=<%=tamanho%>  color=<%=cor%>><%=consulta("nm_status")%></font>
   </TD>
 
</TR>  


<%
'Move para o próximo registro
consulta.MOVENEXT     
loop 
%>
</TABLE>

<%
consulta.CLOSE
SET consulta=NOTHING
%>