<% call connect dim nt, id, rs, rt, vd, au, no, vdb, kw id = request.QueryString("id") set rs = con.execute( "SELECT * FROM TB_MENSAGENS WHERE COD_MENSAGEM="&id ) set rt = con.execute( "SELECT * FROM TB_MENSAGENS WHERE COD_MENSAGEM="&id ) set nt = con.execute( "SELECT TOP 4 * FROM TB_NOTICIAS WHERE STATUS=TRUE ORDER BY ID DESC") set vd = con.execute("SELECT TOP 4 * FROM TB_VIDEOS WHERE STATUS=TRUE ORDER BY COD_VIDEO DESC") set au = con.execute("SELECT TOP 3 * FROM TB_AUDIO WHERE STATUS=TRUE ORDER BY ID DESC") set no = con.execute("SELECT TOP 4 * FROM TB_NOVIDADES WHERE STATUS=TRUE ORDER BY ID DESC") set vdb = con.execute("SELECT TOP 1 * FROM TB_BANNER_TOPO WHERE STATUS=TRUE ORDER BY ID DESC") set kw = con.execute("SELECT TOP 1 * FROM TB_KEYWORDS WHERE STATUS=TRUE ORDER BY ID DESC") %> Depoimentos - Alas - <%=rt("titulo")%> " /> " />
<%if (rs("img")<>"") then%>
" width="600" />
<%end if%> <%if (rs("credito_img")<>"") then%>
foto: <%=rs("credito_img")%>
<%end if%>
<%=rs("titulo")%>
<%=replace( rs("texto"), vbcrlf, "
")%>
<%=rs("autor")%>
<%=formatDateTime(rs("data_registro"), 1)%>

Comente este post!

" data-width="560">
<% call desconnect %>