<%@LANGUAGE="VBSCRIPT"%> <% Response.Charset = "iso-8859-1" %> Rosângela Melo - Site Oficial

<%onCnn%> <% dim sqlResult dim rsResult sqlResult = "select * from "&nameBD&".mural order by idMural desc" set rsResult = Server.CreateObject("adodb.recordset") rsResult.Open sqlResult, cnn if not rsResult.eof then ctd = 1 do while not rsResult.eof ctd = ctd + 1 %> <%if not rsResult("status") = false then%>
Data
Nome
E-mail
Cidade
<%=rsResult("dataMural")%> <%=rsResult("nomeMural")%> <%=rsResult("emailMural")%> <%=rsResult("cidadeMural")%>
Comentário
<%=rsResult("comentarioMural")%>
<%end if%> <% rsResult.moveNext loop %> <% end if %> <%ofCnn%>
Mensagem
Nome:
E-mail:
Cidade:
Comentário
© ROSANGELA MELO- SITE OFICIAL 2011 - TODOS OS DIREITOS SÃO RESERVADOS.