<%@LANGUAGE="VBSCRIPT"%>
<%
category=trim(request("category"))
flag=trim(request("flag"))
sshy=trim(request("sshy"))
if flag="重点推荐" then
flag1="推荐项目"
else
flag1=flag
end if
set recordset1= Server.CreateObject("ADODB.Recordset")
recordset1.ActiveConnection = MM_cnsinocp_STRING
if sshy="" then
recordset1.Source = "SELECT * FROM project WHERE viewflag='true' AND flag='"&flag1&"' and category='"&category&"' ORDER BY indate desc"
elseif sshy<>"" then
recordset1.Source = "SELECT * FROM project WHERE viewflag='true' AND flag='"&flag1&"' and category='"&category&"' and sshy='"&sshy&"' ORDER BY indate desc"
end if
recordset1.CursorType = 0
recordset1.CursorLocation = 3
recordset1.LockType = 3
recordset1.Open()
recordset1.pagesize=10
cut1(recordset1)
%>
中国中小企业融资网
