<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> 菜の花畑 お問い合わせフォーム
  もどる
<% DIM fno dim chk(30) dim flg buf = server.mappath(DbName) ret = Tfc.OpenDatabase(cstr(buf)) set basp = server.createobject("basp21") 'フリーコンポーネント for i = 1 to 30 : chk(i) = true : next if Trim(Request.Form("kbn")) = "W" then flg = DataCheck( ) else flg = false end if select case flg case false ret = InputForm( ) case true ret = DataSend( ) ret = KakuninForm( ) end select %> <% function InputForm( ) %>
菜の花畑へのお問い合わせは こちらからどうぞ!
お名前 "> (例 : 村上 花子) <% if chk(1) = false then %> ※入力してください。 <% end if %>
ご連絡先のメールアドレス "> (例 : xxxx@cokky.ne.jp) <% if chk(2) = false then %> ※入力してください。 <% end if %>
メッセージ <% if chk(3) = false then %> ※入力してください。 <% end if %>
 
<% end function %> <% function KakuninForm( ) %>
お問い合わせありがとうございました。
のちほどメールでご連絡いたします。

<% end function %>
<% function DataCheck( ) dim i dim flg if Trim(Request.Form("IT01"))="" THEN chk(1) = false if Trim(Request.Form("IT02"))="" THEN chk(2) = false if Trim(Request.Form("IT03"))="" THEN chk(3) = false flg = true for i = 1 to 30 if chk(i) = false then flg = false next DataCheck = flg end function function DataSend( ) '----------------------------------------------------- 'メール送信 '----------------------------------------------------- dim fno dim gno dim ken1 dim ken2 dim slist dim dt(4) dim buf2 dim nebiki dim kencd dim skin buf = "お名前:" & request.form("IT01") & vbCrLf buf = buf & "連絡先のメールアドレス:" & request.form("IT02") & vbCrLf buf = buf & request.form("IT03") & vbCrLf dt(0) = "www.cokky.ne.jp/mail.cokky.ne.jp:25:60" ' ドメイン名 + SMTP サーバマシン名 + PORT + TIMEOUT 変更必要 dt(1) = "" ' 宛先 変更必要 ' dt(1) = "gogo@cokky.ne.jp" ' 宛先 変更必要 dt(2) = "<" & request.form("IT02") & ">" ' 差出し人 dt(3) = "ホームページからお問合わせ" ' 件名 dt(4) = buf ' 本文 改行は、vbCrLfで buf = basp.SendMail(dt(0),dt(1),dt(2),dt(3),dt(4),"" ) end function %>