トラベルサウスUSA　バージニア州・情報ライブラリ

<% @LANGUAGE = "JScript" %> <% var SQL,DBC,RS,RS2; var Groupno,Grpname; var Message,Loaddate,Lastupdate; var Filename,Pdfname,Boxno,Size,Cdate; var i; %> トラベルサウスUSA　バージニア州・情報ライブラリ

　　世界地図 > アメリカ合衆国地図 > バージニア州

　　バージニア州都市情報　：ウィリアムズバーグ

ファックス情報サービスで提供している、バージニア州の情報をWeb上でもPDFファイルでご覧になれます。
なお、これらのファイルを開くには、Adobe Acrobat Readerが必要です。

<% DBC = Server.CreateObject("ADODB.Connection"); DBC.Open("tabiPDF"); SQL = "SELECT groupno,name FROM grptbl WHERE (countryno=23 and groupno=13) order by groupno"; RS = DBC.Execute(SQL); i = 1; for (;;) { if ( RS.EOF ) break; Groupno = RS.Fields("groupno"); Groupname = new String(RS.Fields("name")); %> <% if ( i == 1 ) { %> <% SQL = "SELECT * FROM pdftbl WHERE countryno=23 AND grpno="+Groupno+" and disp_flag = 0 order by boxno"; RS2 = DBC.Execute(SQL); for (;;) { if ( RS2.EOF ) break; Filename = new String(RS2.Fields("filename")); Pdfname = new String(RS2.Fields("name")); Cdate = new String(RS2.Fields("cdate")); Boxno = RS2.Fields("boxno"); Size = RS2.Fields("filesize"); Comment = new String(RS2.Fields("Comment")); Disp_flag= RS2.Fields("disp_flag"); %> <% RS2.MoveNext(); } RS2.Close(); %>

<%= Groupname %> <% }else{ %>
<%= Groupname %> <% } %>
番号	ボックス名称	ボックス内容	更新日	サイズ
<%= Boxno %>	<%= Pdfname %>	<%= Comment %>	<%= Cdate %>	<%= Size %>kb

↑TOP

<% RS.MoveNext(); i = i + 1; if ( i == 3 ) i = 1; } RS.Close(); DBC.Close(); %>