<%@ Language=VBScript %> <% Response.Expires = 0 Response.Buffer = True set conn = server.createobject("ADODB.Connection") connect = "Driver=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("db\kajima.mdb") conn.open connect cntSQL = "select max(id) from news" cntDB = conn.Execute(cntSQL) cnt = cntDB(0) %> Welcome to Kajima Overseas Asia










 


<% if cnt <> 0 then if cnt > 5 then For i = cnt to (cnt - 4) Step - 1 SQL = "select * from news where id = " &i newsDB = conn.Execute(SQL) %> <% next else minSQL = "select min(id) from news" minID = conn.execute(minSQL) min = minID(0) For i = cnt to (min) Step - 1 SQL = "select * from news where id = " &i newsDB = conn.Execute(SQL) %><% next end if else %> <% end if %>



Last updated 07/04/2009
 
 

© 2001 Kajima Overseas Asia