<% %> <% '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 <% else %>

Artigo não localizado, pedimos o favor de nos comunicar através da página de Contatos. Obrigado.

<% end if rs.close set rs = nothing %>
VOLTAR
<% 'Selecionar notícia a ser exibida set rs = conn.execute(" Select * from Noticias where numNoticia="&cint(request("numNoticia"))) if not rs.eof then %>

<%=rs("titulo")%>

<%=replace(rs("texto"),vbcrlf,"
")%>

")%>" class="capa2"><%=replace(rs("foto"),vbcrlf,"
")%>

................................................................................................................................................................................
<% conn.close set conn = nothing %>