<% If Application("site_on_line") = "F" Then Response.Redirect "manutencao.asp" ' ------------------- ' Variáveis da página Dim cont,cursor,links,tabela,classe Dim con,tab,c Dim tipo,coluna ' ----------------------------- ' Carregando variáveis iniciais cursor = Request.QueryString("cursor") If cursor = "" Then cursor = 1 tipo = 6 ' Cozinha ' ----------------------------- ' Conectando com banco de dados objconexSub Application("cristina-arce_conex") ' ---------------------------- ' Inciando parâmetros específicos If Session("parametros_slides") = "" Then iniciarSli tab ' -------------- ' Abrindo tabela tab.Open "Select * from slider where tipo='"&tipo&"' order by id_slider desc limit 4",con ' ------------------------------- ' Contando a quantidade de linhas cont = 0 cont = contarLinhasMic(tab,cont) ' ----------------------------------- ' Descendo até as linhas da paginação descerLinhasMic tab,cursor ' ----------------------------------- ' Criando links de paginação links = geraLinPagMic(cursor,cont,4,"cozinha.asp","") ' ----------------------------------- 'Enviando e-mail DIM email_de,titulo,email_para,nome,email,texto,enviar nome = Request.Form("nome") email = Request.Form("email") comentario = Request.Form("comentarios") email_de = nome&" <"&email&">" titulo = "Mensagem do(a) usuário(a) """&nome&"""" email_para = "Marcílio " texto = "O(a) cliente """&nome&""" enviou a seguinte mensagem:

" texto = texto&comentario If enviar = 1 Then EnviarEmailPersist "smtp.bramidia.com.br",email_de,titulo,email_para,texto,1 End if ' -------------- ' Gerando tabela tabela = "" & Chr(13) ' Gerando primeira linha (imagens) tabela = tabela & "" & Chr(13) coluna = 0 If Not tab.Eof Then While Not tab.Eof And coluna < 5 coluna = coluna + 1 If Not tab.Eof Then tabela = tabela & "" & Chr(13) Else tabela = tabela & " " & Chr(13) End If Else tabela = tabela & "" & Chr(13) End If tab.MoveNext Wend For i = 1 To (4 - coluna) tabela = tabela & "" & Chr(13) Next tab.MoveFirst Else For i=1 to 4 tabela = tabela & "" & Chr(13) Next End If tabela = tabela & "" & Chr(13) ' Gerando segunda linha (descrições) tabela = tabela & "" & Chr(13) coluna = 0 If Not tab.Eof Then While Not tab.Eof And coluna < 5 coluna = coluna + 1 If Not tab.Eof Then tabela = tabela & "" & Chr(13) Else tabela = tabela & "" & Chr(13) End If tab.MoveNext Wend For i = 1 To (4 - coluna) tabela = tabela & "" & Chr(13) Next tab.MoveFirst Else For i=1 to 4 tabela = tabela & "" & Chr(13) Next End If tabela = tabela & "" & Chr(13) tabela = tabela & "
" If tab.Fields("imagem") <> "n" Then tabela = tabela & "      
""" tabela = tabela & tab.Fields("titulo") &"""      
" & Chr(13) tab.Close ' ----------------------------- ' Link para tipo parametrizado If Mid(Session("parametros_slides"),1,1) = "2" Then linkParametrizado = "| Editar Tipos" End If %> CRISTINA-ARCE :::::::::::::::::::::::::::::::::::::::::::::::::::::


CRISTINA ARCE   cidadania | empresária | mídia | pioneirismo | retrospectiva

Italianíssima original, inovadora, audaciosa, de vários talentos, pioneira no país na introdução de hábitos e novos costumes sócio-econômicos e culturais, vanguardista na arte do bem viver e no estilo "Brasil" e o "stilo italianíssimo original e verace". Empresária, criadora de muitas facetas e sucessos.

Suas várias e talentosas aptidões fizeram de sua vida profisional um sucesso pioneiro em várias áreas, desde a indústria náutica esportiva, mobiliário infantil, arquitetura, paisagismo, decoração floral, comportamento, hábitos e costumes, cinema e teatro, eventos, publicidade, gastronomia, decoração de interiores, arte, na tv em mais de 300 programas, e ect.
Parece quase impossível tantos desempenhos, porém através desta nova proposta, Cristina Arce e a "arte de bem viver" poderá ser conferido todo este "mundo profisional" que agora, tentará mais uma vez mostrar com sua vasta experiência e sucessos que a “arte de bem viver” é simplesmente possível para todos em qualquer lugar e cultura porém em especial independe de “questão econômica”. É necessário uma só coisa: “aprender” sempre. ( as inovações pioneiras nunca antes vistas, em várias áreas econômicas do Brasil, introduzidas pela primeira vez por Cristina Arce, hoje movimentam bilhões e bilhões de reais, tanto na economia formal como na informal. Para isto acontecer não foram necessários bilhões e bilhões de reais de investimento e sim um conhecimento de qualidade da sociedade brasileira e de tantas outras altamente renomadas sócio, cultural, economicamente).