asp代码问题，请教高手

网站首页友情链接代码提示如下错误：HTTP 错误 500.100 - 内部服务器错误 - ASP 错误Internet 信息服务--------------------------------------------------------------------------------技术信息（用于支持人员）错误类型：Microsoft JET Database Engine (0x80040E14)SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。/link.asp, 第 39 行浏览器类型：Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1) 网页：GET /link.asp 时间：2009年7月8日, 下午 04:49:59 link.asp代码如下：<!--#include file="conn.asp"--><!--#include file="inc/function.asp"--><%Dim c1,c2,c3,Sql,TempText,T,l,s,zt,hg,pw,ph,wc1=Strint(Request("city_oneid"))c2=Strint(Request("city_twoid"))c3=Strint(Request("city_threeid"))t=Strint(Request("t"))l=Strint(Request("l"))s=Strint(Request("s"))zt=Strint(Request("zt"))hg=Strint(Request("hg"))pw=Strint(Request("pw"))ph=Strint(Request("ph"))IF c1=0 thenc=""elseIF c3>0 thenc="and city_oneid="&c1&" and city_twoid="&c2&" and city_threeid="&c3elseIF c2>0 thenc="and city_oneid="&c1&" and city_twoid="&c2Elsec="and city_oneid="&c1End IFDim ServerURL,mServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))m=InStrRev(ServerURL,"/") ✀从右边第一个字符起查找"_"的位置,n为返回值ServerURL=left(ServerURL, m-1)✀显示从左边数第"m-1"个字符前面的字符,m=InStrRev(ServerURL,"/") ✀从右边第一个字符起查找"_"的位置,n为返回值ServerURL=left(ServerURL, m)✀显示从左边数第"m"个字符前面的字符,ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURLdbpath="../"dblinkIF t=1 thenw="web<>✀✀"hg=phelsew="(web=✀✀ or web is null)"End iFset rs=conn.execute("select top "&s&" link,web,sm from china_link where "&w&" and city_oneid="&c1&" and city_twoid="&c2&" and city_threeid="&c3&" order by id")IF Rs.eof ThenRs.close:Set Rs=Nothingset rs=conn.execute("select top "&s&" link,web,sm from china_link where "&w&" and city_oneid=0 and city_twoid=0 and city_threeid=0 order by id")End IFi=0IF Not Rs.Eof ThenTempText="<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" align=center>"do while not rs.eofIF i mod l=0 then TempText=TempText&"<tr height="&hg&">"TempText=TempText&"<td><a href="""&rs(0)&""" target=_blank>"IF t=1 ThenTempText=TempText&"<img border=0 src="""if lcase(left(rs("web"),7))="http://" thenTempText=TempText&rs(1) elseTempText=TempText&ServerURL&"adpic/"&rs(1)end ifTempText=TempText&""" alt="""&rs(2)&""" width="&pw&" height="&ph&">"ElseTempText=TempText&"<SPAN style=""font-size="&zt&"px"">"&rs(2)&"</span>"End IFTempText=TempText&"</a></td>"i=i+1if i mod l=0 then TempText=TempText&"</tr>"rs.movenextloopEnd IFrs.Close:set rs=nothingconn.Close:set conn=nothingIF i mod l<>0 Thendo while i mod l<>0TempText=TempText&"<td> </td>"i=i+1loopTempText=TempText&"</tr>"End IFResponse.Write "document.write(✀"&TempText&"</table>✀);"%>