<%
'
'Kansou.ASP V0.9 1998.07 HTMLフォームから受け取った感想をファイルに格納する。
'項目を増やしてアンケートなどにも応用可能
' /scripts/にkansou.txtを作成しておく必要がある。
'任意のディレクトリ・ファイル名を指定できる。
'
' 原作者 古口正巳 [koguchi@sf.airnet.ne.jp]1998.07 V 0.9
'
' vb4cgi.incが必要
'
' このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。
' 各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。
'
'
'Option Explicit
Dim sName
Dim sAddress
Dim sKansou
'フォームからのデーターを受け取る
sName = GetCgiValue("name")
sAddress = GetCgiValue("address")
sKansou = GetCgiValue("kansou")
'登録メッセージを送る
SendHeader "感想有り難うございました。"
Send "感想有り難うございました。
"
'フィールドの入力値のチェック
If Trim(sName) = "" Or Trim(sAddress) = "" Or Trim(sKansou) = "" Then
Send "フィールドのいくつかの項目が入力されてません。
" _
& "前の入力フォームに戻ってもう一度実行して下さい。"
sendfooter
response.end 'exit sub
End If
'e-mail addressには "@"が必要
If InStr(sAddress, "@") = 0 Then
Send "電子メールアドレスには" _
& """@""が必要です。"
sendfooter
response.end 'exit sub
End If
'ファイルに格納する。ディレクトリ・ファイル名は変更可能。この例はカンマ区切り出力
Set fs = CreateObject("Scripting.FileSystemObject")
sFilename = Server.MapPath("kansou.txt")
appendafile( sName & "," & sAddress & "," & sKansou & "," & Now)
'完了メッセージ
Send "私どものホームページに感想をお寄せ頂き有り難うございます。
" _
& "今後の参考にさせて頂きます。
"
%>