ASP中调用图片友情链接的问题

两分栏布局的网站，想在左边的分栏内加入一个友情链接效果，后台添加程序已经写好，前台调用是总是出错。附上源文件和数据库截图，望指教问题所在和解决办法！

link_js.asp源文件：

<!--#include file = admin_conn.asp -->

<!--
function FP_jumpMenu(el,frm,sel) {//v1.0
var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
}
// -->

<%
linktype=trim(request("link"))
n=trim(request("n"))
w=trim(Request("w"))
h=trim(Request("h"))
if n="" then n=8
if w="" then w=5
if h="" then h=5

if linktype="1" then
sql = "select * from link order by ontop desc , upd desc , id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
document.write("<SELECt onchange=\"FP_jumpMenu(this,'_new',false)\" id=id1 name=D1>");
document.write("<option>友情链接</option>");
<%
while not rs.eof
url=rs("url")
linkname=rs("linkname")
%>

document.write("<option value=<%=url%>><%=linkname%></option>");
<%
rs.movenext
wend
%>
document.write("</select>");

<%
elseif linktype="2" and w<>"" and n<>"" then
if n<>"0" then
ttt="top "&n
sql = "select "&ttt&" * from link where logo='' order by ontop desc , upd desc , id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
%>
document.write("<table border=0 cellpadding=0 cellspacing=0 width=100% id=table1>");
<%
for k=1 to rs.recordcount
%>
document.write("<tr>");
<%
for i=1 to h
url=rs("url")
linkname=rs("linkname")
%>
document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
<%
rs.movenext
if rs.eof then exit for
next
%>
document.write("</tr>");
<%
if rs.eof then exit for
next
%>
document.write("</table>");
<%
end if

elseif linktype="3" and n<>"" then
if n<>"0" then ttt="top "&n
sql = "select "&ttt&" * from link where logo='' order by ontop desc , upd desc , id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
%>
document.write("<table border=0 cellpadding=2 cellspacing=0 width=100% id=table1>");
<%
for i=1 to n
url=rs("url")
linkname=rs("linkname")
%>
document.write("<tr><td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td></tr>");
<%
rs.movenext
if rs.eof then exit for
next
%>
document.write("</table>");
<%
end if

elseif linktype="4" then
sql = "select * from link where logo<>'' order by ontop desc , upd desc , id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
%>
document.write("<table border=0 cellpadding=0 cellspacing=0 width=100% id=table1><tr>");
<%
for i=1 to n
url=rs("url")
linkname=rs("linkname")
logo=rs("logo")
js=rs("js")
%>
document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
<%
rs.movenext
if rs.eof then exit for
next
%>
document.write("</tr></table>");
<%
end if

elseif linktype="5" then
sql = "select * from link where logo<>'' order by ontop desc , upd desc , id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
%>
document.write("<table border=0 cellpadding=2 cellspacing=0 width=100% id=table1>");
<%
for i=1 to n
url=rs("url")
linkname=rs("linkname")
logo=rs("logo")
js=rs("js")
%>
document.write("<tr><td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td></tr>");
<%
rs.movenext
if rs.eof then exit for
next
%>
document.write("</table>");
<%
end if

elseif linktype="6" then
%>
document.write("<div align=center><table border=1 cellpadding=2 width=725 id=table2 bordercolor='#C0C0C0'>");
<%
sql = "select * from link where logo='' order by ontop desc , upd desc , id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

if rs.recordcount<>0 then

for i=0 to rs.recordcount
url=rs("url")
linkname=rs("linkname")
%>
document.write("<tr>");
document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
<%
rs.movenext
if rs.eof then exit for
url=rs("url")
linkname=rs("linkname")
%>
document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
<%
rs.movenext
if rs.eof then exit for
url=rs("url")
linkname=rs("linkname")
%>
document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
<%
rs.movenext
if rs.eof then exit for
url=rs("url")
linkname=rs("linkname")
%>
document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
<%
rs.movenext
if rs.eof then exit for
url=rs("url")
linkname=rs("linkname")
%>
document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
document.write("</tr>");
<%
rs.movenext
if rs.eof then exit for
next

