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

Multi-disciplinary consultancy in Energy & Environment

BMT Asia Pacific is part of the BMT Group, a leading international multi-disciplinary engineering, science and technology consultancy offering a broad range of services, particularly in the Energy & Environment and Transport & Infrastructure sectors. Customers are served by a network of regional subsidiary companies, and the resources of a global business.

>> www.bmtasiapacific.com