取扱商品一覧

<% set Conn = CreateObject("ADODB.Connection") Conn.ConnectionString = "uid=sa;pwd=;driver={SQL Server};server=pserver;database=ASP;dsn=''" Conn.Open set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = Conn strSQL = "SELECT * FROM pmaster WHERE class='1'" cmd.CommandText = strSQL set rs = CreateObject("ADODB.Recordset") rs.Open strSQL,Conn,0,1 rs.MoveFirst Do While not rs.EOF x = "http://www.morritan.co.jp/direct/" & rs("item") & ".htm" %> <% rs.MoveNext Loop rs.Close set cmd = nothing conn.close %>

商品名	商品コード	価格
<% Response.Write rs("brand") %>	<% Response.Write rs("item") %>	<% Response.Write FormatNumber(rs("price"),0,-1,0,-1) %> 円