<% '------- Início código ASP ------- If request("nome_piloto") <> "" and request("fone_piloto") <> "" then Dim Mensagem Mensagem = "" Set vbEmail = CreateObject("vbSendMail.clsSendMail") vbEmail.SMTPHost = "192.168.205.1" vbEmail.From = "inscricao_site@jcpedaserra.com.br" vbEmail.FromDisplayName = "Inscrição Site jcpedaserra" 'vbEmail.Recipient = "erno_schaefer@hotmail.com;ernoschaefer@gmail.com;jcpedaserra@gmail.com" vbEmail.Recipient = "erno_schaefer@hotmail.com;jcpedaserra@gmail.com" vbEmail.Subject = "Inscrição 4a OktoberJipe" '--- aqui vc pode mudar mensagem = mensagem & "Ficha de Inscrição 4ª Trilha Oktoberjipe" & vbcrlf & vbcrlf mensagem = mensagem & "------------------ Evento --------------------" & vbcrlf mensagem = mensagem & "Veículo = " & request("veiculo") & vbcrlf mensagem = mensagem & "Marca = " & request("Marca") & vbcrlf mensagem = mensagem & "Ano = " & request("ano_veiculo") & vbcrlf mensagem = mensagem & "Placa = " & request("placa") & vbcrlf mensagem = mensagem & "Tipo de pneu = " & request("tipo_pneu") & vbcrlf & vbcrlf mensagem = mensagem & "------------------ Piloto --------------------" & vbcrlf mensagem = mensagem & "Piloto = " & request("nome_piloto") & vbcrlf mensagem = mensagem & "Fone = " & request("fone_piloto") & vbcrlf mensagem = mensagem & "Endereço = " & request("endereco_piloto") & vbcrlf mensagem = mensagem & "CEP = " & request("cep_piloto") & vbcrlf mensagem = mensagem & "Bairro = " & request("bairro_piloto") & vbcrlf mensagem = mensagem & "Cidade = " & request("cidade_piloto") & vbcrlf mensagem = mensagem & "Estado = " & request("estado_piloto") & vbcrlf mensagem = mensagem & "Email = " & request("email_piloto") & vbcrlf mensagem = mensagem & "------------------ Co-piloto -----------------" & vbcrlf mensagem = mensagem & "Co-piloto = " & request("nome_co-piloto") & vbcrlf mensagem = mensagem & "Fone = " & request("fone_co-piloto") & vbcrlf mensagem = mensagem & "Endereço = " & request("endereco_co-piloto") & vbcrlf mensagem = mensagem & "CEP = " & request("cep_co-piloto") & vbcrlf mensagem = mensagem & "Bairro = " & request("bairro_co-piloto") & vbcrlf mensagem = mensagem & "Cidade = " & request("cidade_co-piloto") & vbcrlf mensagem = mensagem & "Estado = " & request("estado_co-piloto") & vbcrlf mensagem = mensagem & "Email = " & request("email_co-piloto") & vbcrlf mensagem = mensagem & "--------------- Termo de Responsabilidade -------------" & vbcrlf mensagem = mensagem & request("termo_de_responsabilidade") & vbcrlf & vbcrlf & vbcrlf mensagem = mensagem & "_____________________________________________" & vbcrlf mensagem = mensagem & " Piloto - " & request("nome_piloto") & vbcrlf & vbcrlf & vbcrlf & vbcrlf mensagem = mensagem & "_____________________________________________" & vbcrlf mensagem = mensagem & " Co-piloto - " & request("nome_co-piloto") & vbcrlf vbEmail.Message = Mensagem vbEmail.Send mensagem = "ok" End If '------- Fim código ASP ------- %> <% If mensagem = "ok" Then %> !!! Ficha Enviada com Sucesso !!! <% End If %>

FICHA DE CADASTRO(on-line) PARA A 5ª OKTOBERJIPE

Veículo
Marca
Ano Veículo Placa
Tipo de pneu:

Piloto * Fone *
Endereço Cidade
CEP Bairro Estado
e-mail

Co-Piloto Fone
Endereço Cidade
CEP Bairro Estado
e-mail

* Campos obrigatórios

Termo de Responsabilidade:
Eu (piloto) e meu co-piloto, assim como todos os ocupantes de meu veículo, declaramos que estamos nos inscrevendo para participar desta trilha por nossa livre e expontânea vontade e que quaisquer danos que venham a ocorrer com nosso veículo ou ocupantes são de nossa inteira responsabilidade, ficando assim o JIPE CLUBE PÉ-DA-SERRA e a AMIFEST isento de qualquer responsabilidade por perdas ou danos aos participantes da trilha e ou terceiros.

Sua ficha foi reamente enviada quando aparecer a mensagem:
!!! Ficha Enviada com Sucesso !!!
no cabeçalho desta página.
*O envio desta ficha não garante sua inscrição, apenas adianta seu cadastro no dia da inscrição*
*Para que seja realmente efetuada sua inscrição deve ser feito o depósito correspondente*