<%
'┌─  風云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統開發，網站制作，提供高質量的網絡產品、技術和服務！│
'│                                                                 │
'│【版權聲明】                                                     │
'│                                                                 │
'│     本程序版權歸坐看風云所有，未經授權擅自修改、復制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│                                                                 │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
Dim rdsnewyp
Dim sqlnewyp

set rdsnewyp = Server.CreateObject("ADODB.Recordset")
sqlnewyp = "select top 8 MemberKey,CompanyName,jb from Dat_Member where State=0 and  MemberType=2  and  jb=1 order by MemberKey desc"
rdsnewyp.Open sqlnewyp,Conn,1,1
if not rdsnewyp.EOF then
	Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
	do while not rdsnewyp.EOF
		Response.Write "<tr>"& VbCRLF
		Response.Write "<td height=""19"">  <font color=""#FF6600"">&middot;</font><a href=""hy/company.asp?cid="&rdsnewyp("MemberKey")&""" target=""_blank"">"&leftt(rdsnewyp("CompanyName"),19)&"</a></td>"& VbCRLF
		Response.Write "</tr>"& VbCRLF
		rdsnewyp.MoveNext
	loop
	Response.Write "<tr>"& VbCRLF
	Response.Write "<td height=""5""></td>"& VbCRLF
	Response.Write "</tr>"& VbCRLF
	Response.Write "</table>"
end if
rdsnewyp.Close
set rdsnewyp = nothing
%>