asp 错误类型：Microsoft VBScript 编译器错误 (0x800A0401) 语句未结束

错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/shouhou/checkhuan_in.asp, line 24, column 146
sql="insert into huan(hno,gname,hamount,hunit,hreason,hname,hcompany,haddress,hphone,hdate,user_name,hbeizhu,shen) values('"&hno&"','"&gname&"','"&hamount&"','"&hunit&"','"&hreason&"','"&hname&"','"&hcompany&"','"&haddress&"','"&hphone&"','"&hdate&"','"&user_name&"','"&hbeizhu&"','"&shen&"')"
-------------------------------------------------------------------------------------------------------------------------------------------------^

源代码：
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
hno=trim(request("hno"))
gname=trim(request("gname"))
hamount=trim(request("hamount"))
hunit=trim(request("hunit"))
hreason=trim(request("hreason"))

hname=trim(request("hname"))
hcompany=trim(request("hcompany"))
haddress=trim(request("haddress"))
hphone=trim(request("hphone"))
hdate=trim(request("hdate"))
user_name=trim(request("user_name"))
hbeizhu=trim(request("hbeizhu"))
shen=0

set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open application("dsn")


if hamount<>"" and hunit<>"" and hreason<>"" and hname<>"" and haddress<>"" and hphone<>"" then
sql="insert into huan(hno,gname,hamount,hunit,hreason,hname,hcompany,haddress,hphone,hdate,user_name,hbeizhu,shen) values('"&hno&"','"&gname&"','"&hamount&"','"&hunit&"','"&hreason&"','"&hname&"','"&hcompany&"','"&haddress&"','"&hphone&"','"&hdate&"','"&user_name&"','"&hbeizhu&"','"&shen&"')"
rs.open sql,conn,1,3
%>
<script language="javascript">
alert("换货申请单录入成功！");
window.location.href="huan_in.asp";
</script>
<% else %>
<script language="javascript">
alert("请把必要信息填写完整！");
window.location.href="huan_in.asp";
</script>
<% end if %>

这是验证一个表单并向数据库插入数据，数据字段都是varchar型。本人菜鸟一枚，特向高手请教！