***informação 2 últimos contratos***
Query="Select * from Tabela_plafond Order By ID DESC"
rs.open query, cn
ClienteC=""
ClienteC2=""
do while nor rs,bof
if ClienteC="" then
ClienteC=rs("Cliente")
QContrato=rs("Tipo")
if QContrato=1 then
Contrato="Horas"
else
Contrato="Horas por período"
end if
Horas="Número de Horas:" &" "& rs("Horas")
elseif ClienteC2=""Then
ClienteC2=rs("Cliente")
QContrato2=rs("Tipo")
if QContrato2=1 then
Contrato2="Horas"
else
Contrato2="Horas por período"
end if
Horas2="Número de Horas:" &" "& rs("Horas")
end if
rs.movenext
loop