<%@ Language=VBScript %> <%Option Explicit%> 平和タクシーごあいさつ
マイカー同様に自宅から好きな時に好きな場所へ行けるタクシーは、クルマ社会が生み出した快適さを全ての人々にお届けする役割を担っています。
私たち平和タクシーは人工衛星によるGPSを導入し、あらゆるサービスを充実させ、街のサポーターとしてのタクシーの未来像を描いて行きます。
平和タクシー株式会社
〒700-0822　岡山県岡山市北区表町3-10-1-201
●岡山営業所　：tel.086-223-4141
●倉敷営業所　：tel.086-425-6181
●高梁営業所　：tel.0866-22-3177
●西大寺営業所：tel.086-943-6161
メールはこちらへどうぞ　yoyaku4141@heiwa-taxi.co.jp
最終更新日：平成23年11月14日



あっぱれ
あっぱれに戻る
<% Dim wkKeta Dim wkFileName Dim i,b Dim objFS,objTS1,objTS2 Dim wkHtml Dim wkCount wkKeta = 6 wkFileName = Server.MapPath("count.txt") Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS1 = objFS.OpenTextFile(wkFileName,1,False) wkCount = objTS1.ReadLine objTS1.Close wkCount = wkCount + 1 Set objTS2 = objFS.OpenTextFile(wkFileName,2,False) objTS2.WriteLine wkCount objTS2.Close b = Right(String(wkKeta,"0") & wkCount,wkKeta) For i = 1 To wkKeta wkHtml = "" Response.Write(wkHtml) Next %>