asp中，提交表单时怎样验证表单信息呢？

我设计了个表单要在表单提交时，简单地验证表单的信息。提交表单时系统老爆错，错误类型：
Provider (0x80020005)
类型不匹配。
Admin/RoomSubmit.asp, 第 27 行

<!--#include file="system/connection.asp"-->
<%
set rst=server.createobject("adodb.recordset")
sqltext="select id,c_name from hotelb order by id desc"
rst.open sqltext,conn,1,1
session("hotelid")=rst("id")
session("hotelname")=rst("c_name")
rst.close
%>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from hotelb "
rs.open sqltext,conn,1,1
%>

<!--以下是表单验证函数-->
<script language="JavaScript">

function CheckForm()
{ 内容省略} </script>
<!--表单验证函数结束-->


<form action="RoomSubmit.asp" METHOD="POST" NAME="form1" id="form1">


<table width="50%" border=1 align="center" cellPadding=0 cellSpacing=0 bordercolor="#999999" borderColorDark=#ffffff bgcolor="#F9F9F9">
<TBODY>
<tr>
<TD width=152 height=25 align="right" >门市价格：</TD>
<TD width=337 height=25><INPUT NAME="marketprice" SIZE="30" >欧元<font color="#FF0000"> *</font></TD>
</tr>
<tr>
<TD width=152 height=25 align="right" bgColor=#ebebeb>前台现付价：</TD>
<TD width=337 height=25><input type="text" name="stageprice" size="38" id="stageprice">欧元<font color="#FF0000"> *</font></TD>
</tr>
<tr>
<TD width=152 height=25 align="right" bgColor=#ebebeb>网上支付价：</TD>
<TD width=337 height=25><input type="text" name="netprice" size="38" id="netprice"> 欧元</TD>
</tr>
<tr>
<TD colSpan=2 height="35" ><p align="center"><input type="submit" name="Submit" value="提交" onClick="return CheckForm()"> <INPUT TYPE="RESET" VALUE="重 填" CLASS="medium" NAME="signup_reset"> </TD>
</tr>
</TBODY>
</TABLE>

</form>


</script>

<!--RoomSubmit.asp中代码如下-->
<!--#include file="system/connection.asp"-->
<%
hotelid1=request("roomhotel")
roomtype=trim(request("roomtype"))
set rs=server.createobject("adodb.recordset")
sqltext="select * from roomb where c_id="&hotelid1&" and type='"&roomtype&"'"
rs.open sqltext,conn,3,3

if not rs.eof and not rs.bof then
Response.Redirect "messagebox.asp?msg=此房型在同一酒店已经注册过，请注册其他房型!"
else
'添加一条记录到数据库
rs.addnew
rs("c_id")=request.form("roomhotel")
rs("type")=request.form("roomtype")
rs("breakfast")=request.form("breakfast")
rs("marketprice")=request.form("marketprice")<!--此行为27行-->
rs("stageprice")=request.form("stageprice")
if request("netprice")=""then
rs("netprice")=""
else
rs("netprice")=request("netprice")
end if
rs("state")=request.form("state")
rs("paytype")=request.form("paytype")
rs.update
rs.close