#!/usr/bin/perl #use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html; charset=ISO8859-0\n\n"; use lib "."; use Modulos::ConectaBd; use Modulos::ExecutaBd; use Modulos::Request; $dbh = conectaBanco(); %FORM = processaRequisicao(); print < Franciscanas
END } print <

Seja bem vindo(a) ao nosso site!

Nós Irmãs Franciscanas da Santíssima Trindade te saudamos com PAZ E BEM!!!

Aqui encontrarás um pouco de nossa história e vida. Convidamos você a partilhar conosco de nossa espiritualidade e missão. Para saber como, navegue em nosso site e entre em contato conosco.

Obrigada por nos visitar!
END # LISTAGEM DE PRODUTOS $campos = "arquivo_foto"; $vars = "arquivo"; $lista = "SELECT | FROM fotos_vitrine ORDER BY RAND() LIMIT 4 "; #$campos = "p.id_produto|p.nome|a.arquivo_foto"; #$vars = "id|nome|arquivo"; #$lista = "SELECT | FROM produtos p JOIN fotos_produto a ON p.id_produto = a.id_produto ORDER BY RAND() LIMIT 4"; ($dados, $fetch) = buscaDados($dbh, $lista, $campos, $vars) or die "$DBI::errstr\n"; while( $fetch->() ) { $arquivo = $dados->{arquivo}; $link_fotos = ""; $fim_link = ""; print <
$link_fotos$fim_link


END desconectaBanco($dbh);