Smile-net.hk

<% 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

	Archives
	January 30, 2012
	December 29, 2011
	November 29, 2011
	October 31, 2011
	September 30, 2011
	August 29, 2011
	July 29, 2011
	June 27, 2011
	May 16, 2011
	March 24, 2011
	January 10, 2011