ＡＳＰテスト　ＤＢアプリの注文商品の確認のソース

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=x-sjis">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/THEME.CSS" VI6.0THEME="墨絵">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/GRAPH0.CSS" VI6.0THEME="墨絵">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/COLOR0.CSS" VI6.0THEME="墨絵">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/CUSTOM.CSS" VI6.0THEME="墨絵"></HEAD>
<BODY>
<%
set rec_3 = server.CreateObject("ADODB.connection")
rec_3.Open "DSN=test3_db"
set rec3_com = server.CreateObject("ADODB.command")
rec3_com.CommandText="SELECT * FROM cyu_kari " '& _
'"WHERE userid='" & session("s_id") & "' and pass='" & session("s_pass") & "'"
set rec3_com.ActiveConnection = rec_3
set db3=rec3_com.Execute
%>

<P align=center><FONT color=black
face="">現在お選びいただいている商品</FONT></P>

<P align=center>
<TABLE align=center border=1 cellPadding=1 cellSpacing=1 style="WIDTH: 90%"
width=90%>

<TR>
<TD>
<DIV align=center><FONT color=black face="">ＩＳＢＮ</FONT></DIV></TD>
<TD>
<DIV align=center><FONT color=black face="">書名</FONT></DIV></TD>
<TD>
<DIV align=center><FONT color=black face="">数</FONT></DIV></TD>
<TD>
<DIV align=center><FONT color=black face="">金額</FONT></DIV></TD></TR>
<%do while not db3.eof%>

<%
set rec_4 = server.CreateObject("ADODB.connection")
rec_4.Open "DSN=test3_db"
set rec4_com = server.CreateObject("ADODB.command")
rec4_com.CommandText="SELECT * FROM syohin " & _
"WHERE syoid='" & db3("syoid") & "'"
set rec4_com.ActiveConnection = rec_4
set db4=rec4_com.Execute
%>

<TR>
<TD>
<%=db3("syoid")%></TD>
<TD>
<%=db4("syoname")%></TD>
<TD>
<DIV align=right>
<%=db3("kazu")%></DIV></TD>
<TD><DIV align=right>1,250</DIV></TD></TR>
<%db3.movenext%>

<%loop%>

</TABLE></P>

<P align=center><A
href="http://sim2/test3/syo select1.asp"><FONT color=blue face=""
size=2>商品選択のページに戻る</FONT></A></P>

</BODY>
</HTML>