確認画面を出す
こんにちは。早速ですが現在下記のようなメールフォームを作成しているのですが、
<%
'On Error Resume Next
If Len(Request("name")) = 0 then
Response.Write "お名前が入力されていません。" & "<br>"
Response.Write "前ページへ戻るボタンを押して下さい。" & "<br>"
Response.Write "<br>"
Response.Write "<input type='button' value='前ページへ戻る' onclick='JavaScript:history.go(-1);'>" & "<br>"
ElseIf Len(Request("mail")) = 0 then
Response.Write "メールアドレスが入力されていません。" & "<br>"
Response.Write "前ページへ戻るボタンを押して下さい。" & "<br>"
Response.Write "<br>"
Response.Write "<input type='button' value='前ページへ戻る' onclick='JavaScript:history.go(-1);'>" & "<br>"
ElseIf Len(Request("message")) = 0 then
Response.Write "お問い合わせ内容が入力されていません。" & "<br>"
Response.Write "前ページへ戻るボタンを押して下さい。" & "<br>"
Response.Write "<br>"
Response.Write "<input type='button' value='前ページへ戻る' onclick='JavaScript:history.go(-1);'>" & "<br>"
else
'メール送信
Set bobj = Server.CreateObject("basp21") ' ASP
svname = "xxxx" ' <== smtp サーバマシン名
mailto = "xxxxx" ' 宛先
mailfrom = "xxxxx" '差出し人
subj = "お問い合わせフォームより" ' 件名
body = "お名前 :"& Request("name") & vbCrLf _
& "電話番号 :"& Request("phone") & vbCrLf _
& "メール :"& Request("mail") & vbCrLf _
& "お問い合わせ内容 :"& Request("message") & vbCrLf
file = ""
rc = bobj.SendMail(svname,mailto,mailfrom,subj,body,file)
if rc <> "" then ' エラーチェック
'エラー!
Response.Write "エラーで送信できませんでした。" & rc & "<br><br>"
else
Response.Write "お問い合わせありがとうございました。" & "<br>"
Response.Write "メールを確認次第ご連絡させていただきます。" & "<br>"
end if
end if
%>
ここで入力させた内容を一度確認画面を出して、送信を行いたいと思うのですが、フォームの引き継ぎ方が分かりません。
どうぞ皆様のお力をお貸し下さい。
宜しくお願いします。
補足
PHPやCGIで作る方法を教えて頂けませんか?