% 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() %>