declare
    RES CLOB;
  BEGIN
:V_HOST := substr(owa_util.get_cgi_env('HTTP_HOST'),1,instr(owa_util.get_cgi_env('HTTP_HOST'),':')-1);
for rec in (select '<span><b>' || '№ ' ||
                       TO_char(row_number() over(order by 1)) || ', ' ||
                       b.group_text||': '||b.caption_txt||', '||to_char(a.foto_time,'DD.MM.YYYY' )||'</b></span><img id="zoom_' || to_char(a.id) ||
                       '"  class="zoomimage" rel="'||b.group_text||'" src=' || CHR(39) ||
                       wwv_flow_utilities.escape_url(:V_HOST ||
                                                     ltrim(a.filepath,'..'),
                                                     'CL8MSWIN1251') ||
                       CHR(39) || ' data-zoom-image=' || CHR(39) ||
                       wwv_flow_utilities.escape_url(:V_HOST ||
                                                     ltrim(a.filepath,'..'),
                                                     'CL8MSWIN1251') ||
                       CHR(39) || '"height="400"' ||
                       ' alt=""  exif="true"/> <a href="' ||
                       wwv_flow_utilities.escape_url(:V_HOST ||
                                                     ltrim(a.filepath,'..'),
                                                     'CL8MSWIN1251') ||
                       '" target="_blank"><img src="' || :V_HOST ||
                       'img_button.png" title="Открыть изображение в отдельном окне"/></a> <div class="clear"></div>' AS HTML_BLOCK
                  from ccred_anketimages_tbl a, ccred_phototyp_to_prj_tbl b
                 where a.anketa_id = :P84_ID
                 and b.prj_id=a.project_id and b.xmltag=a.xmlname
                 order by b.photo_order) loop
      RES :=  REC.HTML_BLOCK;
htp.p(RES);
    end loop;
end;

wwv_flow_utilities.escape_url(:V_HOST ||ltrim(a.filepath,'..'),'CL8MSWIN1251')