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

We provide a comprehensive range of energy
efficiency solutions

As part of its long-standing commitment to sustainability, Schneider Electric provides a comprehensive range of energy efficiency solutions to its customers.
Our energy experts are committed to delivering solutions that allow you to manage and sustain your energy performance.
Tailored programs include consultancy, project services and products, plus communication and training packages.

>> Click here for more details

>> Company Profile