{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fmodern\fprq6\fcharset134 \'cb\'ce\'cc\'e5;}}
{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\lang2052\f0\fs20 <%@ Language=VBScript%>\par
<%\par
Response.Buffer=true\par
Response.Expires=0\par
%>\par
<!-- #include file="dsn_root.asp" -->\par
<%\par
set cn = Server.CreateObject("ADODB.Connection")\par
cn.Open(mycnstr)\par
set rs = Server.CreateObject("ADODB.Recordset")\par
set rs2 = Server.CreateObject("ADODB.Recordset")\par
\par
if Session("mylogin")<>"1" then\par
\tab sqltext="update syswork set querycount=querycount+1 where code='101'"\par
\tab cn.execute(sqltext)\par
\tab\par
\tab rs.Open "webcount",cn,3,3\par
\tab rs.AddNew\par
\tab rs("ipaddress")=Request.ServerVariables("Remote_HOST")\par
\tab rs("logindate")=now()\par
\tab rs.Update\par
\tab rs.Close\par
\tab\tab\tab\par
\tab mylogin=Session("mylogin")\par
\tab Session("mylogin")="1"\par
else\par
\tab mylogin=Session("mylogin")\tab\par
end if'\par
mymenu="default"\par
%>\par
<!-- #include file="begin.asp" -->\par
\par
<TABLE WIDTH="778" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">\par
  <TR> \par
    <TD WIDTH="486" VALIGN="BOTTOM"> \par
      <TABLE WIDTH="486" BORDER="0" CELLSPACING="0" CELLPADDING="0">\par
        <TR> \par
          <TD><OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" WIDTH="486" HEIGHT="261" id=ShockwaveFlash1>\par
              <PARAM NAME=movie VALUE="intro.swf">\par
              <PARAM NAME=quality VALUE=high>\par
              <EMBED SRC="intro.swf" QUALITY=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" WIDTH="486" HEIGHT="261">\par
              </EMBED> \par
            </OBJECT></TD>\par
        </TR>\par
      </TABLE>\par
    </TD>\par
    <TD WIDTH="292" VALIGN="TOP"><OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" WIDTH="292" HEIGHT="230" id=ShockwaveFlash2>\par
        <PARAM NAME=movie VALUE="intro_right.swf">\par
        <PARAM NAME=quality VALUE=high>\par
        <EMBED SRC="intro_right.swf" QUALITY=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" WIDTH="292" HEIGHT="230">\par
        </EMBED> \par
      </OBJECT> </TD>\par
  </TR>\par
</TABLE>\par
<TABLE WIDTH="778" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER">\par
  <TR VALIGN="TOP"> \par
    <TD WIDTH="365" CLASS="bodytext">\par
\tab\tab\tab   <%\par
\tab\tab\tab   sqltext="select keyno,title from miscell where classcode='101' order by sortnum desc "\par
\tab\tab\tab   rs.Open sqltext,cn,1,1\par
\tab\tab\tab   i=1\par
\tab\tab\tab   for i=1 to 5\par
\tab\tab\tab\tab if not rs.EOF then\tab\tab\tab   \par
\tab\tab\tab   %> \tab\par
\tab\tab\tab\tab\tab <LI CLASS="list"><a href="news.asp?keyno=<%=rs("keyno")%>" target=_blank><%=left(trim(rs("title")),17)%></a></LI>\par
\tab\tab\tab   <%\par
\tab\tab\tab\tab\tab rs.MoveNext\par
\tab\tab\tab\tab else\par
\tab\tab\tab\tab\tab Response.Write("<br>")\par
\tab\tab\tab\tab end if\par
\tab\tab\tab\tab\par
\tab\tab\tab   next\par
\tab\tab\tab   rs.Close\par
\tab\tab\tab   %>\par
        <div align="right"><A HREF="news.asp">\'b8\'fc\'b6\'e0\'d0\'c2\'ce\'c5>></A>    </div>\par
      </TD>\par
    <TD WIDTH="50"><IMG SRC="images/spacer.gif" WIDTH="50" HEIGHT="1"></TD>\par
    <TD WIDTH="363"><A HREF="order.asp"><IMG SRC="images/home_order.gif" WIDTH="233" HEIGHT="81" BORDER="0"></A></TD>\par
  </TR>\par
</TABLE>\par
<!-- #include file="end.asp" -->\par
<!-- #include file="func.asp" -->\par
\par
}
 