バックページ・クロノス

Japanese only.
Netscape4.7 & Internet Explorer4.5推奨

　　日本のアンティーク雑貨全般を取り扱っております
　　その他の在庫もございますので、是非お問い合せ下さい
℡　０８６－２２３－００７７　　　　　　　　　　　　　　　　　　　
◎E-Mailchronos@chronos-net.com

◎ 柱時計・置時計
　　　　　　　　　　　　ユンハンス琺瑯文字盤　大理石高砂　　　　　
　　　　　　　　　　　　明治～大正　和ガラス置き時計　
　　　　　　　　　　　　昭和　鳩　麒麟　変形　ウエストミンスター

◎ 和ガラス
　　　　　　　　　　　　　びいどろ　ギヤマン　吹きガラス　色硝子
　　　　　　　　　　　　　氷コップ　アイスクリーム　プレスガラス
　　　　　　　　　　　　　乳白色　変わり文様

YAHOO！オークション『chronos_0077』の出品リストにリンクします。
ご利用下さい！

◎ Go to YAHOO！オークション ◎

〒700-0817
岡山県岡山市
北区弓之町17-7
〈烏城ビル〉

◎TEL&FAX◎
086-223-0077

◎E-Mailchronos@chronos-net.com

◎ MAP ◎

あっぱれに戻る

<% Dim wkKeta Dim wkFileName Dim i,b Dim objFS,objTS1,objTS2 Dim wkHtml Dim wkCount wkKeta = 6 wkFileName = Server.MapPath("count.txt") Dim wkHostAddress wkHostAddress = Request("REMOTE_HOST") Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS1 = objFS.OpenTextFile(wkFileName,1,False) wkCount = objTS1.ReadLine objTS1.Close If (CStr(wkHostAddress) = CStr("210.226.121.192")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.193")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.194")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.195")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.196")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.197")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.198")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.199")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.200")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.201")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.202")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.203")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.204")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.205")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.206")) Or _ (CStr(wkHostAddress) = CStr("210.226.121.207")) Then Else wkCount = wkCount + 1 Set objTS2 = objFS.OpenTextFile(wkFileName,2,False) objTS2.WriteLine wkCount objTS2.Close End If b = Right(String(wkKeta,"0") & wkCount,wkKeta) For i = 1 To wkKeta wkHtml = "

" Response.Write(wkHtml) Next %>