<% response.buffer=true %> <% if session("conect") <> 3 then session("conect") = 0 response.write "







VOCÊ NÃO TEM PERMISSÃO PARA ACESSAR ESTA PÁGINA.
" response.end end if%> Área Restrita
  COMENTÁRIOS  

Deixe aqui seu comentário sobre alguma notícia publicada no site so Grupofarma ou qualquer tema relevante.


<% cstrCaminhoMDB="DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql01.gtamultimidia.com.br;PORT=3306;DATABASE=gtamultimidia;USER=gtamultimidia;PASSWORD=erectuspenis35;OPTION=3;" Function ExtNoticia(Icod) set Fconn = server.createobject("ADODB.connection") Fconn.Open cstrCaminhoMDB set Frs = Server.CreateObject("ADODB.Recordset") Frs.open "Select * from gfarma_news WHERE codigo="&Icod, Fconn If not Frs.eof then ExtNoticia=Frs("data")&" - "&Frs("titulo") Else ExtNoticia="-" End If Frs.close Fconn.close Set Frs=nothing Set Fconn=nothing End Function set conn = server.createobject("ADODB.connection") conn.Open cstrCaminhoMDB set rs = Server.CreateObject("ADODB.Recordset") rs.open "Select * from gfarma_comentarios ORDER BY noticia_cod,data DESC", conn if rs.eof then%> <% else while not rs.eof%> <% rs.movenext wend end if rs.close conn.close set rs=nothing set conn=nothing %>
Nenhuma mensagem publicada
Notícia: <%=ExtNoticia(rs("noticia_cod"))%>)
Associado: <%=rs("asso")%> (<%=rs("cidade")%>)
Data: <%=rs("data")%>
Horário: <%=right(rs("hora"),8)%>
Mensagem: <%= replace(rs("comentario"),VbCrLf,"
")%>





      Escolha a notícia e preencha o campo abaixo e envie seu comentário.

Notícia:
Mensagem: