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

[mc666668]

{ 问题描述：程序代码在本地机器运行提交正常，上传到服务器后，前几天正常，运行几天突然出现以下问题，不知道是程序，还是windows2008服务器IIS（7.0)权限或配置的问题，麻烦各位帮忙解答一下，谢谢 }
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'xx2'/a.asp，行 79

ORDER_I=ORDER_I+1
LOOP

if request("order_number")="" then
'生成订单号
da=date()
xx=1
while xx<=len(da)
xx1=mid(da,xx,1)
if xx1<>"-" then xx2=xx2&xx1
xx=xx+1
wend
da=time()
xx=1
while xx<=len(da)
xx1=mid(da,xx,1)
if xx1<>":" then xx2=xx2&xx1
xx=xx+1
wend
order_number=xx2*4
else
order_number=request("order_number")
end if
dp=split(request("dp_name"),",")

[X-i-n]

提示你79行有问题的塞。把79行上下文发出来