%
Dim errorMessage
If (Request.Form("contact_postback") <> "") Then '変数のチェックなど
errorMessage = ""
If Request.Form("name") = "" Then
errorMessage = "・名前が入力されていません
"
End If
If Request.Form("mail") = "" Then
errorMessage = errorMessage & "・メールアドレスが入力されていません
"
End If
If Request.Form("message") = "" Then
errorMessage = errorMessage & "・お問い合わせ内容が入力されていません
"
End If
If errorMessage = "" Then
' 確認画面へ遷移する
Session("company") = Request.Form("company")
Session("name") = Request.Form("name")
Session("phone") = Request.Form("phone")
Session("mail") = Request.Form("mail")
Session("find") = Request.Form("find")
Session("message") = Request.Form("message")
Response.Redirect("confirm.asp")
Else
errorMessage = errorMessage & "
"
End If
End If
%>
![]() |
|
![]() |