求助 Microsoft VBScript 运行时错误 错误 '800a000d'
<DIV class='Cont'> <div class='TabCon'>
<form id="form5_15" name="form5_15" method="post" action="/productserch.asp">
<ul class='flo l_main' style='height:24px;width:100%;background-color:#E8F2FC;'>
<li style='width:30px;background:url(/imgs/mqzs_min01.gif) no-repeat;margin:3 0 0 10px;'></li>
<li style='color:#f00;font-weight:bold;padding-top:7px;font-size:14px;'>产 品 </li>
<li style='color:#015B8D;font-weight:bold;padding-top:7px;font-size:14px;'>搜索快速通道： </li>
<li style='margin-top:-1px;'>
<select name="ptype">
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from bigclass"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%= rs("id") %>"><%= rs("name") %></option>
<%
rs.movenext
loop
set rs=nothing
%>
</select>
</li>
<li style='margin-left:6px;'><input name="textfield_find" type="text" style="margin-top:-2px;width:220px"/></li>
<li style='margin:-3 0 0 6px;'><input name="Submit2" type="submit" value="搜索" ></li>
<ul>
</div>
</DIV>
<DIV class='Cont' >
<div class='TabCon' style='float:left;width:600px;text-align:left;'>
<ul class='flo' style='margin:5 0 0 5px;width:100%;'>
<li style='color:#07519A;font-weight:bold;'><img src='/imgs/cpdq_min02.gif'> <%=kkk%> <li><li>小类：</li>
</ul>
<ul class='flo' style='width:100%;'>
<%
set rc=server.createobject("adodb.recordset")
sql="select did,classname,id from smallclass where did="&ddd&" order by id asc"
set rc=conn.execute (sql)
if rc.eof then
response.write" 暂时没有分小类"
else
i=1
while not rc.eof
set id=rc(0)
set classname=rc(1)
dim xtype
xtype=rc("id")
set rs2=server.createobject("adodb.recordset")
sql2="select count(id) as idCount from Product where xtype="&xtype
rs2.open sql2,conn,1,1
idCount=rs2("idCount")
rs2.close
response.write "<li style='width:119px;height:22px;color:#f00;'> <A href='product.asp?ddd="&ddd&"&kkk="&kkk&"&mmm="&rc("classname")&"&xxx="&rc("id")&"' class='lan_'>"&rc("classname")&"</A>("&idCount&")</li>"
rc.movenext
i=i+1
wend
rc.close
set rc=nothing
end if
%>
</ul>
<ul class='l_main' style='width:100%;margin-top:5px;height:600px;text-align:center;'>
<div style='border-bottom:3px solid #03559E;width:100%;height:24px;background-color:#F0F5FB;color:#07519A;font-weight:bold;padding-top:5px;'>
<ul class='flo' style='margin-left:10px;'>图片</ul>
<ul class='flo' style='margin-left:120px;'>代应信息/公司</ul>
<ul class='flo' style='margin-left:190px;'>所在位置</ul>
</div>
<%
set rt=Server.CreateObject("adodb.recordset")
sql="select * from Product as U where dtype="&ddd&" order by id desc"
rt.open sql,conn,1,1
if rt.eof and rt.bof then
response.write"<ul>---当前目录下暂无产品---</ul>"
end if
%>
<% dim mmm,t,i,sel,tol,rec1,rec2
i=0
nnn=9
rt.pagesize=nnn
tol=rt.recordcount
rec1=tol/nnn
rec2=int(tol/nnn)
if rec1<>rec2 then rec=rec2+1
if rec1=rec2 then rec=rec2
If mmm=int(request("mmm")) 就是这句出现的错误
if mmm=0 then mmm=1
if not rt.eof then rt.AbsolutePage=mmm
%>
<%do while not rt.eof
set rs2=server.createobject("adodb.recordset")
sql2="select id,uName from UnitInfo where id="&rt("Uid")
rs2.open sql2,conn,1,1
if not rs2.eof then
uName=rs2("uName")
else
uName="----------------"
end if
rs2.close
%>
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: "阀体"]'
/product.asp，行 412
是上面代码的这句 请高手解决下 If mmm=int(request("mmm"))
