<html>
<!--#include file="conn.asp"-->
<% dim sqlstr,rs,rcon
rcon=Trim(Request.QueryString("recno"))
sqlstr="select *from news"
set rs=conn.execute(sqlstr)
for i=0 to rs.fields.count-1
if rcon=Cstr(rs.fields.item("newno")) then
exit for
end if
rs.movenext
next
if rs("newcomment")<>"" then %>
<head>
<title><%= rs("newtitle") %></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#99CCFF" align="center"><strong><%= (rs("newtitle")) %></strong></td>
</tr>
<tr>
<td><% if rs("newpiclink")<>"" then
%><p align="center"><img src="<%= rs("newpiclink") %>"></p>
<% end if %><p align="center"> <font color="#006633"><%= rs("newcomment") %>