<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_batatas Dim rs_batatas_numRows Set rs_batatas = Server.CreateObject("ADODB.Recordset") rs_batatas.ActiveConnection = MM_conexao_STRING rs_batatas.Source = "SELECT * FROM kitannda.batatas ORDER BY nome ASC" rs_batatas.CursorType = 0 rs_batatas.CursorLocation = 2 rs_batatas.LockType = 1 rs_batatas.Open() rs_batatas_numRows = 0 %> <% Dim Repeatrs_batatas__numRows Dim Repeatrs_batatas__index Repeatrs_batatas__numRows = -1 Repeatrs_batatas__index = 0 rs_batatas_numRows = rs_batatas_numRows + Repeatrs_batatas__numRows %> KITANNDA - Batata Suíça Google+
   
   
 
   
  <% While ((Repeatrs_batatas__numRows <> 0) AND (NOT rs_batatas.EOF)) %>
         
<%=(rs_batatas.Fields.Item("nome").Value)%> <%=(rs_batatas.Fields.Item("ingredientes").Value)%>   R$ <%=(rs_batatas.Fields.Item("pequena").Value)%>   R$ <%=(rs_batatas.Fields.Item("grande").Value)%>
_____________________________________________________________________
<% Repeatrs_batatas__index=Repeat1__index+1 Repeatrs_batatas__numRows=Repeat1__numRows-1 rs_batatas.MoveNext() Wend %>
 
 
<% rs_batatas.Close() Set rs_batatas = Nothing %>