<%
if request("botao") = "Mandar" then
On Error resume Next
Dim TBdy
Dim MyCDO
Dim TFrom
CR = Chr(13)
Set MyCDO = Server.CreateObject("CDONTS.NewMail")
If IsObject (MyCDO) Then
TFrom = request("Departamento")
MyCDO.From = "www.geraldosantana.com.br"
MyCDO.To = TFrom
MyCDO.Subject = "Formulário postado da Homepage do G.S.E. Geraldo Santana"
TBdy = request("nome") & CR & request("telefone") & CR & request("email") & CR
TBdy = TBdy & request("txtMessage")
MyCDO.Body = TBdy
MyCDO.Send
Set MyCDO = nothing
Response.Write("Mensagem enviada.")
Else
Response.Write("
Mensagem não enviada.")
End If
end if
%>
FALE CONOSCO
Grêmio Sargento Expedicionário Geraldo Santana
:: Sede Social:
Rua Luiz de Camões 337 - Porto Alegre RS
Telefone: (51) 3223-5520
:: Colônia de Férias da Av. da Igreja:
Av. da Igreja 900 - Tramandaí - RS
Telefone: (51) 3661-1389 / Fax: (51) 684-2837
:: Colônia de Férias da Plataforma:
Rua Marquês do Herval 1732 - Tramandaí - RS
Telefone: (51) 3661-1666
:: Camping Orlando Nogueira Ramos - Tapes:
Rua Armando Petry S/N - Tapes - RS
Telefone: (51) 3672-1335
:: Camping Lagoa das Custodias:
Av. Fernandes Bastos 4999 - Tramandaí - RS
Telefone: (51) 3661-4505
Retornar