<%@ Language="VBScript" %>
<% GetUrl = Request.ServerVariables("HTTP_REFERER")
y= Year(Now())
m= Month(Now())
'アクセスログ生成
Set fs=CreateObject("Scripting.FileSystemObject")
lognm=Server.MapPath("/u_izumix/Flavia/Concert/10th/log/") & "\10thTitle" & y & m & ".log"
Set ts=fs.OpenTextFile(lognm,8,True)
ts.Write Now & vbTab & GetUrl & vbTab
ts.WriteLine Request.ServerVariables("REMOTE_ADDR")
ts.Close
%>
吹奏楽団アンサンブルフラヴィア 第１０回定期演奏会
