Untitled Document

<% dim conn set conn = Server.CreateObject("ADODB.connection") conn.open "eat2" %> <% sub gi() set rs = conn.execute("Select * from gi") %>

Item Code

Item

Price

<% DO UNTIL rs.eof %>

<%response.write rs.fields("itemcode") %>

<%response.write rs.fields("item") %>

<%response.write rs.fields("price") %>

<%rs.movenext LOOP end sub %>

The price range for items (g-i Category)

<% call gi() %>

all rights reserved©eartefacts-technologies2005.