一个将表单的数据动态加入数据库的程序。需要自动判断数据库的字段的类型，错在哪里？

[jiangsmile]

请大虾重点帮看一下 中间的字段数据类型的代码有错吗？
If Request.ServerVariables("REQUEST_METHOD") ="POST" THEN
strsqlba1 = "select * from basic where IsTable='nsaler_product'"
set rsnb = server.CreateObject("strsqlba1")
sz1 = "('" & Trim(Request.form("OperatorId")) & "','" & Trim(Request.form("SalerProductId")) & "','" & Trim(Request.form("ProductId")) & "'"
ColumnNamea = "(OperatorId,SalerProductId,ProductID"
if rsnb.Eof or rsnb.bof then
Response.Write "无纪录"
else
do while not rsnb.Eof
dim x
x="""" & rsnb.Fields("SalerBasic") & """"

ColumnNamea = ColumnNamea & "," & x
select case rsnb.fields("SalerBasic").type
case "bit"
sz1 = sz1 & "," & Cint(Request.Form(X))
case "varchar"
sz1 = sz1 & ",'" & trim(Request.Form(X)) & "'"
case "char"
sz1 = sz1 & ",'" & trim(Request.Form(X)) & "'"
case "float"
sz1 = sz1 & "," & Cdbl(Request.Form(x))
case "int"
sz1 = sz1 & "," & Cint(Request.Form(x))
case "numeric"
sz1 = sz1 & "," & Cint(Request.Form(x))
case "text"
sz1 = sz1 & ",'" & trim(Request.Form(X)) & "'"
end select
rs.movenext
loop
end if

ColumnNamea = ColumnNamea & ")"
SZ1 = sz1 & ")"
Insertsql = "Insert into nsaler_product" & ColumnNamea & " values" & sz1
conn.execute(Insertsql)
set rssql = nothing
end if

[jiangsmile]

select case rsnb.fields("SalerBasic").type case "bit"
sz1 = sz1 & "," & Cint(Request.Form(X))
case "varchar"
sz1 = sz1 & ",'" & trim(Request.Form(X)) & "'"
case "char"
sz1 = sz1 & ",'" & trim(Request.Form(X)) & "'"
case "float"
sz1 = sz1 & "," & Cdbl(Request.Form(x))
case "int"
sz1 = sz1 & "," & Cint(Request.Form(x))
case "numeric"
sz1 = sz1 & "," & Cint(Request.Form(x))
case "text"
是否正确？

sz1 = sz1 & ",'" & trim(Request.Form(X)) & "'"
end select