|
分類:[レガシ ASP]
はじめまして
ASPでメールフォームを作成しています。 ここで必須項目に入力がなければ送信できないようにしたいのですが いろいろ調べても分からない状態です。 初心者なもので難題かもしれませんがよろしくお願いします
■aspファイル <BODY> <% Dim CRLF CRLF = Chr(13) & Chr(10) Set objMail = Server.CreateObject("Basp21") sMailServer = "aaaaaaa.co.jp" sTo = "test@aaaaaaa.co.jp"
sOb = "ホームページでのお問い合わせ" sBody = "貴社名 " & Request.Form("company") & CRLF & "部署名 " & Request.Form("section") & CRLF & "氏名 " & Request.Form("name") & CRLF & "郵便番号 " & Request.Form("zip") & CRLF & "所在地 " & Request.Form("address") & CRLF & "電話番号 " & Request.Form("tel") & CRLF & "Eメール " & Request.Form("mail") & CRLF & "コメント " & Request.Form("comment")
WORD = objMail.SendMail(sMailServer, sTo, "FORM MAIL <test@aaaaaaa.co.jp>",sOb, sBody,"")
Response.Write "メールありがとうございました。"
%> </BODY>
■HTML <form action="sendmail.asp" name="reference" method="post"> <input type="hidden" name="title" value="お問い合わせ"> <table border="0" border="0" cellpadding="2" cellspacing="0" width="274"> <tr valign="center"> <td><input type="text" size="30" name="company"></td> </tr> <tr valign="center"> <td><input type="text" size="30" name="section"></td> </tr> <tr valign="center"> <td><input type="text" size="30" name="name"></td> </tr> <tr> <td><input type="text" size="10" name="zip"></td> </tr> <tr> <td><input type="text" size="40" name="address"></td> </tr> <tr> <td><input type="text" size="40" name="tel"></td> </tr> <tr> <td><input type="text" size="40" name="mail"></td> </tr> <tr> <td><textarea name="comment" rows="10" cols="40"></textarea></td> </tr> </table> <table border="0" cellpadding="0" cellspacing="0"> <tr height="30"> <td valign="middle" align="center" height="30"><input type="submit" value=" 送信する " class="button"></td> <td height="30" width="10"><input type="hidden" name="actime"> <input type="hidden" name="appname"> <input type="hidden" name="code"> <input type="hidden" name="version"> <input type="hidden" name="agent"></td> <td valign="middle" align="center" height="30"><input type="reset" value=" キャンセル " class="button"></td> </tr> </table> </form>
長々となりましたが よろしくお願いします
|