<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%  
pageno=Request.QueryString("pageno")
keyno=Request.QueryString("keyno")

set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
myurl="news.asp?x=1"
mymenu="news"
%>
<!-- #include file="begin.asp" --> 
<TABLE WIDTH="778" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <TR VALIGN="TOP"> 
    <TD WIDTH="180"> 
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
        <TR> 
          <TD><IMG SRC="../images/title_inside.gif" WIDTH="180" HEIGHT="32"></TD>
        </TR>
	  </TABLE><BR>
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="0">
        <TR BGCOLOR="#cccccc"> 
          <TD COLSPAN=2 BGCOLOR="#cccccc"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
		<%
		i=1
		sqltext="select keyno,title2 from miscell where classcode='105' and title2<>'' order by sortnum desc"
		rs.Open sqltext,cn,1,1

		listcs=8
		rs.PageSize=listcs
		if pageno="" then 
			pageno=1
		else
			pageno=cint(pageno)	
		end if	
		if rs.PageCount>0 then rs.AbsolutePage=pageno
		
		do while not rs.EOF and i<=listcs
			if keyno="" then keyno=rs(0)
		%>
        <TR VALIGN="TOP">
          <TD CLASS="bodytext" ALIGN="left"><A HREF="news.asp?keyno=<%=rs(0)%>&pageno=<%=pageno%>"><%=trim(rs(1))%></A></TD>
          <%if rs(0)=clng(keyno) then%>
		  <TD BGCOLOR="999999" width=10>·</TD> 
		  <%else%>
		  <TD BGCOLOR="EFEFEF" width=10>·</TD> 
		  <%end if%>
        </TR>
        <TR BGCOLOR="#cccccc"> 
          <TD COLSPAN=2 ALIGN="RIGHT"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
        </TR>
		<%
			i=i+1
			rs.MoveNext
		loop
		%>
      </TABLE>
      <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
		<tr><td height=50 align=right>
      <%if pageno>1 then%>
		<A HREF="<%=myurl%>&pageno=<%=pageno-1%>"><%=Response.Write("<<")%>Previous</A>
	  <%end if%>	
	  &nbsp;&nbsp;
      <%if pageno<rs.PageCount then%>
		<A HREF="<%=myurl%>&pageno=<%=pageno+1%>">Next>></A>
	  <%end if%>	
		</td></tr>
      </TABLE>
    </TD>
    <TD WIDTH="1" BGCOLOR="#9C9A9C"><IMG SRC="../images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>
    <%
	rs.Close
	if keyno<>"" then
		sqltext="select * from miscell where keyno="&keyno
		rs.Open sqltext,cn,1,1
		if not rs.EOF then
			title=trim(rs("title2"))
			content=trim(rs("content2"))
			picflag=rs("picflag")
		end if
		rs.Close
	end if	
    %>
    <TD height=360>
      <P><IMG SRC="../images/english/news_tp.jpg" WIDTH="597" HEIGHT="57"></P>
      <TABLE WIDTH="95%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">
        <TR>
          <TD> 
			<table WIDTH="100%" BORDER="0" CELLSPACING="2" CELLPADDING="0" ALIGN="CENTER">
				<tr><td ALIGN="CENTER" CLASS="title"><FONT COLOR="#003399"><B><%=title%></B></FONT></td></tr>
				<tr><td CLASS="bodytext"><br>
	            <%if picflag="1" then%>
					<center><img src="../admin/pic_displayacc.asp?keyno=<%=keyno%>&code=miscell" border="0"></center><br>
				<%end if%>	
				<%=checkstr(content)%>
				</td></tr>
			</table>
            </TD>
        </TR>
      </TABLE>
      <P>&nbsp;</P>
    </TD>
  </TR>
</TABLE>
<!-- #include file="end.asp" -->
<!-- #include file="func.asp" -->