<% @LANGUAGE="VBScript" %>

一般に魚市場の競りは早朝に開かれる「朝市」が主だ。 しかし神戸市漁協や明石浦、淡路島の岩屋などの漁協では 午前中に水揚げされた近海物の魚を 昼一番の競りにかける「昼市」が開かれる。 その昼市にかけられた魚を「昼網」と呼ぶ。 <% =CounterW() %> times since 2003/3/1

<% Response.End %> <% Function CounterW() rows=6 filename=Server.MapPath("counter.txt") on error resume next set fileobject=server.createobject("Scripting.filesystemobject") set instream=fileobject.opentextfile(filename,1,false,false) if err.number > 0 then count=0 else count=instream.readline instream.close end if count=count+1 set outstream=fileobject.createtextfile(filename,true,false) outstream.writeline count outstream.close CounterW =count End Function %>