end if
%>
document.write("</table></div><BR>");
document.write("<div align=center><table border=1 cellpadding=5 width=725 id=table3 bordercolor=#C0C0C0>");
<%
sql = "select * from link where logo<>'' order by id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

if rs.recordcount<>0 then

for i=1 to 5
url=rs("url")
linkname=rs("linkname")
logo=rs("logo")
js=rs("js")
%>
document.write("<tr><td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
<%
rs.movenext
if rs.eof then exit for
url=rs("url")
linkname=rs("linkname")
logo=rs("logo")
js=rs("js")
%>
document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
<%
rs.movenext
if rs.eof then exit for
url=rs("url")
linkname=rs("linkname")
logo=rs("logo")
js=rs("js")
%>
document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
<%
rs.movenext
if rs.eof then exit for
url=rs("url")
linkname=rs("linkname")
logo=rs("logo")
js=rs("js")
%>
document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
<%
rs.movenext
if rs.eof then exit for
url=rs("url")
linkname=rs("linkname")
logo=rs("logo")
js=rs("js")
%>
document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td></tr>");

<%
rs.movenext
if rs.eof then exit for
next

end if
%>
document.write("</table></div>");
<%
end if
end if
%>

调用函数：

图片方式调用 (竖排)　仅显示图片的链接
JS调用代码：
<script TYPE="text/javascript" language="javascript" src="link_js.asp?link=5&n=8"></script>
n=8 意思是显示8个文字链接

数据库截图：

始终不能正常调用，请高手指出问题所在或提供新调用方法。

link_js.asp:

var str=[];
<%
dim db,confid,conn,connstr
db="db1.mdb"
set conn=server.createobject("ADODB.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&db&"")
conn.open connstr
lt=trim(request("type"))
ln=trim(request("n"))
w=trim(request("w"))
h=trim(request("h"))
if lt="" and isnumeric(lt)=false then lt=5
if ln="" and isnumeric(ln)=false then ln=8
if w="" and isnumeric(w)=false then w=128
if h="" and isnumeric(h)=false then h=48
select case lt
case 1
case 2
case 3
case 4
case 5
sql="select top "&ln&" * from links"
case else
sql="select top "&ln&" * from links"
end select

set rs=createobject("adodb.recordset")
rs.open sql,conn,1,1
for i=1 to rs.recordcount
if not rs.eof then
lnkname=rs("linkname")
lnkurl=rs("url")
logo=rs("logo")
js=rs("js")
ontop=rs("ontop")
upd=rs("upd")
if lnkname="" then lnkname="index.asp"
response.write "str.push('"&bldlnk(lt,lnkname,lnkurl,logo)&"');"
rs.movenext
end if
next
set rs=nothing

function bldlnk(ltype,lname,url,logo)
select case ltype
case 1
case 2
case 3
case 4
case 5
bldlnk="<div class=lnkitem><a href="&url&" target=_blank><img border=0 src="&logo&" width="&w&" height="&h&"></a></div>"
case else
bldlnk="<div class=lnkitem><a href="&url&" target=_blank><img border=0 src="&logo&" width="&w&" height="&h&"></a></div>"
end select
end function
%>
document.write(str.join(''));

=======================

<script src="link_js.asp"></script>直接显示第五种前八个

如果需要其它的显示方法,请自行补全case里面的内容.

n=trim(request("n")) w=trim(Request("w")) h=trim(Request("h")) if n="" then n=8 if w="" then w=5 if h="" then h=5

别的我没看

这几句的兼容性性不好,不少空间里,当你n=trim(request("n"))时,n就不会=""了,但response.write n又是输入什么都没有,很头疼

一般别省这个,老才实实if n=trim(request("n"))="" then吧

你这样写了一大堆,我们都看得很头痛,你应该把IE的错误提示也发上来(关闭了友好错误提示的那种)