Lista de presentes

<% option explicit %> Lista de presentes

Site hosted by Angelfire.com: Build your free website today!

<% dim Conn,rs,x set Conn = Server.CreateObject("ADODB.Connection") conn.provider="Microsoft.Jet.OLEDB.4.0" conn.open(server.mappath("db/database.mdb")) set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT Codigo,Item,Preco FROM Casamento WHERE Validade = No",conn %>

Escolha um presente

<% do until rs.EOF %> <% for each x in rs.Fields if x.name="Codigo" then %> <% else %> <% end if next %> <% rs.MoveNext %> <% loop rs.close set rs=nothing conn.close set conn=nothing %>

	ITEM	PREÇO
	<% Response.Write(x.value) %>