<% call connect dim vd, vd2, id, nt, ms, vdb, kw id = request.QueryString("id") set vd = con.execute( "SELECT * FROM TB_VIDEOS WHERE COD_VIDEO=" & id ) set vd2 = con.execute( "SELECT * FROM TB_VIDEOS WHERE COD_VIDEO=" & id ) set nt = con.execute("SELECT TOP 4 * FROM TB_NOTICIAS WHERE STATUS=TRUE ORDER BY ID DESC") set ms = con.execute("SELECT TOP 4 * FROM TB_MENSAGENS WHERE STATUS=TRUE ORDER BY COD_MENSAGEM 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") %> Vídeos - ALAS - IELB - <%=vd2("titulo")%> " /> " />
<%=replace( vd("texto"), vbcrlf, "
")%>
<%=vd("titulo")%>
<%=vd("chamada")%>
publicado: <%=formatDateTime(vd("data_registro"), 1)%>

Comente este post!

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