<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set cs_listar2 = Server.CreateObject("ADODB.Recordset") cs_listar2.ActiveConnection = strcon cs_listar2.Source = "SELECT top 1 * FROM LINKS" cs_listar2.CursorType = 0 cs_listar2.CursorLocation = 3 cs_listar2.LockType = 1 cs_listar2.Open() %> :::: Crudivorismo ::::
    Home     Crudivorismo e Ciência Contemporânea   Crudivorismo e Ciência Antiga     Autor
  Força Crua   Emagrecer Cru   Culinária Crudívora   Equipamentos   Links
Feiras Orgânicas   Cursos e Eventos Livros   Indique o site  Translator   Fale Conosco
Desafio Científico Hardware e Software Biológico
<% While (Not cs_listar2.EOF) var_titulo = cs_listar2.Fields.Item("titulo").Value var_chamada = cs_listar2.Fields.Item("chamada").Value var_conteudo = cs_listar2.Fields.Item("conteudo").Value var_id = cs_listar2.Fields.Item("id").Value var_imagem = cs_listar2.Fields.Item("imagem").Value %> <% cs_listar2.MoveNext() Wend %>
     
 

<%=var_conteudo%>