Art & Cult - Touth Andrade (Galeria)

<%@ Language=VBScript %> <% 'Script para envio de e-mail em formulário Dim vErro,vSucesso,vErr,vTel,vNomeArtista, vMail, vMailPessoal vTel= "(0xx19) 9777-4578" vNomeArtista = "TOUTH ANDRADE" vMail = "touth.andrade@artecult.com" vMailPessoal = "touth@dglnet.com.br" vErro = "" vSucesso = "../EnvioOK.html" vErr = "../EnvioErro.html" if Request.Form.Count + Request.QueryString.Count > 0 then Call Respform Call Resp '----------------------------------------------------------- Sub Respform() On Error Resume Next Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom vNomeForm = vNomeArtista & ": Contato com o artista" vPara = vMailPessoal vCc = "webmaster@artecult.com" vFrom = Request.Form("txt_email") vAssunto = "ARTECULT.COM: Contato para " & vNomeArtista vData = Date() vData = day(vData) & "/" & month(vData) & "/" & year(vData) vHora = Time() vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" msg = "Formulário " & vNomeForm msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf if Request.ServerVariables("REQUEST_METHOD") = "POST" then for each campo in Request.Form if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & Rep(60,"-") msg = msg & campo & " : " & Request.Form(campo) & VbCrLf end if next else for each campo in Request.QueryString if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & Rep(60,"-") msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf end if next end if msg = msg & Rep(60,"*") enviamail msg,vFrom,vPara,vCc,vAssunto If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if End Sub '----------------------------------------------------------- Function Rep(pRep,pCaracter) Dim linha linha = "" for i = 0 to pRep linha = linha & pCaracter next Rep = linha & VbCrLf End Function '----------------------------------------------------------- Sub enviamail(msg,fr,para,cc,subj) On Error Resume Next Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = fr objMail.To = para objMail.Cc = cc objMail.Subject = subj objMail.Body= msg objMail.importance=2 objMail.Send If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if Set objMail = nothing End Sub '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub end if %> Art & Cult - Touth Andrade (Galeria)

Clique nas imagens para ampliá-las

	"O encontro" óleo s/ tela - 0,60 x 0,70 m ( 1999)
"Intransponível" óleo s/ tela- 0,60 x 0,70 m ( 1999 )		"Maçãs Brasileiras" óleo s/ tela -0,60 x0,70m ( 1999 )
	"Maracujás Brasileiros I" óleo s/ tela - 0,60 x 0,70m ( 1999 )
"Cajus Brasileiros" óleo s/ tela - 0,60 x 0,70 m ( 1999 )		"Papaias Brasileiros" óleo s/ tela - 1,00 x 1,20m
	"Botânica Brasileira" óleo s/ tela - 0,80 x 0,90m
Mangas brasileiras óleo s/ tela 0,60 x 0,70m ( 2000 )		"Nous" óleo s/tela - 0,80 X 0,90m
	Série "Bandeiras Brasileiras"
"Peras Brasileiras" óleo s/ tela - 0,80 X 0,90m		"Lixia Brasileira" óleo s/ tela - 0,50 x0,70m ( 1998 )
	"Sensualidade" óleo s/ tela - 0,60 x 0,70m ( 1998 )
"Sabor da Vida" óleo s/ tela - 0,60 x 0,70m ( 1999 )		"Brasil Humanitário" da Série Bandeiras Brasileiras óleo s/ tela - 0,80 x 0,80m

Curriculum Artístico - Galeria - Contato

Retorna à

webmaster@artecult.com