ＡＳＰテスト　ＤＢアプリの商品詳細表示のソース

<%@ Language=VBScript %>
<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>
<%
'---選択された商品の番号を得る
in_sel=Request.Form("submit1")
%>

<%
set rec_2 = server.CreateObject("ADODB.connection")
rec_2.Open "DSN=test3_db"
set rec2_com = server.CreateObject("ADODB.command")
'rec2_com.CommandText="SELECT syoid,syoname,絵f FROM syohin " & _
rec2_com.CommandText="SELECT * FROM syohin " & _
"WHERE syoid='" & in_sel & "'"
set rec2_com.ActiveConnection = rec_2
set db2=rec2_com.Execute
%>

<P></P>

<P align=center><FONT color=black face=""><BR>選択した本の詳細</FONT></P>

<P align=center><FONT color=black face="">

<FORM action="syo select1aa.asp" method=post id=form1 name=form1>
<TABLE align=center border=1 cellPadding=1 cellSpacing=1 height=72
style="HEIGHT: 72px; WIDTH: 90%" width=90%>

<TR>
<TD><FONT color=black face="" size=2>注文ボタンで、　　　に入れられます</FONT></TD>
<TD><INPUT id=submit1 name=submit1 type=submit value="　　注文　　"></TD></TR>
<TR>
<TD><FONT color=black face=""
size=2>商品の選択が終わったら、注文書作成ボタンをクリックしてください　</FONT></TD>
<TD><INPUT id=submit2 name=submit2 type=submit value=注文書作成></TD></TR>
</TABLE>
</P>

<P align=center><FONT color=black face="" size=2></FONT>
<TABLE align=center border=1 cellPadding=1 cellSpacing=1 style="WIDTH: 90%" width = 90%>
<TR>
<TD>
<DIV align=right> </DIV></TD>
<TD>
<DIV align=right><FONT color=black face="">注文数：</FONT>
<INPUT id=text2 name=text2 style="HEIGHT: 20px; WIDTH: 46px"></DIV></TD></TR>
</TABLE>
<TABLE align=center border=1 cellPadding=1 cellSpacing=1 style="WIDTH: 90%" width=90%>

<TR>
<TD><FONT color=black face="" >
ISBN:<%=db2("syoid")%><BR>
<INPUT id=text1 name=text1 type="hidden" value=<%=db2("syoid")%>><BR>
書名：<%=db2("syoname")%><BR>
発行:<BR>
日付:<%=db2("日付")%>

<P></P></FONT></TD>
<TD><DIV align=center><img src=<%=db2("絵f")%>></DIV></TD></TR>
<TR>
<TD colSpan=2><BR>
<FONT color=black face="" size=3>
<%=db2("com")%></FONT></TD></TR>
</TABLE></P>
</FORM>

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

</BODY>
</HTML>