我有个ASP网页可是有些地方提示：Microsoft VBScript 运行时错误 错误 '800a0046'
这是ASP的源码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="yjc_conn/yjc_conn.asp" -->
<%
dim ddh
ddh=request("gwc_ddh")
ddh=left(ddh,7)
set rs=conn.execute("select dd_ddh from sjtf_dd where dd_ddh="&ddh&"")
if not rs.bof and not rs.eof then
ddh=ddh+1
end if
if request("gwc_ddh")="" then
response.write("<script>alert ('对不起，购物车中没有商品！');history.back();</script>")
end if
%>
<%
if request.form("submit")="提交订单" and request.form("yun")<>"请选择配送方式" then
if request("select")="请选择送货方式" then
response.Write "<script LANGUAGE='javascript'>alert('请选择配送方式！');history.go(-1);</script>"
response.End
else
conn.execute("insert into sjtf_dd (dd_ddh,dd_pay,dd_name,dd_mem_id,dd_email,dd_tel,dd_sj,dd_address,dd_code,dd_bz,yun,ps) values("&request.form("gwc_ddh")&","&request.form("dd_pay")&",'"&request.form("dd_name")&"',"&session("userid")&",'"&request.form("dd_email")&"','"&request.form("dd_tel")&"','"&request.form("dd_sj")&"','"&request.form("dd_address")&"','"&request.form("dd_code")&"','"&request.form("dd_bz")&"','"&request.form("yun")&"','"&request.form("select")&"')")
conn.execute("update sjtf_gwc set gwc_ddh="&request.form("gwc_ddh")&",gwc_ispay=1,yun="&request.form("yun")&" where gwc_ddh=0 and gwc_userid="&session("userid")&"")
conn.execute("update sjtf_mem set qian=qian-"&CDBL(request.form("dd_pay"))&" where mem_id="&session("userid")&"")
response.redirect("pay1.asp?gwc_ddh="&request.form("gwc_ddh"))
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="欢迎光临我就要靓号交易平台网--专业靓号交易" />
<title>欢迎光临我就要靓号交易平台网--专业靓号交易</title>
<link href="css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" bgcolor="A4A4A4"></td>
</tr>
</table>
<!--#include file="search.asp" -->
<table width="760" height="297" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="188" valign="top"> <table width="177" height="22" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="C6D4D5">
<tr>
<td height="22"> <table width="100%" height="18" border="0" cellpadding="2" cellspacing="0" bgcolor="ffffff">
<tr>
<td>
<img border="0" src="images/favorite.left.help.jpg" width="190" height="27"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="177" height="196" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="E2E2E2">
<tr>
<td valign="top" bgcolor="f4f4f4"><br>
<!--#include file="login.asp"-->
</td>
</tr>
</table>
</td>
<td width="3" valign="top" background="images/left_bg.jpg"></td>
<td width="569" valign="top"> <p align="center"><br>
<strong><font color="#FF0000">收货信息确认</font></strong></p>
<form name="form1" method="post" action="">
<table width=96% border=0 align="center" cellpadding=3 cellspacing=1 bgcolor="#E3E3E3">
<%set rs=conn.execute("select * from sjtf_mem where mem_id="&session("userid")&"")%>
<tr>
<td width="15%" bgcolor="#FFFFFF"><div align="right">收货人：</div></td>
<td width="85%" bgcolor="#FFFFFF"><input name="dd_name" type="text" class=input id="dd_name" value="<%=rs("mem_name")%>" maxlength="20">
<input name="gwc_ddh" type="hidden" id="gwc_ddh" value="<%=ddh%>"></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><div align="right">Email：</div></td>
<td bgcolor="#F3F3F3"><input name="dd_email" type="text" class=input id="dd_email" value="<%=rs("mem_email")%>" maxlength="20"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">地址：</div></td>
<td bgcolor="#FFFFFF"><input name="dd_address" type="text" class=input id="dd_address" value="<%=rs("mem_address")%>" size="60" maxlength="100"></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><div align="right">邮编：</div></td>
<td bgcolor="#F3F3F3"><input name="dd_code" type="text" class=input id="dd_code" value="<%=rs("mem_code")%>" maxlength="10"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">电话：</div></td>
<td bgcolor="#FFFFFF"><input name="dd_tel" type="text" class=input id="dd_tel" value="<%=rs("mem_tel")%>" maxlength="20"></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><div align="right">发货方式：</div></td>
<td bgcolor="#F3F3F3"><select name="select" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}"><base target=Right>
<%if request("name2")<>"" then
response.Write("<option>"&request("name2")&"</option>")
else
response.Write("<option>请选择送货方式</option>")
end if
set rs3=server.CreateObject("adodb.recordset")
rs3.open"select * from links order by linkid",conn,1,1
if rs3.eof then
response.Write("")
else
do while not rs3.eof%>
<option value="pay.asp?name1=<%=rs3("linkurl")%>&gwc_ddh=<%=ddh%>&name2=<%=rs3("linkname")%>&price=<%=request("price")%>"><%=rs3("linkname")%></option>
<%rs3.movenext
loop
end if
rs3.close
set rs3=nothing%>
</select></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><div align="right">发货单号：</div></td>
<td bgcolor="#F3F3F3"><input name="textfield" type="text" class="input" value="<%=request("gwc_ddh")%>" readonly></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><div align="right">汇款银行：</div></td>
<td bgcolor="#F3F3F3"><select name="select2">
<option value="中国工商银行" selected>中国工商银行</option>
<option value="中国银行">中国银行</option>
<option value="中国建设银行">中国建设银行</option>
<option value="中国农行银行">中国农行银行</option>
<option value="深圳发展银行">深圳发展银行</option>
<option value="中国招商银行">中国招商银行</option>
<option value="淘宝支付宝">淘宝支付宝</option>
<option value="其它">其它</option>
</select></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><div align="right">运费：</div></td>
<td bgcolor="#F3F3F3"><input name="yun" type="text" class="input" id="yun" value="<%if request("name1")="" then response.Write("请选择配送方式") else response.write(request("name1")) end if%> "></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><div align="right">总共汇款：<br>
</div></td><%price=CDBL(request("price"))
name1=CDBL(request("name1"))
zongji=price+name1%>
<td bgcolor="#F3F3F3"><input name="dd_pay" type="text" class="input" id="dd_pay" value="<%=zongji%>"></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><div align="right">手机：</div></td>
<td bgcolor="#F3F3F3"><input name="dd_sj" type="text" class=input id="dd_sj" value="<%=rs("mem_sj")%>" maxlength="20"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">备注：</div></td>
<td bgcolor="#FFFFFF"><textarea name="dd_bz" cols="58" rows="4" id="dd_bz">订购中有其它特殊说明请在此输入</textarea></td>
</tr>
<tr>
<td colspan="2" bgcolor="#F3F3F3"><div align="center">
<input type="submit" name="Submit" value="提交订单">
<input type="button" name="Submit2" value="取消" onClick="javascript:history.back()">
</div></td>
</tr><a href=" http://www.5944.net" target="_blank">5944</a>
</table>
</form>
<br></td>
</tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>