
<%
Dim rdsnewyp
Dim sqlnewyp

set rdsnewyp = Server.CreateObject("ADODB.Recordset")
sqlnewyp = "select top 7 MemberKey,CompanyName,jb from Dat_Member where State=0 and MemberType=2 and jb=1 and CompanyName<>'' 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
%>