<%
bugun=Date()
' döngünün baslayacagi tarihi aliyoruz. Sayisal loto için Cumartesi olmasi gerekiyor
tarih="07/07/2001"
tarih=cDate(tarih)
'bugüne gelene kadar döngüde 7 gün ekleyerek döngü tamamlaniyor
do
tarih=dateAdd ("D" ,7,tarih)
Loop While tarih<bugun
'Çikan tarih bir cumartesi olacagi için 1 hafta çikariyoruz
tarih=DateAdd("D" ,-7,tarih)
tarih=Replace(tarih,"." ,"/" )
yil=Year(tarih)
ay=Month(tarih)
If Len(ay)<2 Then
ay="0" &ay
End If
gun=Day(tarih)
If Len(gun)<2 Then
gun="0" &gun
End If
'tarihi millipiyangonun sitesinde sayisal loto bölümünün alinacagi uzamtiya atamasi için çeviriyoruz
zaman=yil&ay&gun
%>
<%
On Error Resume Next
'Bilgiyi alacagimiz sayfa'nin adresini yaziyoruz.
adres = "http://www.millipiyango.gov.tr/loto/data/" &zaman&".shtml"
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
'XMLHTTP bileseni oldugunu belirtiyoruz
StrHTTP.Open "GET" ,adres, false
StrHTTP.SEnd
'Kodlari degiskene gönderiyoruz
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
bilgi = GETHTTP
'Bilgiyi getirmesini istiyoruz.
'Bilginin baslayacagi kod asagida
haftasi=InStr(1,bilgi,"Hafta" )
' top numaralari teker teker aliniyor
topno1=Mid(bilgi,haftasi+34,2)
topno2=Mid(bilgi,haftasi+64,2)
topno3=Mid(bilgi,haftasi+95,2)
topno4=Mid(bilgi,haftasi+125,2)
topno5=Mid(bilgi,haftasi+156,2)
topno6=Mid(bilgi,haftasi+186,2)
'tarihi yazdirmak için önceki formati geri çeviriyoruz
yil1=Left(zaman,4)
ay1=Mid(zaman,5,2)
gun1=Right(zaman,2)
tarih1=gun1&"." &ay1&"." &yil1
%>
bundan sonraki kod sayisal lotonun yazdirildigi tablo istediginiz gibi degistirebilirsiniz
tarih 1 sayisal loto çekilis tarihi
topno1 - 6 ya kadar top numaralari
top.gif ise koyacaginiz top resmi
<table cellpadding=2 cellspacing=0 width=120 height=15>
<tr>
<td colspan=6 align=center>
<font color="black">Sayisal Loto<br>
<%=tarih1 %></font>
</td>
</tr>
<tr>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno1 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno2 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno3 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno4 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno5 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno6 %> </td>
</tr>
</table>