TH 

HomeInvestor RelationsProducts&ServicesNews&EventsContact UsSite MapUseful Links
 

<% Set strCon = Server.CreateObject("ADODB.Connection") strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../database/homepage.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM Lastest where DateRec is not null order by DateRec Desc",strCon,1,3 if RS.Eof then response.write("") response.write("äÁ辺¢éÍÁÙÅ") response.write("") else %>
 
<% do while not rs.eof ID = rs.Fields.item("ID") Head = rs.Fields.item("Head") DateRec = rs.Fields.item("DateRec") %> <%rs.movenext loop %>
 
Headlines
Release Date
  
    <%=Head%>   <%=formatdatetime(DateRec,1)%>