<% if request.QueryString("type") = "" then ne_type = 1 else ne_type = request.QueryString("type") end if set rs=server.CreateObject("adodb.recordset") sql_cmd = "select * from [news] where [news].ne_type = " & ne_type & " and ne_online = 'y' order by id desc" rs.open sql_cmd,OBJConn,1,1 page = request("page") if page = "" then page = 1 else page = cint(page) end if rs.pagesize = 10 totalpage = rs.PageCount totalnum = rs.recordcount if page < 1 then page = 1 elseif page > totalpage then page = totalpage end if %>

		<% if ne_type = 1 then %> <% else %><% end if %> <% If Not Rs.Eof Then rs.AbsolutePage = page For i = 1 to rs.PageSize if rs("id") = int(request.QueryString("id")) then subject = "" & rs("ne_subject") & "" content = rs("ne_content") else if request.QueryString("id") = "" and i = 1 then subject = "" & rs("ne_subject") & "" content = rs("ne_content") else subject = "" & rs("ne_subject") & "" end if end if %> <%=subject%> <% rs.MoveNext if rs.eof = true then exit for end if next End If %> First | <% if totalpage > 1 then select case page case "1" %> Prev | Next <% case totalpage%> Prev | Next <% case else%> Prev | Next <% end select else %> Prev | Next <% end if %> | Last |         <%=content%>
		(c) Copyright 2007 Motive Power Industry co. ltd. all rights reserved.