<%
Function temizle(trh)
if trh<10 then
trh=Right(trh,1)
end if
temizle=trh
End Function
d_month=Request.QueryString("month")
d_year=Request.QueryString("year")
if d_year="" or d_year<1900 or d_year>2100 then
d_year=Year(date)
end if
if d_month="" then d_month=month(date)
if d_year="" then d_year=year(date)
if d_month>12 then
d_month=1
d_year=d_year+1
end if
if d_month<1 then
d_month=12
d_year=d_year-1
end if
d_day=28
while isdate(d_day&","&d_month&","&d_year)=true
d_day=d_day+1
wend
d_day=d_day-1
%>