if stext=""or len(stext)<300 then
errstyle="·请输入小于300字的求购述说。"
scripterr
end if

换成下面的

if stext="" or len(stext)>300 then
errstyle="·请输入小于300字的求购述说。"
scripterr
end if

[此贴子已经被作者于2007-8-7 14:20:46编辑过]

又报错拉：
ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/xyao/b.asp，行 83

83行是什么代码？

rs.open sql,conn,1,3

sql="select * from zzwork3 "
rs.open sql,conn,1,3

换成

rs.open "select * from zzwork3",conn,3,3

ypxxone_id=Request("ypxxone_id")
if ypxxone_id="" then
errstyle="·选择产品大类后请选择相应小类！"
scripterr --报错
else
ypxxone_id=ypxxone_id
end if

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'scripterr'

/xyao/agentsPurchase_save.asp，行 14

scripterr

你没有定义这个函数吗？

已经解决，谢谢各位

楼主是怎么解决的,我也遇到了类似的问题现在还没解决?怎么定义scripterr