<% strSQL = "SELECT * FROM tbl_noticias WHERE noticia_id = " & Request.QueryString("id") set RSnoticia = objConexao.Execute(strSQL) sub MesclaImagens(texto) texto2 = texto strSQL = "SELECT COUNT(foto_id) AS Contador FROM tbl_fotos WHERE foto_noticia_id = " & Request.QueryString("id") set RSfotos = objConexao.Execute(strSQL) Contador = RSfotos("Contador") strSQL = "SELECT foto_id, foto_descricao, foto_extensao, foto_altura, foto_largura" strSQL = strSQL & " FROM tbl_fotos WHERE foto_noticia_id = " & Request.QueryString("id") set RSfotos = objConexao.Execute(strSQL) Tamanho = Len(texto2) if Contador <> 0 then Pedaco = int(Tamanho/Contador) else Response.Write(texto2) end if for x = 1 to Contador Response.Write "" Response.Write "
" Response.Write "" & RSfotos("foto_descricao") & "
" Response.Write Mid(texto2, 1+(Pedaco*(x-1)), Pedaco) RSfotos.MoveNext next end sub %> ITAJA.COM - NEWS

 

 

<% Response.Write(RSnoticia("noticia_titulo")) %>
<% MesclaImagens(RSnoticia("noticia_texto")) %>

Produção e Criação:  www.itaja.com