<%@ Language=VBScript %> <% Option Explicit On Error Resume Next Dim Rs,Cn,strSQL Dim pagesize:pagesize=10 Dim pagenum:pagenum=1 Dim page,i Set Cn=Server.CreateObject("ADODB.Connection") Set Rs=Server.CreateObject("ADODB.Recordset") Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WDB\todoroki.mdb" strSQL="SELECT * FROM columnTBL ORDER BY id DESC" Rs.PageSize=pagesize Rs.Open strSQL,Cn,1,3 If Request.QueryString("page")<>"" And IsNumeric(Request.QueryString("page")) Then pagenum=Request.QueryString("page") %> Law-Office-TODOROKI
 ■ 事務所紹介
 | 事務所・執筆・講演
 | スタッフ
 | 経 歴
 | 業 務
 | 顧問契約
 ■ 費用説明
 ■ 法律豆辞典
 | 破産について
 | 担保について
 | 離婚について
 | 刑事事件の進め方
 | 民事再生手続き
 ■ ご相談について
 ■ お問い合わせ
 ■ コラム
    最近の法律・裁判の動向
 ■ アクセス
 ■ リンク
 ■ 個人情報保護方針
 
〒381-0034 
長野市大字高田1337番地1
長野ブルービル5F
TEL:026-223-2321
FAX:026-223-2361
E-mail:low@gol.com
<長野県弁護士会所属>
    弁護士  轟 道弘



<% If Rs.EOF Then %>




現在『時事通信』の書き込みはありません。





<% Else Rs.AbsolutePage=PageNum Page=Rs.PageCount For i=1 To pagesize %>


.gif" width="42" height="39"> <%=Rs("title")%>
)"><%If IsDate(Rs("postdate")) Then Response.Write formatdatetime(Rs("postdate"),1) & "(" & weekdayname(weekday(Rs("postdate"))) & ")"%>

<% If Rs("phot")<>"" Then %> " width="102">
<%=replace(Rs("photcomment"),vbCrLf,"
")%>
<% End If %>
<%=replace(Rs("comment"),vbCrLf,"
")%>

<%If Rs("url")<>"" Then%> " target="_blank"><%=replace(Rs("url"),"http://","")%> <%End If%>
<%=Rs("sitename")%>
<% Rs.MoveNext If Rs.EOF Then exit for Next End If %>


<% If pagenum>1 Then %> <% End If %> <% If Cint(PageNum)1 Then %> <% End If %>