Untitled Document

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

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 ( m-o Category)

<% call mo() %>

all rights reserved©eartefacts-technologies2005.