Renaissance des Apellations
<%if request.Form("Submit")<>"" then '/* Destinatário */ 'para = "" para = "" Function aleatorio(quantidade) Dim numero(9) numero(0) = "3" numero(1) = "9" numero(2) = "1" numero(3) = "7" numero(4) = "0" numero(5) = "6" numero(6) = "4" numero(7) = "8" numero(8) = "2" numero(9) = "5" Randomize do while len(senha) < quantidade num = numero(Int(9 * Rnd )) senha = senha + num loop aleatorio = Trim(senha) end function pedido = aleatorio(17) '/* Assunto */ 'subject = request(subject) '/* Mensagem */ mensagem = "" mensagem = "" mensagem = mensagem &"AQUISIÇÃO DE INGRESSO" mensagem = mensagem &"Mensagem Enviada pelo site
" mensagem = mensagem &"
" mensagem = mensagem &"NOME: "&request.Form("nome")&"
" mensagem = mensagem &"Tel:"&request.Form("tel")&"
" mensagem = mensagem &"Celular:"&request.Form("tel2")&"
" mensagem = mensagem &"Email: "&request.Form("email")&"
" if request.Form("organizacao")=1 then mensagem = mensagem &"Sociedade a qual pertence: "&request.Form("sociedade")&"
" total = 126 else mensagem = mensagem &"Não pertence a sociedade" total = 140 end if 'mensagem = mensagem &"Endereço: "&request.Form("endereco")&"
" 'mensagem = mensagem &"Bairro:"&request.Form("bairro")&"
" 'mensagem = mensagem &"Cidade:"&request.Form("cidade")&"
" 'mensagem = mensagem &"Cep:"&request.Form("cep")&"
" 'mensagem = mensagem &"Profissao:"&request.Form("profissao")&"
" 'mensagem = mensagem &"Local de trabalho:"&request.Form("trabalho")&"
" mensagem = mensagem &"Número do boleto:"&pedido&"
" mensagem = mensagem &"Boleto" mensagem = mensagem &"" mensagem = mensagem &"" boleto = "Boleto" 'headers = "MIME-Version: 1.0\n" 'headers .= "Content-type: text/html; charset=iso-8859-1\n" 'headers .= "From: Site \n"; 'headers .= "Return-Path: \n"; ' Enviando a mensagem Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "claudiafusatto@terra.com.br" ' e-mail de quem esta enviando a mensagem Mailer.To = "claudiafusatto@terra.com.br" ' e-mail de quem vai receber a mensagem 'Mailer.CC = "conta@destinatario.com.br" ' Com Cópia Mailer.BodyFormat = 0 ' parametro de formatação Mailer.MailFormat = 0 ' parametro de formatação 'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail Mailer.Subject = "AQUISIÇÃO DE INGRESSO - STELLIUM" Mailer.Body = mensagem Mailer.Send Set Mailer = Nothing %>

SEUS DADOS FORAM RECEBIDOS COM SUCESSO.

<%=boleto%>

<% else %>

AQUISIÇÃO DE INGRESSO

Nome:
Tel:
Cel:
E-mail:
 
Não membro de Sociedade
Membro de sociedade organizada
Organizada
Sociedade à qual pertence:

 


PAGAMENTO:

Via boleto bancário que será gerado automaticamente.
 
<%end if%>