怎么少了END - ASP技术论坛

rengangyi

等　级：新手上路
帖　子：22
专家分：0
注　册：2006-8-13

楼主

问题点数：0 回复次数：5

怎么少了END

Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/search.asp, 第 249 行
代码如下:
<style type="text/css">

</style>
<style>
body {SCROLLBAR-FACE-COLOR:#ffffcc;
SCROLLBAR-HIGHLIGHT-COLOR:#cc9999;
SCROLLBAR-SHADOW-COLOR:;
SCROLLBAR-ARROW-COLOR:#000000;
SCROLLBAR-BASE-COLOR:;
SCROLLBAR-DARK-SHADOW-COLOR:}
body {
font-family: "宋体";
font-size:9pt;
background-color:#ffffff;
margin-left:0pt;
margin-top:0pt;
color: #FFFFFF;
}
td,input,select {font-family:宋体;font-size:9pt; color:#000000}

A:link,A:active,A:visited {text-decoration: none; color: #FFFFFF}
A:hover {text-decoration: underline; color:#b40000}

</style>
<link href="listaddd.css" rel="stylesheet" type="text/css">
<table width="783" height="516" border="0" align="center" bgcolor="#663333" >
<tr>
<td width="153" height="320" rowspan="3"align="center" valign="top" scope="row"><img src="pic/profession.jpg" width="153" height="28" />
<div style="width:150;height:560;overflow-x:hidden;overflow-y:scroll">
<script>
//使元素出现横向滚动条
document.write(new Array(20).join(""))
//使元素出现纵向滚动条
document.write(new Array(20).join(""))
</script>
<table width="75%" border="2" bordercolor="#ffffcc" bgcolor="#ffffcc">

<td scope="row">

<table width="130" height="305" align="left" >
<tr>
<th width="81" align="left" valign="top" bgcolor="#663333" scope="row">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from adprofession order by adprofession desc"
rs.open sql,conn,1,1
%>
<table width="130" align="left" bgcolor="#663333">

<%do while not rs.eof%>
<tr align="left" valign="top">
<th width="150" align="center" background="pic/littleprofession.jpg" bgcolor="#FFFFFF" class="style5" scope="row"><a href="view.asp?adprofession=<%=rs("adprofession")%>" class="STYLE6"><font color="#ffffff"><%=rs("adprofessionname")%></font></a></th>
</tr>
<%
rs.movenext
loop
%>
</table> </th>
</tr>
</table></td>

</table>
</div></td>
<td width="620" height="37" valign="top" bgcolor="#663333"><table width="523" height="30" border="0" bgcolor="#790000">
<tr bordercolor="#FFFFFF">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from adinplace order by adinplace asc"
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>

<td width="486" align="center" valign="middle" bordercolor="#FFFFFF" background="pic/place.jpg" bgcolor="#FFFFCC" class="central"><a href="adview.asp?adinplace=<%=rs("adinplace")%>" class="STYLE6"><%=rs("adinplacename")%></a></td>
<%
rs.movenext
loop
%>
</tr>
</table> </td>

</tr>
<tr>
<td align="center" valign="top" bgcolor="#663333" class="y"><table width="100%" border="0" cellspacing="0" cellpadding="8">
<tr>
<td align="center" valign="top"bgcolor="#663333" >
<%
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if%>
<% if keyword="" and adprofession="所有行业" and adinplace="所有地区"then
sql="select * from adtable"
elseif keyword="" and adprofession<>"所有行业" and adinplace="所有地区"then
sql="select * from adtable where adprofessin='"&adprofession&"'"
elseif keyword="" and adprofession="所有行业" and adinplace<>"所有地区"then
sql="select * from adtable where adinplace='"&adinplace&"'"
elseif keyword="" and adprofession<>"所有行业" and adinplace<>"所有地区"then
sql="select * from adtable where adinplace='"&adinplace&"'and adprofession='"&adprofession&"'"
elseif keyword<>"" and adprofession="所有行业" and adinplace="所有地区"then
sql="select * from adtable where adname like '%"&keyword&"%'"
elseif keyword<>"" and adprofession<>"所有行业" and adinplace="所有地区"then
sql="select * from adtable where adname like '%"&keyword&"%' and adprofession='"&adprofession&"'"
elseif keyword<>"" and adprofession="所有行业" and adinplace<>"所有地区"then
sql="select * from adtable where adname like '%"&keyword&"%' and adinplace='"&adinplace&"'"
else if keyword<>"" and adprofession<>"所有行业" and adinplace<>"所有地区"then
sql="select * from adtable where adname like '%"&keyword&"%'and adprofession='"&adprofession&"' and adinplace='"&adinplace&"'"

end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 20
rs.cachesize = 20
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<tr><td align='center'>企业信息正在收集中</tr></td>"
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<20 and NOT rs.EOF
Response.Write"<tr align='center'>"
Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#e9e9e9' border=0 cellpadding=5 cellspacing=0 ><tbody><td>"
if rs("vip")="-1" then
response.write"<a href='viewad.asp?id="&rs("id")&"'target='_blank'><img src='"&rs("pic")&"'width='111' height='65' border='0' ></a>"
else
response.write"<img src='"&rs("pic")&"'width='111' height='65' border='0' >"
end if
Response.Write"</td></tbody></table><br><font color='#ffffff'>"&rs("adname")&"</font></a></td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#e9e9e9' border=0 cellpadding=5 cellspacing=0 ><tbody><td>"
if rs("vip")="-1" then
response.write"<a href='viewad.asp?id="&rs("id")&"'target='_blank'><img src='"&rs("pic")&"'width='111' height='65' border='0' ></a>"
else
response.write"<img src='"&rs("pic")&"'width='111' height='65' border='0' >"
end if
Response.Write"</td></tbody></table><br><font color='#ffffff'>"&rs("adname")&"</font></a></td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

Response.Write"</tr>"
loop
end if
rs.Close
set rs=nothing
Response.Write"</table>"

Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5' class='s' valign='bottom' ><form name='form1' method='get' action='search.asp'><tr><td height='20' align='center'> 每页显示 25 条企业信息共有 "&ipagecount&" 页当前为第 "&ipagecurrent&" 页 "
if ipagecurrent=1 then
Response.Write"首页 | "
else
Response.Write"<a href='view.asp?adinplace="&request.querystring("adinplace")&"&page=1'>首页</a> | "
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='view.asp?adinplace="&request.querystring("adinplace")&"&page="&ipagecurrent-1&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write"<a href='view.asp?adinplace="&request.querystring("adinplace")&"&page="&ipagecurrent+1&"'>下一页</a> "
else
Response.Write"下一页"
end if
if ipagecount>ipagecurrent then
Response.Write"| <a href='view.asp?adinplace="&request.querystring("adinplace")&"&page="&ipagecount&"'>末页</a> "
else
Response.Write"| 末页 "
end if
Response.Write"</td></tr></form></table>" '为249行
%></td>
</tr>
</table>
</td>
</tr>
</table>
高手指点一下!