<%@ 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 - NEO ARTÍSTICA (Galeria)
Clique nas imagens para ampliá-las
Obs:
Todas as imagens contidas neste website são protegidas
por Copyright e não podem ser reproduzidas sem
o expresso consentimento da artista
*.
Editoras
e Gráficas
- Ilustrações de Livros
- Cartões de Visita,etc..
2002
Editoras
e Gráficas
- Ilustrações de Livros
- Cartões de Visita,etc..
2002
Geométrico
2003
Geométrico
2002
Design
de Jóia
Tela
(casario)
2002
Tela
(casario)
2002
Casario
(exemplo de publicidade)
2003
Geométrico
(exemplo de publicidade)
2001
Design
de Jóia
1991
*
A reprodução e/ou utilização
destas imagens sem o consentimento da artista será
ilegal. Contra atitudes desta natureza serão tomadas
todas as providências cabíveis.
