<% ans ="" AConame="" 'IPアドレスを取得する' 'ans = request.ServerVariables("SCRIPT_NAME") 'IF InStr(ans,"/beta/") > 0 or InStr(ans,"/Beta/") > 0 then ' AConame = "rikuoh.net_AccessDB" & "beta" 'Else AConame = "rikuoh.net_AccessDB" 'End IF Set conectdb = Server.CreateObject("ADODB.Connection") conectdb.Open AConame set Rec = Server.CreateObject("ADODB.Recordset") Rec.open "acs",conectdb,2,3,2 Rec.MoveLast hizuke = Date If hizuke <> Rec("date") Then Rec.AddNew Rec("date") = Date end if hits = Rec("p2") hits = hits + 1 'データベース書き込み Rec("p2") = hits Rec.UpDate Rec.Close set Rec = Nothing conectdb.Close set conectdb = Nothing %> 陸王．NET　---モータプラザ陸王WEBサイト---

展示車情報
サービス案内
なんでも日記
お店インフォ
お問い合わせ
けいじばん









モータープラザ　陸王　〒870-0952　大分市下郡北３丁目４番３１号
TEL ０９７−５６７−５５１７ FAX ０９７−５６７−５００８
©Copyright 2005 MOTOR PLAZA RIKUOH CO.LTD. All Rights Reserved.