<% denvia = request.form ("envia")
if denvia ="1" then
dNome = request.form("Nome")
dDDD = request.form("DDD")
dTelefone = request.form("Telefone")
dEmail = request.form("Email")
dAssunto = request.form("Assunto")
dMensagem = request.form("Mensagem")
dData = Now()
Dim Mail, HTML
Set Mail = Server.CreateObject("CDONTS.NewMail")
if dEmail <> "" then
Mail.From = dEmail
else
Mail.From = "remetente@naoIdentificado"
end if
Mail.to = "msavaris@terra.com.br"
Mail.Cc = "monzi@caxias.rs.gov.br"
'Mail.to = "diego@ibservi.com.br"
'Mail.Cc = "comercial@ibshost.com.br"
Mail.Subject = "Contato do Site - "&dAssunto&""
HTML = "Rech&Negrini| | | | | |
De: | "& dNome &" [ "& dEmail &" ] | Telefone: | ("& dDDD &") "& dTelefone &" | | | | | | | "& dAssunto &" | | |
"& dMensagem &"
|
|
| | Postado em: "& dData &" |
"
Mail.BodyFormat=0
Mail.MailFormat=0
Mail.Body=HTML
On Error Resume Next
if Mail.Send then
Response.Write "An error occurred: " & Err.Description
else
Response.write ("
Agredecemos o seu contato.
Em breve estaremos retornando.
")
End If
set Mail=nothing
else%>
<%end if%> |
Endereço:
Avenida José Carlos de Anflor, 457
- Bairro:Kayser
Caxias do Sul-RS - Cep:95096-300
Patrão do Rodeio:
Guerino Pisoni: (54) 8128.8888
Patrão do CTG:
Ivo Scariot: (54) 3226.1300 ou (54) 84181348
Coordenadora Artística:
Marcia Scariot: (54) 9169.6941 - Fax: (54) 3226.2000
Coordenador do Acampamento:
Saul Ramos: (54) 9191.9868
Coordenadora da Charla:
Odila Paese Savaris (54) 9971.1522
Coordenar do Truco:
Carlos: (54) 9165.7405
Comercial:
Valmor: (54) 7811.3924
Patrão Campeira:
Cassiano de Zorzi: (54) 9165.9232
Capataz Campeira:
Liandro Moreira: (54)9113.9480
Gineteada:
Ademar Lazzarotto: (54) 9971.2041
Inscrições da Artística antecipadas::
Gabriela SallesMoccelin
Fone: (54) 9103.4819 - Fax: (54) 3226.2000
|
