<% @LANGUAGE = "JScript" %> <% var SQL,DBC,RS,RS2; var Groupno,Grpname; var Message,Loaddate,Lastupdate; var Filename,Pdfname,Boxno,Size,Cdate; var i; %> ドイツ観光局　情報ライブラリ


たびふぁん ドイツ ドイツ
観光局から 基本情報 情報ライブラリ 都市情報 イベント情報
協力・提供：ドイツ観光局
情報ライブラリ

・以下の情報がPDFファイルでご覧になれます。
　なお、これらのファイルを開くには、Adobe Acrobat Readerが必要です。

・また、これらの情報は、ファックス情報サービスでも提供しております。
　同じボックス番号で、お手元のファックス機からご希望の情報がとりだせます。併せてご利用ください。
【情報ボックス項目のタイトル】
<% DBC = Server.CreateObject("ADODB.Connection"); DBC.Open("tabiPDF"); SQL = "SELECT groupno,name FROM grptbl WHERE (countryno=12) order by groupno"; RS = DBC.Execute(SQL); i = 0; for (;;) { if ( RS.EOF ) break; Groupno = RS.Fields("groupno"); Groupname = new String(RS.Fields("name")); i = i + 1; if ( i == 3 ) { %>｜<%= Groupname %>
<% i = 0; } else if ( i > 1 ) { %>｜<%= Groupname %><% } else { %><%= Groupname %><% } RS.MoveNext(); } RS.Close(); DBC.Close(); %>
<% DBC = Server.CreateObject("ADODB.Connection"); DBC.Open("tabiPDF"); SQL = "SELECT groupno,name FROM grptbl WHERE (countryno=12) 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=12 AND grpno="+Groupno+" 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"); %> <% RS2.MoveNext(); } RS2.Close(); %>
<%= Groupname %> <% }else{ %>
<%= Groupname %> <% } %>
ボックス番号 ボックス名称 サイズ
<%= Boxno %> <%= Pdfname %> <%= Size %>KB

<% RS.MoveNext(); i = i + 1; if ( i == 3 ) i = 1; } RS.Close(); DBC.Close(); %>
トップページ・ 観光局から・ 基本情報・ 情報ライブラリ・ 都市情報・ イベント情報
(C) 2000 ドイツ観光局
(C) 2000 KENNEDY INTERNATIONAL