<% Dim m_objOrder_Diag Call C_ConnectDB("open") with c_objSite .strHeadTitle = " / 無料耐震診断の申し込み" .strBredlist = "無料耐震診断の申し込み" .strBredlist_URL = "" end with Call G_DispHeader ' Set m_objOrder_Diag = New clsOrder_Diag '-- Call M_Set_FormData(m_objOrder_Diag)'<<変数初期化 , 変数にデータ格納 '>>▼フォーム出力#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/# 'Call M_Disp_Check_Confirm(1,"この内容で登録しますか?")'>>▼JavaScript確認ダイアログ Response.Write "
" & vbNewLine Response.Write "
" & vbNewLine Response.Write "

無料耐震診断の申し込み

" & vbNewLine Response.Write "
" & vbNewLine Response.Write "
" & vbNewLine Response.Write "
" & vbNewLine Response.Write "
" & vbNewLine Response.Write "
" & vbNewLine '▼フォーム分岐 With m_objOrder_Diag If .strBtnPre <> "" or .strBtnReg <> "" or .strBtnRet <> "" then .strErrMsg = M_ErrChk(m_objOrder_Diag)'>>▼エラーチェック Call .Disp_StepImg(m_objOrder_Diag) If .strBtnRet <> "" then Call M_Disp_RegistForm(m_objOrder_Diag)'>>▼フォーム表示 Else If .strErrMsg <> "" then Call M_Disp_RegistForm(m_objOrder_Diag)'>>▼フォーム表示 Else If .strBtnPre <> "" then Call M_Disp_Prev(m_objOrder_Diag)'>>▼内容確認 Else If .Save(m_objOrder_Diag) then'>>▼データベース保存 Call .SendMail_Com(m_objOrder_Diag , "U")'-- エンドユーザ宛て Call .SendMail_Com(m_objOrder_Diag , "A")'-- 管理者宛て Call M_Disp_Result(m_objOrder_Diag)'>>▼結果表示 Else Call M_Disp_Fail(m_objOrder_Diag)'>>▼結果表示(失敗) End If End If End If End If Else Call .Disp_StepImg(m_objOrder_Diag) .strFormUniqKey = c_objString.Create_UniqStrKey(1 ,40) Call M_Disp_RegistForm(m_objOrder_Diag)'>>▼フォーム表示 End If End With Response.Write "
" & vbNewline Response.Write "
" & vbNewLine '▲#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/ Set m_objOrder_Diag = Nothing ' Call G_DispFooter Call C_ConnectDB("close") '▼以下関数 #/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/#/ '************************************************** '#N1 Sub M_Set_FormData(ByVal objData) '#D1 画面入力情報をオブジェクトにセット '#A1 objData : クラスオブジェクト '#R1 なし '************************************************** Sub M_Set_FormData(ByVal objData) Call objData.Set_FormData(objData) End Sub '************************************************** '#N1 Sub M_Disp_RegistForm(ByVal objData) '#D1 入力フォームの表示 '#A1 objData : クラスオブジェクト '#R1 なし '************************************************** Sub M_Disp_RegistForm(ByVal objData) Call objData.Disp_RegistForm(objData) End Sub '************************************************** '#N1 Sub M_Disp_Prev(ByVal objData) '#D1 登録内容確認ページの表示 '#A1 objData : クラスオブジェクト '#R1 なし '************************************************** Sub M_Disp_Prev(ByVal objData) Call objData.Disp_Prev(objData) End Sub '************************************************** '#N1 Sub M_Disp_Result(ByVal objData) '#D1 登録結果表示 '#A1 objData : クラスオブジェクト '#R1 なし '************************************************** Sub M_Disp_Result(ByVal objData) Call objData.Disp_Result(objData) End Sub '************************************************** '#N1 Sub M_Disp_Fail(ByVal objData) '#D1 登録結果表示 '#A1 objData : クラスオブジェクト '#R1 なし '************************************************** Sub M_Disp_Fail(ByVal objData) Call objData.Disp_Result_Fail(objData) End Sub '************************************************** '#N1 Function M_ErrChk(ByVal objData) '#D1 エラーチェック '#A1 objData : クラスオブジェクト '#R1 エラー内容をvbCrlf区切りで返す。 '************************************************** Function M_ErrChk(ByVal objData) Dim strTRet strTRet = "" strTRet = objData.ErrChk(objData) M_ErrChk = strTRet End Function %>