%
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
%>