my(%AD, %FILE, $template,$catlink);
    $template = &ParseCommonCodes($TEMPLATE{image});
    %AD = &RetrieveAdDB($FORM{id});
    %FILE = 

&RetrieveFilesDB($AD{$FORM{file_id}},'[VIEW_URL]');
    if($FILE{id}){    $template =~ 

s/\[FULLSIZE\]/$FILE{code}/iges;    }
    else{          &
nbsp; $template =~ 

s/\[FULLSIZE\]//i;    }
    foreach (keys %FILE){    $template =~ 

s/\[FILE_$_\]/$FILE{$_}/ig;    }