<% Do %> <% nl = chr(13) & chr(10) Cod = fRQS("Cod") if Cod = "" then exit do sql = "Select * from Dtl where Cod = '" & Cod & "' order by Item" set rs = cx.Execute(sql) if rs.EOF then exit do if rs("Item") = "--" then Response.Write "

" & rs("Ingr") & "

" rs.movenext end if %> <% while not rs.EOF Response.Write nl & "" Response.Write "
IngredientesModo de Fazer
" & replace(rs("Ingr"),chr(13),"
") Response.Write "		" & replace(rs("Prep"),chr(13),"
") rs.MoveNext wend %>
Índice
<% Loop Until True %>