 |
|
|
|
 |
<%
Select Case Trim(Request.QueryString("Action"))
Case "Send"
Dim vShop,vDate,vName,vNum,vCarte,vAddress,vTel,vEmail,vRemark
vShop = Filtering(Trim(Request.Form("Shop")))
Select Case vShop
Case "1"
vShop = "横浜中華街本店"
vCarte = Filtering(Trim(Request.Form("Carte_1")))
Case "2"
vShop = "台場店"
vCarte = Filtering(Trim(Request.Form("Carte_2")))
Case "3"
vShop = "国立茶房"
vCarte = Filtering(Trim(Request.Form("Carte_3")))
End Select
vDate = Trim(Request.Form("Date")(1))&"-"&Trim(Request.Form("Date")(2))&" "&Trim(Request.Form("Date")(3))&":"&Trim(Request.Form("Date")(4))
vName = Filtering(Trim(Request.Form("Name")))
vNum = Trim(Request.Form("Num"))
vAddress = Filtering(Trim(Request.Form("Address")))
vTel = Filtering(Trim(Request.Form("Tel")))
vEmail = Filtering(Trim(Request.Form("Email")))
vRemark = Filtering(Trim(Request.Form("Remark")))
If vShop = "" Then
FoundErr = True
ErrMsg = ErrMsg+"ご利用店舗を選択して下さい。"
End If
If Not IsDate(vDate) Then
FoundErr = True
ErrMsg = ErrMsg+"ご予約希望日時を正確に入力して下さい。"
End If
If vName = "" Then
FoundErr = True
ErrMsg = ErrMsg+"お名前を入力して下さい。"
End If
If Not IsNumeric(vNum) Then
FoundErr = True
ErrMsg = ErrMsg+"人数を正確に入力して下さい。"
End If
If vCarte = "" Then
FoundErr = True
ErrMsg = ErrMsg+"コースを入力して下さい。"
End If
If vAddress = "" Then
FoundErr = True
ErrMsg = ErrMsg+"ご住所を入力して下さい。"
End If
If vTel = "" Then
FoundErr = True
ErrMsg = ErrMsg+"TELを入力して下さい。"
End If
If vEmail = "" Then
FoundErr = True
ErrMsg = ErrMsg+"E-mailを入力して下さい。"
End If
'If vRemark = "" Then
' FoundErr = True
' ErrMsg = ErrMsg+"お問合を入力して下さい。"
'End If
If FoundErr = True Then
%>
<%=ErrMsg%>
前のページに戻る
|
<%
Else
Data = vShop&"|||"&vDate&"|||"&vName&"|||"&vNum&"|||"&vCarte&"|||"&vAddress&"|||"&vTel&"|||"&vEmail&"|||"&vRemark
If Session(Request.ServerVariables("SERVER_NAME")&"_Booking") = False Then
Call E_Send(Trim(Request.Form("Name")),Trim(Request.Form("Email")),"予約情報",E_Content("Booking",Data))
Session(Request.ServerVariables("SERVER_NAME")&"_Booking") = True
End If
If FoundSuc = True Then Response.Redirect("?Action=Fulfill")
End If
Case "Fulfill"
%>
前のページに戻る
|
<%
Case Else
Cue = DateAdd("h",3,Now())
%>
＊ご予約は2日前までにお願いいたします。
＊後日TELまたはメールにて返信いたします。 |
|
<%
End Select
%>
| |
|
|
|
|
