%@ Language=VBScript%>
<%
set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
cn.Open mycnstr
mymenu="default"
myurl="default.asp?tem=1"
keyno=Request.QueryString("keyno")
%>
<%
sql="select top 5 * from news where ppid=4 and cnflag=1 and tjflag=1 order by editdate desc"
rs.Open sql,cn,1,1
do while not rs.EOF
url=trim(rs("url"))
if url="" then url="intro/news/news_details.asp?keyno="&keyno&"&id="&rs("id")
%>
<%
sql="select top 10 * from news where pid=91 order by editdate desc"
rs.Open sql,cn,1,1
do while not rs.EOF
url=trim(rs("url"))
if url="" then url="intro/news/c_details.asp?keyno="&keyno&"&id="&rs("id")
%>