| ~いらっしゃいませ!野草茶・ハーブのオリジナルブレンドのお店にようこそ~ | |||||||||||||||||||||||||||||||||||||||||||||||||||
|
◆注文は、「注文フォーム」よりどうぞ!!◆ 2010年 今年も「エコロはるちゃん」よろしくお願いいたします。 【アロマテラピー講座案内】 次回は ■2月18日(木)14:00~ ★アロマ バスボム作り!★ プレゼントにとても喜ばれます! ■ 3月18日(木)14:00~ ★アロマ ハンガリー水作り!★ 「若返りの水」の再現レシピ! ご予約は下の☎かメールまで~ ℡0120-418830 ecoharu@yasoucha.com
大人気!野草茶 【エコロはるちゃん野草おいしいガーデン】 通称:エコロ茶 各誌、メディアでも紹介されています。
■急須のオリジナルを作りました。 はるちゃんデザインの柄です!
|
||||||||||||||||||||||||||||||||||||||||||||||||||
|
(C)2005 Ecoro-HARUchan All Rights Reserved
<%
Rows = 6
Filename = "D:\Inetpub\TrustSite\Yasoucha\Counter\Count.dat"
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
Buff = Right(String(Rows, "0") & Count, Rows)
For i = 1 To Rows
Work = "
|
|||||||||||||||||||||||||||||||||||||||||||||||||||