<%
dim dh
set rs=server.createobject("adodb.recordset")
mysql="select * from dyb where num='"& cstr(request("type"))&"' "
rs.open mysql,conn,3
if not rs.eof then
dh=rs("nr")
end if
rs.close
set rs=nothing
%>
<%
set rs=server.createobject("adodb.recordset")
mysql="select * from newslist where type = '"& request("type") &"' order by id desc"
rs.open mysql,conn,3
if not rs.eof then
%>