<% 'データベース接続 Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.Mappath("kanri/access/cnt.mdb") StrSQL = "select * from cnt order by yyyymmdd desc" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 ObjRSGoukei = ObjConn.Execute("select sum(cnt) as goukei from cnt") %> <% yyyymmdd = ObjRS("yyyymmdd") cnt = ObjRS("cnt") goukei = ObjRSGoukei("goukei") goukei = goukei + 1 If yyyymmdd <> date Then ObjRS.AddNew ObjRS("yyyymmdd") = date cnt = 0 End If ObjRS("cnt") = cnt + 1 ObjRS.UpDate %> <% 'データベース接続解除 ObjRS.Close Set ObjRS = Nothing ObjConn.Close Set ObjConn = Nothing %>

りそな銀行 http://www.resona-gr.co.jp/resonabank/index.htm みずほ銀行 http://www.mizuhobank.co.jp/ 三菱東京ＵＦＪ銀行 http://www.bk.mufg.jp/ 三井住友銀行 http://www.smbc.co.jp/ 中央労働金庫 http://chuo.rokin.com/ 住宅金融公庫 http://www.jyukou.go.jp/ 〒246-0022横浜市瀬谷区三ツ境7-1 ダイエー三ツ境店内（相鉄線 三ツ境駅 徒歩３分） 不動産のそうご TEL：045(360)5511�� FAX：045(360)5512／E-mail：info@sogok.net