<% 'Abre conexão OLE-DB Dim conn, rs set conn = server.createobject("adodb.Connection") conn.open DSNString if request("javotou")="true" then response.write("") end if 'Cadastra no e-zine If request("email") <> "" then dim str, strBody, noErro, msgErro str = "approved oikjy7" & vbCrLf str = str & "sub " strBody = str & CStr(Session("dsEmailPessoa")) & vbCrLf & "end" End if %> tqm

<% 'Listar Notícias da página inicial set rs = conn.execute(" Select * from Noticias where status=true order by datcria desc") do while not rs.eof %> " target=noticias class="branco"><%=rs("titulo")%>

<% rs.movenext loop rs.close set rs = nothing %>