Untitled Document

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

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 ( p-r Category)

<% call pr() %>

all rights reserved©eartefacts-technologies2005.