<% SET RS = Server.CreateObject("ADODB.RecordSet") strSql = "SELECT id_top, texto FROM topcenter " RS.Open strSql, strCon IF Not RS.EOF THEN texto = RS("texto") SET RSf = Server.CreateObject("ADODB.RecordSet") strSqlf = "SELECT imagem FROM topcenter_fotos WHERE id_top='"&RS("id_top")&"'" RSf.Open strSqlf, strCon IF Not RSf.EOF THEN WHILE NOT RSf.EOF imagem = imagem & "" RSf.MoveNext WEND END IF RSf.Close Set RSf = Nothing ELSE Response.Redirect("default.asp") END IF RS.Close Set RS = Nothing %>

Top Center

<%=imagem%>

<%=REPLACE(texto, VBCRLF, "

")%>