<% Response.Buffer=True Set fs=Server.CreateObject("Scripting.FileSystemObject") fpath=Server.MapPath("./") & "\count.dat" Set tf=fs.OpenTextFile(fpath,1) cnt=tf.ReadLine cnt=cnt+1 Set tf=Nothing Set tf=fs.OpenTextFile(fpath,2) tf.WriteLine cnt Set tf=Nothing cnt=CStr(cnt) If Len(cnt)<6 Then For i=1 to 6-Len(cnt) zer=zer & "0" Next End If cnt=zer & cnt For i=1 to Len(cnt) imgcnt=imgcnt & "" Next %>

不動産販売の代理業やアパート･マンションの 賃貸総合管理等を行っています。 ※お探しの物件は検索画面へ!!! 賃貸マンション等の商品企画や運営の トータルマネージメント、家賃保証(サブリース)を 行っています。 飲食店経営を行っています。 渋谷に炭火焼肉「牛角」を３店舗、 しゃぶしゃぶ「温野菜」を１店舗展開。 クーポン券もご用意しています。 Count: <%=imgcnt %> World　InterNational　Group