フォームでsqlを送信する（トランス）3

私が見ているdb2チュートリアルは:Submitting sql with a form (trans)3です。Dをリストアップしています。buildSQLInsert関数の最終バージョンです。
<%
function buildSQLInsert( targetTable, omitFields)
         iStr = "insert into " & targetTable & ".
         vStr = "値（"
         nStr = "(")
          フォームコレクションをループして、SQL文のコンポーネントを構築します。
         request.formの各xについて
                  フィールド名 = uCase(x)
                   フィールドが省略されているかどうかを判断する？
                  if inStr(uCase(omitFields),x) = 0 then
                       fieldData = replace(request.form(fieldName), _)
                                "", "")
                        データがない場合、NULLを挿入
                       if trim(fieldData) = "" then
                                fieldData = "NULL"
                                vStr = vStr & fieldData & ", ".
                                nStr = nStr & fieldName & ", ".
                       その他
                                typeDelimPos = inStr(fieldName, "_")
                                if typeDelimPos = 0 then
                                      はテキストフィールド
                                      フィールド名のリストを作成する
                                     nStr = nStr & fieldName & ", ".
                                     vStr = vStr &

[1]  [2] [3] [4] [5] 次のページ

私が見ているdb2チュートリアルは:Submit sql with a form (trans) 3."" & fieldData & ", " です。
                                その他
                                      フィールドが他のタイプである
                                     fieldType = left(fieldName, typeDelimPos - 1)
                                     フィールド名 = mid(fieldName, typeDelimPos + 1)
                                      フィールド名を名前のリストに追加する
                                     nStr = nStr & fieldName & ", ".
                                      フィールドの種類を大文字にして、確実に一致させます。
                                     select case uCase(fieldType)
                                              ケース "NUM"
                                              vStr = vStr & fieldData & ", ".
                                              不明な型はテキスト型として扱う
                                              ケース
                                              vStr = vStr & "" & fieldData & ", ".
                                     エンドセレクト
                                エンド if       
&

前ページ [1]  [2]  [3] [4] [5] 次のページ

私が見ているdb2チュートリアルは:Submit sql with a form (turn) 3. nbsp; end if
/end if                   終了する場合
         次
          作成した文字列から末尾の "," を削除します。
         vStr = left(vStr, len(vStr) - 2) & ")".
         nStr = left(nStr, len(nStr) - 2) & ")".
          SQLステートメントをまとめる
         buildSQLInsert = iStr & nStr & vStr
エンドファンクション
if trim(request("fName")&request("lname")&request("age"))) <> "" then
         response.write( buildSQLInsert("") & ") {{br<")
")
         response.write( buildSQLInsert("lname,fname") & ".
")
         response.write( buildSQLInsert("mycheckbox,fname") &)
         =<" {{br<")
%>

ギミー・ユア
ファーストネーム 入力 {を入力します。
苗字 名字: {を入力します。
年齢 入力 {を入力します。
入力 {を入力します。
入力 {を入力します。
/

/
<%
終了する場合
  %>
リストD。buildSQLInsert 関数の最終バージョンです。
<%
function buildSQLInsert( targetTable, omitFields)
         iStr = "insert into " & targetTable & ".
         vStr = "値（"
         nStr = "(")
          フォームコレクションをループして、SQL文のコンポーネントを構築します。
         request.formの各xについて
                  フィールド名 = uCase(x)
                   フィールドが省略されているかどうかを判断する？
                  if inStr(uCase(omitFields),x) = 0 then
                       fieldData = replace(request.form(fieldName), _)
                                "", "")
                        データがない場合、NULLを挿入
                       if trim(fieldData) = "" then
                                fieldData = "NULL"
                                vStr = vStr & fieldData & ", ".

前ページ [1] [2]  [3]  [4] [5] 次のページ

現在見ているdb2チュートリアルは：フォームでsqlを送信する（trans） 3. nStr = nStr & fieldName & ", "
                       さもなければ
                                typeDelimPos = inStr(fieldName, "_")
                                if typeDelimPos = 0 then
                                      はテキストフィールド
                                      フィールド名のリストを作成する
                                     nStr = nStr & fieldName & ", ".
                                     vStr = vStr & "" & fieldData & ", ".
                                その他
                                      フィールドが他のタイプである
                                     fieldType = left(fieldName, typeDelimPos - 1)
                                     フィールド名 = mid(fieldName, typeDelimPos + 1)
                                      フィールド名を名前のリストに追加する
                                     nStr = nStr & fieldName & ", ".
                                      フィールドの種類を大文字にして、確実に一致させます。
                                     select case uCase(fieldType)
                                        &n

前ページ [1] [2] [3]  [4]  [5] 次のページ

私が見ているdb2チュートリアルは:Submit sql with a form (turn) 3. bsp; case "NUM".
                                              vStr = vStr & fieldData & ", ".
                                              指定されていない型はテキストベースとして扱う
                                              ケース
                                              vStr = vStr & "" & fieldData & ", ".
                                     エンドセレクト
                                エンド if       
                       終了する場合
                  終了する場合
         次
          作成した文字列から末尾の "," を削除します。
         vStr = left(vStr, len(vStr) - 2) & ")".
         nStr = left(nStr, len(nStr) - 2) & ")".
          SQLステートメントをまとめる
         buildSQLInsert = iStr & nStr & vStr
エンドファンクション
if trim(request("fName")&request("lname")&request("age"))。<> "" then
         response.write( buildSQLInsert("") & ") {{br<")
")
         response.write( buildSQLInsert("lname,fname") & ".
")
         response.write( buildSQLInsert("mycheckbox,fname") &)
         =<" {{br<")
%>

ギミー・ユア
ファーストネーム 入力 {を入力します。
苗字 名字: {を入力します。
年齢 入力 {を入力します。
入力 {を入力します。
入力 {を入力します。
/

/
<%
終了する場合
  %>

前ページ [1] [2] [3] [4]  [5] 

/br<")