<%
set rs1=server.createobject("adodb.recordset")
sql="select edittime from news order by edittime asc"
rs1.open sql,conn,1,1
dat1=rs1("edittime")
rs1.close
set rs1=nothing
set rs1=server.createobject("adodb.recordset")
sql="select edittime from news order by edittime desc"
rs1.open sql,conn,1,1
dat2=rs1("edittime")
rs1.close
set rs1=nothing
yy1=year(dat1)
yy2=year(dat2)
mm1=month(dat1)
mm2=month(dat2)
yyy = request("yy")
mmm = request("mm")
if yyy<>"" and mmm<>"" then
yymm1 = yyy & "-" &mmm& "-1"
yymm2 = Dateadd("m",1,yymm1)
else
yyy = 1222
mmm = 13
end if
%>
<%
sub summer(dat)
mm=month(dat)
select case mm
case 1
mm="January"
case 2
mm="February"
case 3
mm="March"
case 4
mm="April"
case 5
mm="May"
case 6
mm="June"
case 7
mm="July"
case 8
mm="August"
case 9
mm="September"
case 10
mm="October"
case 11
mm="November"
case 12
mm="December"
end select
dat=mm&" "&day(dat)&", "&year(dat)
response.write dat
end sub
%>
<%
function summerlist(dat)
mm=month(dat)
select case mm
case 1
mm="January"
case 2
mm="February"
case 3
mm="March"
case 4
mm="April"
case 5
mm="May"
case 6
mm="June"
case 7
mm="July"
case 8
mm="August"
case 9
mm="September"
case 10
mm="October"
case 11
mm="November"
case 12
mm="December"
end select
dat=mm&" "&year(dat)
summerlist = dat
end function
%>
Smile-net.hk
