<%
DBC = Server.CreateObject("ADODB.Connection");
DBC.Open("tabiPDF");
SQL = "SELECT groupno,name FROM grptbl WHERE (countryno=23) 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 ) {
%>
| <%= Groupname %>
<%
}else{
%>
| | <%= Groupname %>
<%
}
%>
|
| ボックス番号 |
ボックス名称 |
ボックス内容 |
サイズ |
<%
SQL = "SELECT * FROM pdftbl WHERE countryno=23 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");
Comment = new String(RS2.Fields("Comment"));
Disp_flag= RS2.Fields("disp_flag");
%>
| <%= Boxno %> |
<%= Pdfname %> |
<%= Comment %> |
<%= Size %>KB |
<%
RS2.MoveNext();
}
RS2.Close();
%>
<%
RS.MoveNext();
i = i + 1;
if ( i == 3 ) i = 1;
}
RS.Close();
DBC.Close();
%>
|
