<!--#include file="Inc/conn.asp"-->

<%dim id
id=request.QueryString("id")%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from CompHonor where id="&id,conn,1,1
%>
<TITLE><%=SiteName%>--<%=SiteTitle%>--<%=trim(rs("explain"))%></TITLE>
<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312"> 
<meta name="keywords" content="<%=SiteName%>,<%=SiteTitle%>£¬<%=trim(rs("explain"))%>">

</head>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0" >
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from CompHonor where id="&id,conn,1,1
%>
<%if trim(rs("CompHonor"))<>"" then
	  response.write "<div align='center'><img onmousewheel='return bbimg(this)' src="&trim(rs("CompHonor"))&" border=0 ></div>"
else
	  response.Write "<img src=img/nopic.jpg width=65 height=96 alt=No Image!>"
end if%>
<div align="center"><BR>
  <%=trim(rs("Enexplain"))%><BR>
</div>
<%
rs.close
set rs=nothing
%>
</body>
</html>
