<%
Set AdoCon = Server.CreateObject("ADODB.Connection")
AdoCon.open "Driver={Microsoft Access Driver (*.mdb)};
Dbq=C:\Db\在庫.mdb; "
%>
<%
SqlStr = "SELECT Q_在庫問合.商品コード,
Q_在庫問合.商品名,
Q_在庫問合.在庫数
FROM Q_在庫問合 WHERE Q_在庫問合.商品コード="
SqlStr =SqlStr & Request.Form("ItemNum")
Set rs = AdoCon.execute(SqlStr)
ItemId = rs.Fields("商品コード")
ItemName = rs.Fields("商品名")
Amount = rs.Fields("在庫数")
%>
<HTML>
<TITLE>Result of Ouery</TITLE>
<BODY>
<P>
<H3>■■■ 商品在庫検索結果 ■■■</H3><BR>
商品番号：<% =ItemId %><BR>
商品名 ：<% =ItemName %><BR>
在庫数 ：<% =Amount %><BR>
<%
Set rs = nothing
Set AdoCon = nothing
%>
<HR align="center"><BR>
<A href="zaiko1.htm">商品番号の入力に戻る
</BODY>
</HTML> |