

<head>
<style type="text/css">
<!--
.unnamed1 {
	border-bottom-width: thin;
	border-bottom-style: dotted;
	border-bottom-color: #666666;
}
-->
</style>
</head>

<table width="100%" height="20" border="0" align="center" cellPadding="0" cellSpacing="0">
<%set rs=server.createobject("adodb.recordset")
		rs.open "select Top 8 * from shop_books where tejiabook=1 or shjiatejiabook=1 and info=0 order by bookid desc",conn,1,1
		if rs.recordcount=0 then 
		%>
<tr bgcolor="#CCCCCC">
<%
		else
		while not rs.eof
%>
<td width="35%" height="18">&nbsp;<img src="images/ring01.gif">
  <%  
set rs_shjia=server.createobject("adodb.recordset")
rs_shjia.open "select * from shjia where username='"&rs("shjianame")&"'",conn,1,1
if rs_shjia.recordcount<>"0" then
end if
rs_shjia.close
set rs_shjia=nothing
response.write "<a href=list.asp?id="&rs("bookid")&" ><font color=#BF8B61>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),12)&".."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%>	
  <%rs.movenext%></td>  
<td width="35%" height="18"><img src="images/ring01.gif">&nbsp;<%if rs.eof then%> 
  <%else%><% 
set rs_shjia=server.createobject("adodb.recordset")
rs_shjia.open "select * from shjia where username='"&rs("shjianame")&"'",conn,1,1
if rs_shjia.recordcount<>"0" then
end if
rs_shjia.close
set rs_shjia=nothing
response.write "<a href=list.asp?id="&rs("bookid")&" ><font color=#BF8B61>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),12)&".."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%>
<%   

rs.movenext
end if
%>
</td>
</tr>
<%wend
end if%>
</table>
