<%@Language="VBScript"%> <% Option Explicit %> <% Response.Buffer = True %> <% Dim DB, RS, database, objDB, SQL, i Dim total '#件数 Dim page Dim MAX_PAGE : MAX_PAGE = 5 '#ページ内表示数 If Request.QueryString("pg") = "" Then page = 0 Else page = CInt(Request.QueryString("pg")) End If '//----- DB接続 -----// Set DB = Server.CreateObject("ADODB.Connection") database = server.mappath("../../database/choubei.mdb") objDb = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & database DB.open objDb Set RS = Server.CreateObject("ADODB.Recordset") SQL="SELECT COUNT(CODE) AS TOTAL FROM RES_DATA" RS.Open SQL, DB, 0, 1 total = RS("TOTAL") RS.Close Set RS = Nothing Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT CODE,HN,AREA,VOICE,RES FROM RES_DATA ORDER BY [CODE] DESC" RS.Open SQL, DB, 0, 1 %>

「室屋長兵衛」では、みなさんのお声をお待ちしております。 今すぐ右の「投稿する」ボタンをクリックして下さい。

<% i = 1 Rs.Move page * MAX_PAGE Do until RS.EOF Or i > MAX_PAGE %>

<%= Replace("" & RS("VOICE"),chr(13)," ")%> <%= RS("AREA")%>　<%= RS("HN")%>様 　 <%= Replace("" & RS("RES"),chr(13)," ")%> 　 長兵衛

<% i = i + 1 RS.MoveNext Loop %>

<% If page <> 0 Then %> <<次へ <% End If %>

<% If MAX_PAGE*(page+1) < total Then %> 前へ >> <% End If %>

Copyright 2003 YAMAGEN-JOUZOU co.,ltd. All rights reserved.

<% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %>