<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=x-sjis">
<TITLE>f_受注</TITLE>
</HEAD>
<BODY>
<%
↓ADOのConnectionオブジェクトを生成
If IsObject(Session("ex05_conn")) Then
Set conn = Session("ex05_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "ex05","",""
Set Session("ex05_conn") = conn
End If
%>
<%
If IsObject(Session("f_53D76CE8_rs")) Then
Set rs = Session("f_53D76CE8_rs")
Else
sql = "SELECT [t_受注].[受注ID], [t_受注].[伝票番号], [t_受注].[日付], [t_受注].[顧客ID], [t_顧客].[氏名], [t_受注].[商品ID], [t_商品].[商品名], [t_商品].[販売単価], [t_受注].[数量], [販売単価]*[数量] AS 金額 FROM t_商品 INNER JOIN (t_顧客 INNER JOIN t_受注 ON [t_顧客].[顧客ID]=[t_受注].[顧客ID]) ON [t_商品].[商品ID]=[t_受注].[商品ID] "
↓レコードセットを設定
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("f_53D76CE8_rs") = rs
End If
%>
<TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE="ＭＳ Ｐゴシック" COLOR=#000000><CAPTION><B>f_受注</B></CAPTION></FONT>
<THEAD>
<TR>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=1 FACE="ＭＳ Ｐゴシック" COLOR=#000000>受注ID</FONT></TH>
：
</TR>
</THEAD>
<TBODY>
<%
On Error Resume Next
↓ループによって全レコードを表形式で出力
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#808080 ALIGN=RIGHT><FONT SIZE=2 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("受注ID").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#808080 ALIGN=RIGHT><FONT SIZE=2 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("伝票番号").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#808080 ALIGN=RIGHT><FONT SIZE=2 FACE="ＭＳ Ｐゴシック" COLOR=# ：
000000><%=Server.HTMLEncode(rs.Fields("数量").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#808080 ALIGN=RIGHT><FONT SIZE=2 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("金額").Value)%><BR></FONT></TD>
</TR>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>
|