<% wMes=request.item("Mes") wAno=request.item("Ano") wAchou="N" if (wMes <> "") then Set Database = Server.CreateObject("ADODB.Connection") Database.Open session("stringconexaobomdesorte") SQL = "SELECT * FROM TICKETS_SORTEADOS WHERE MES = '" & wMES & "' and ANO = " & wANO & " ORDER BY DATA" Set oRs= DataBase.Execute(SQL) if oRs.EOF then wAchou="N" else wAchou="S" if (wSorteio <> "") then wSorteio = oRs("N_TICKET") oRs.MoveNext While NOT oRs.EoF wSorteio = wSorteio & " - " & oRs("N_TICKET") oRs.MoveNext Wend end if end if end if %>
<% if wAchou = "N" then %>

 

Confira os números compostos através do resultado da Loteria Federal do dia:
 

Mês

 :   Ano:
 
<% else %> <% While NOT oRs.EoF %> <% oRs.MoveNext %> <% Wend %>
 

Tickets Sorteados no mês de <%=oRs("MES")%> de <%=oRs("ANO")%>
 

Dia :

 <%=oRs("DIA")%> - <%=oRs("N_TICKET")%>

Voltar
<% end if %>