<% Option Explicit %> <% Response.Charset= "Shift_JIS" %> Enquete <% Function main() Dim Name, EMail, Indust, Job, Recommend, Know, Outher Dim AllData Dim strMessage Name = Replace(Request.Form("Name"), """", """""") EMail = Replace(Request.Form("EMail"), """", """""") Indust = Replace(Request.Form("Indust"), """", """""") Job = Replace(Request.Form("Job"), """", """""") Recommend = Replace(Request.Form("Recommend"), """", """""") Know = Replace(Request.Form("Know"), """", """""") Outher = Replace(Request.Form("Outher"), """", """""") If Name = "" Then main = """氏名""の欄に値を入力してください。" Exit Function End If AllData = """" & Name & """," AllData = AllData & """" & EMail & """," AllData = AllData & """" & Indust & """," AllData = AllData & """" & Job & """," AllData = AllData & """" & Recommend & """," AllData = AllData & """" & Know & """," AllData = AllData & """" & Outher & """" Dim strFilename Dim FS, outStream Set FS = Server.CreateObject("Scripting.FileSystemObject") strFilename = "c:\data\questionnaire.csv" On Error Resume Next Set outStream = FS.OpenTextFile (strFilename, 8, True, 0) If Err.Number <> 0 Then main = "データを保存しておくための、ファイルが開けませんでした。" Exit Function End If outStream.WriteLine AllData outStream.Close main = "アンケートにご協力いただき、ありがとうございました。" End Function %>

<% = main() %>