|
O
commando est� certo. Acabei de descobrir que o problema est� em um loop que eu
colei abaixo, por um motivo qualquer ele diz que chegou no fim do recordset mas n�o chegou... se eu tiro o
loop e vou colando esse trecho do c�digo que mostra os dalos ele mostra na tela
normal. N�o sei o que est� acontecendo. do while not MyRs.eof
����������������������������������������������� MySQL1="SELECT TERCEMP_NOME FROM KB_TERCEMP WHERE (TERCEMP_KEY
= '"&MyRs(1)&"')" ��� ������������������������������������������� Set
MyRs1=MyConn.Execute(MySQL1) �� �������������������������������������������� Link="<a
href="" class=GramE>?codigo=" & MyRs(0) &
">" & MyRs(2) & "</a>" ����������������������������������������������� Response.Write("<tr>")� ����������������������������������������������� Response.Write("<td width=7 align=center
height=1> </td>") ����������� ����������������������������������� Response.Write("<td align=center height=1>") ����������� ����������� ����������������������� Response.Write("<input type=checkbox name=C
value=") ����������������������� ����������������������� Response.Write(MyRs(0)) ����������������������� ����������������������� Response.Write(">") ����������������������� ����������������������� Response.Write("</td>") ����������������������� ����������������������� Response.Write("<td
align=center height=1><font face=""Verdana""
size=""2"">") ����������������������� ����������������������� Response.Write(Link) ����������������������� ����������������������� Response.Write("</font></td>") ����������������������� ����������������������� Response.Write("<td
align=center height=1><font face=""Verdana"" size=""2"">") ����������������������� ����������������������� Response.Write(MyRs1(0)) ����������������������� ����������������������� Response.Write("</font></td>") ����������������������� ����������������������� Response.Write("<td
align=center height=1><font face=""Verdana""
size=""2"">") ����������������������� ����������������������� Response.Write(MyRs(3)) ����������������������� ����������������������� Response.Write("</font></td>") ����������������������� ����������������������� datadiv= ����������������������� ����������������������� Response.Write("<td
align=center height=1><font face=""Verdana""
size=""2"">") ����������������������� ����������������������� if
datadiv(2)="1900" then ����������������������� ����������������������������������� Response.Write("Indeterminado") ����������������������� ����������������������� else ����������������������� ����������������������������������� Response.Write(MyRs(4)) ����������������������� ����������������������� end
if ����������������������� ����������������������� Response.Write("</font></td>") ����������������������� ����������������������� Response.Write("<td
width=8 height=1 align=center> </td>") ����������������������� ����������������������� MyRs.movenext ����������������������������������������������������������� loop -----Mensagem
original-----
Aviso Legal "Esta mensagem eletr�nica pode conter informa��es privilegiadas e/ou confidenciais, portanto fica o seu receptor notificado de que qualquer dissemina��o, distribui��o ou c�pia n�o autorizada � estritamente proibida. Se voc� entende que recebeu esta mensagem indevidamente ou por engano, por favor informe este fato ao remetente e a apague de seu computador." Disclaimer "This e-mail message may contain legally privileged and/or confidential information, therefore, the recipient is hereby notified that any dissemination, distribution or copying not authorized is strictly prohibited. If you understand that has improperly received this e-mail message or has received it in error, please immediately notify the sender and delete it from your computer." |
