报错,Expected 'End'那位高手帮忙看一下
代码是<!--#include File="include/connect_db.asp"--><!--#include File="include/connect_db_ly.asp"-->
<!--#include virtual="/include/checkQuery.asp"-->
<%
session("url")="index.asp"
%>
<html>
<head>
<title>国别数据</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="life.css" rel="stylesheet" type="text/css">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><iframe width="100%" height="120" src="common/top.htm" frameborder="0" scrolling="no" >网页表头</iframe></TD>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" background="common/images/top_bg2.gif">
<tr>
<td width="600" valign="top">
<%
tt=request.querystring("tt")
country=request("p_coun")
set Rs=server.CreateObject("adodb.recordset")
if country="" then
sqlstr="select top 10 id,标题,国家,信息时间,分类 from 期刊表 where 分类=3 order by 信息时间 desc"
else
sqlstr="select top 10 id,标题,国家,信息时间,分类 from 期刊表 where 分类=3 and 国家='"&country&"' order by 信息时间 desc"
end if
rs.Open sqlstr,conn,1,1
i=1
if rs.eof And rs.bof then
Response.Write ""
else
%>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="582"><div align="center"><a href="new/index.asp"><img src="images/title_01.GIF" width="582" height="31" border="0"></a></div></td>
</tr>
<tr>
<td><table width="168" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"><img src="images/dot.gif" width="1" height="1"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg_txt.gif">
<%
do while not rs.eof
Title=rs("标题")
country=rs("国家")
Idate=rs("信息时间")
id=rs("id")
fenlei=rs("分类")
%>
<tr>
<td width="15" height="22" bgcolor="#FFFFFF"><div align="center"><img src="images/dot_t.gif" width="3" height="3"></div></td>
<td width="102" height="22">[<%=country%>]</td>
<%
dim Rs1
set Rs1=server.CreateObject("adodb.recordset")
sqlstr1="select * from db_news where 期刊编号="&id
//db_news表中的期刊编号与期刊表中的id号相同
Rs1.Open SqlStr1,conn,1,3
news_id=Rs1("news_id")
%>
<td width="389"><a href="new/view.asp?news_id=<%=news_id%>" target="_blank"><%=title%></a>
<font color="#0000FF">
<%
Rs1.close
set Rs1=nothing
%>
<%if (datevalue(now())-Idate)<5 then%>
<img src="images/new0.gif" width="28" height="11" hspace="3" align="absmiddle">
<%end if%>
</font></td>
<td width="62"><font color="#0000FF"><%=Idate%></font></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
<tr bgcolor="#FFFFFF">
<td height="22"> </td>
<td height="22" colspan="3">
<%if i>10 then%>
<div align="right"><a href="new/index.asp">更多>>></a> </div>
<%end if%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
那位高手能帮忙看一下,急用,在线等,谢谢