Pré-Matrícula Online
Nome Completo
RG
CPF
Data de nascimento

E-mail
Fone (DDD + Número)

Nome da mãe
Nome do pai
Endereço completo
Categoria pretendida
Forma de pagamento pretendida


<% enviar = request("enviar") if enviar <> empty then texto = "Nome: " & request("nome") texto = texto & "
RG: " & request("rg") texto = texto & "
CPF: " & request("cpf") texto = texto & "
Data de nascimento: " & request("nascimento") texto = texto & "
E-mail: " & request("email_from") texto = texto & "
Telefone: " & request("telefone") texto = texto & "
Nome da mãe: " & request("mae") texto = texto & "
Nome do pai: " & request("pai") texto = texto & "
Endereço: " & request("endereco") texto = texto & "
Categoria: " & request("categoria") texto = texto & "
Forma de pagamento: " & request("pagamento") corpoMensagem = replace(texto,"'","""") emailenvia = request("email_from") remetente = request("nome") emailrecebe= "autoescolaliberdade@hotmail.com" emailassunto="Contato - Pré Matrícula Site Auto Escola Liberdade" set Conexao = server.createobject("ADODB.Connection") Conexao.Open "Provider=SQLOLEDB.1;SERVER=server1.acessabrasil.com.br;DATABASE=disparoemails;UID=xf2;PWD=E15m17l#;" Conexao.execute "insert into DISPARO (DISPARO_REFERENCIA,DISPARO_REMETENTE_EMAIL,DISPARO_REMETENTE_NOME,DISPARO_DESTINATARIO_EMAIL,DISPARO_DESTINATARIO_NOME,DISPARO_ASSUNTO,DISPARO_MENSAGEM,DISPARO_DATA_AGENDADA,SERVIDOR_ID) values ('AutoEscolaLiberdade','" & emailenvia & "','" & remetente & "','" & emailrecebe & "','" & emailrecebe & "','" & emailassunto & "','" & corpoMensagem & "',getdate(),'5')" %> <% end if %>