错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/cpzs_list1.asp, 第 50 行
红色的为第50行,大家帮忙看下,谢谢
代码如下:
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
background-image:
}
.STYLE1 {font-size: 12px}
.STYLE2 {font-size: 18px}
.STYLE4 {font-size: 14px}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<table width="780" height="100" border="0" cellpadding="0" cellspacing="0" align="center">
<!--DWLayoutTable-->
<tr>
<td width="780" height="100" valign="top" bgcolor="#3399FF"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
<table align="center" width=780 height="1200" border="0" cellpadding="0" cellspacing="0">
<%
id =request.QueryString("id")
set rs=server.createobject("adodb.recordset")
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
sql="select * from zhaoshang where id="&id
rs.open sql,conn,1,1
if rs.eof then
%>
<tr>
<td width="600" height="20" valign="middle">
<div align="center" class="text"><font color="#FF0000" size="3">暂时没有招商信息!</font></div>
</td>
</tr>
<%
response.end
else
rs.pagesize=9
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
i=0
dim id(),yaopinmingcheng(),shangbiaoming(),zhaoshangquyu(),yaopinleibie(),pizhunwenhao(),shengchandanwei(),jixing(),gunge(),chengfen(),yongfayongliang(),chanpinxingneng(),chanpingbuchongsm(),dailiyaoqiu(),beizhu(),danweimingcheng(),dianhua(),chuanzhen(),shouji(),lianxiren(),wangzhi(),email(),youbian(),dizhi(),tupian()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve id(i),yaopinmingcheng(i),shangbiaoming(i),zhaoshangquyu(i),yaopinleibie(i),pizhunwenhao(i),shengchandanwei(i),jixing(i),gunge(i),chengfen(i),yongfayongliang(i),chanpinxingneng(i),chanpingbuchongsm(i),dailiyaoqiu(i),beizhu(i),danweimingcheng(i),dianhua(i),chuanzhen(i),shouji(i),lianxiren(i),wangzhi(i),email(i),youbian(i),dizhi(i),tupian(i)
id(i)=rs("id")
yaopinmingcheng(i)=rs("yaopinmingcheng")
shangbiaoming(i)=rs("shangbiaoming")
zhaoshangquyu(i)=rs("zhaoshangquyu")
yaopinleibie(i)=rs("yaopinleibie")
pizhunwenhao(i)=rs("pizhunwenhao")
shengchandanwei(i)=rs("shengchandanwei")
jixing(i)=rs("jixing")
gunge(i)=rs("gunge")
chengfen(i)=rs("chengfen")
yongfayongliang(i)=rs("yongfayongliang")
chanpinxingneng(i)=rs("chanpinxingneng")
chanpingbuchongsm(i)=rs("chanpingbuchongsm")
dailiyaoqiu(i)=rs("dailiyaoqiu")
beizhu(i)=rs("beizhu")
danweimingcheng(i)=rs("danweimingcheng")
dianhua(i)=rs("dianhua")
chuanzhen(i)=rs("chuanzhen")
shouji(i)=rs("shouji")
lianxiren(i)=rs("lianxiren")
wangzhi(i)=rs("wangzhi")
email(i)=rs("email")
youbian(i)=rs("youbian")
dizhi(i)=rs("dizhi")
tupian(i)=rs("tupian")
rs.movenext
loop
end if
rs.close
%>
<tr>
<%for i = 0 to ubound(id)%>
<td height="800" valign="top">
<table align="center" width="780" height="808" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<!--DWLayoutTable-->
<tr>
<td width="142" height="206" align="center" valign="top">
<%
dim img
if trim(tupian(i))="" then
img="images/no.jpg"
else
img=trim(tupian(i))
end if
next
%>
<span class="STYLE1">产品图片</span><img src="<%=img%>" width="142" height="186" border="0" class="text"> </td>
<td width="632" rowspan="3" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td height="56" colspan="5" align="center" valign="middle"><span class="STYLE2">公 司 名 称</span></td>
</tr>
<tr>
<td height="22" colspan="3" valign="middle"><span class="STYLE4">招 商 产 品 信 息</span></td>
<td width="503"> </td>
<td width="7"> </td>
</tr>
<tr>
<td width="67" height="21" valign="middle">药品名称:</td>
<td colspan="3" valign="middle">aaa</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">商 标 名:</td>
<td colspan="3" valign="middle">bbbbb</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">招商区域:</td>
<td colspan="3" valign="middle">天津</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">药品类别:</td>
<td colspan="3" valign="middle">cccccc</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">批准文号:</td>
<td colspan="3" valign="top">ddddddd</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">生产单位:</td>
<td colspan="3" valign="middle">eeeeeee</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">剂 型:</td>
<td colspan="3" valign="middle">ffffff</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">规 格:</td>
<td colspan="3" valign="middle">gggggg</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">成 分:</td>
<td colspan="3" valign="middle">hhhhhhh</td>
<td> </td>
</tr>
<tr>
<td height="21" valign="middle">用法用量:</td>
<td colspan="3" valign="middle">iiiiiiii</td>
<td> </td>
</tr>
<tr>
<td height="22" colspan="3" valign="middle"><span class="STYLE4">产 品 性 能</span></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="173" colspan="4" valign="top"><p>fgdfgdfgdfgdfg</p>
<p>dfgdfgdfgdfgdfg</p>
<p>dfg</p>
<p>dfg</p>
<p>dfgdf</p> <p>gdfg</p></td>
<td> </td>
</tr>
<tr>
<td height="22" colspan="3" valign="middle">产 品 补 充 说 明:</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="119" colspan="4" valign="top"><!--DWLayoutEmptyCell--> </td>
<td> </td>
</tr>
<tr>
<td height="22" colspan="3" valign="middle">对 代 理 商 要 求:</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="117" colspan="4" valign="top"><!--DWLayoutEmptyCell--> </td>
<td> </td>
</tr>
<tr>
<td height="22" colspan="3" valign="middle">备 注:</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="89" colspan="5" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="22" colspan="3" valign="top">联 系 方 式:</td>
<td></td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">单 位 名 称:</td>
<td colspan="2" valign="middle">jjjjjjj</td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">联 系 电 话:</td>
<td colspan="2" valign="middle">kkkkkkk</td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">传 真: </td>
<td colspan="2" valign="middle">0203564879456</td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">联 系 手 机:</td>
<td colspan="2" valign="middle">13568454687952</td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">联 系 人:</td>
<td colspan="2" valign="middle">全球医药商机网</td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">网 址:</td>
<td colspan="2" valign="middle">http://www.baisogoo.com</td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">E-mail:</td>
<td colspan="2" valign="middle">yfen258@126.com</td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">邮 编:</td>
<td colspan="2" valign="middle">571741</td>
<td></td>
</tr>
<tr>
<td height="21" colspan="2" valign="middle">地 址:</td>
<td colspan="2" valign="middle">广州</td>
<td></td>
</tr>
<tr>
<td height="0"></td>
<td></td>
<td width="41"></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="1"></td>
<td width="14"></td>
<td></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
<tr>
<td height="26" align="center" valign="middle"><span class="STYLE1">该 公 司 相 关 产 品</span></td>
</tr>
<tr>
<td height="946" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
</td>
</tr>
</table>
类型不匹配
