用表單來提交sql 3

<%
function buildSQLInsert( targetTable, omitFIElds)
         iStr = "insert into " & targetTable & " "
         vStr = "values ("
         nStr = "("
         ' 在表單集合中循環，並建立起SQL語句的組成部分
         for each x in request.form
                  fIEldName = uCase(x)
                  ' 判斷字段是否被省略？
                  if inStr(uCase(omitFIElds),x) = 0 then
                       fieldData = replace(request.form(fIEldName), _
                                "'", "''")
        &nb