<%
codigo_indicador = Session("indicador")
nome = Request.Form("va_nome")
sexo = Request.Form("sexo")
idade = Request.Form("idade")
pais = Request.Form("pais")
cidade = Request.Form("cidade")
estado = Request.Form("estado")
cep = Request.Form("cep")
ddd1 = Request.Form("ddd1")
tel1 = Request.Form("tel1")
ramal1 = Request.Form("ramal1")
periodo1 = Request.Form("periodo1")
ddd2 = Request.Form("ddd2")
tel2 = Request.Form("tel2")
ramal2 = Request.Form("ramal2")
periodo2 = Request.Form("periodo2")
email = Request.Form("email")
msn = Request.Form("msn")
skype = Request.Form("skype")
email_alternativo = Request.Form("email_alternativo")
preferencia_contato = Request.Form("preferencia_contato")
objetivo = Request.Form("objetivo")
objetivo_mensagem = Request.Form("objetivo_mensagem")
endereco_exterior = Request.Form("endereco_exterior")
pais_exterior = Request.Form("pais_exterior")
cidade_exterior = Request.Form("cidade_exterior")
atuacao_vendas = Request.Form("atuacao_vendas")
atuacao_mensagem = Request.Form("atuacao_mensagem")
login = Request.Form("login")
senha = Request.Form("senha")
if endereco_exterior = 1 then
endereco_exterior = True
else
endereco_exterior = False
end if
if Request.Form("form") = "enviado" then
login_existente = False
email_existente = False
conexao_banco = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\TRABALHOS\Agel\Default\dados\agel.mdb"
'VERIFICA SE O LOGIN INFORMADO JÁ EXISTE
Set verifica_login_cmd = Server.CreateObject ("ADODB.Command")
verifica_login_cmd.ActiveConnection = conexao_banco
verifica_login_cmd.CommandText = "SELECT va_login FROM tb_usuarios Where va_login = '" & login & "'"
verifica_login_cmd.Prepared = true
Set verifica_login = verifica_login_cmd.Execute
if not verifica_login.eof or not verifica_login.bof then
login_existente = True
else
login_existente = False
end if
verifica_login.Close()
Set verifica_login = Nothing
Set verifica_login_cmd = Nothing
'VERIFICA SE O E-MAIL INFORMADO JÁ EXISTE
Set verifica_email_cmd = Server.CreateObject ("ADODB.Command")
verifica_email_cmd.ActiveConnection = conexao_banco
verifica_email_cmd.CommandText = "SELECT va_email FROM tb_usuarios Where va_email = '" & email & "'"
verifica_email_cmd.Prepared = true
Set verifica_email = verifica_email_cmd.Execute
if not verifica_email.eof or not verifica_email.bof then
email_existente = True
else
email_existente = False
end if
verifica_email.Close()
Set verifica_email = Nothing
Set verifica_email_cmd = Nothing
if login_existente = False AND email_existente = False then
cadastra_usuario()
end if
Function cadastra_usuario()
data = now()
codigo = replace(strreverse(second(now) & minute(now) & hour(now) & day(now) & month(now) & year(now) & strreverse(time())),":","")
'CADASTRA USUÁRIO NO BANCO
Set cadastra_usuario = Server.CreateObject("ADODB.COMMAND")
cadastra_usuario.ActiveConnection = conexao_banco
cadastra_usuario.Commandtext = "INSERT INTO tb_usuarios (codigo_usuario, va_login, va_senha, codigo_indicador, va_nome, va_sexo, va_idade, va_pais, va_cidade, va_estado, va_cep, int_ddd1, int_tel1, int_ramal1, va_periodo1, int_ddd2, int_tel2, int_ramal2, va_periodo2, va_email, va_email_alternativo, va_msn, va_skype, va_preferencia_contato, va_objetivo, va_objetivo_mensagem, in_confirma_exterior, pais_exterior, cidade_exterior, va_atuacao_vendas, va_atuacao_mensagem, dt_cadastro) VALUES ('"& codigo &"', '"& login &"', '"& senha &"', '"& codigo_indicador &"', '"& nome &"', '"& sexo &"', '"& idade &"', '"& pais &"', '"& cidade &"', '"& estado &"', '"& cep &"', "& ddd1 &", "& tel1 &", "& ramal1 &", '"& periodo1 &"', "& ddd2 &", "& tel2 &", "& ramal2 &", '"& periodo2 &"', '"& email &"', '"& email_alternativo &"', '"& msn &"', '"& skype &"', '"& preferencia_contato &"', '"& objetivo &"', '"& objetivo_mensagem &"', "& endereco_exterior &", '"& pais_exterior &"', '"& cidade_exterior &"', '"& atuacao_vendas &"', '"& atuacao_mensagem &"', '"& data &"')"
cadastra_usuario.Prepared = true
cadastra_usuario.Execute
cadastra_usuario.ActiveConnection.Close
Set cadastra_usuario = Nothing
end Function
end if
%>
Equipe Agel Brasil // Vídeos
<% if login_existente = True then %>
<% else if email_existente = True then %>
<% end if %>
<% end if %>
Pré-Cadastro
Faça seu pré-registro agora mesmo, sem nenhum custo.
Garanta a sua posição e receba seu website grátis.
Se você está realmente interessado em ser um PIONEIRO DA AGEL e FAZER PARTE DA NOSSA EQUIPE, entre em contato conosco preenchendo e enviando suas informações através do FORMULÁRIO PARA CONTATO abaixo. Você receberá gratuitamente o seu website e o Guia de Início Rápido da Equipe Agel.
REGRAS
PARA O FORMULÁRIO:
Não
utilize a tecla Enter nos campos para
evitar transmissão parcial.
Para alternar de um campo para outro,
utilize a tecla Tab ou alterne com
o auxílio do mouse.
No formulário existem campos de preenchimento livre, tais como Nome, Cidade, Questões, etc. Se o seu texto for ultrapassar o tamanho de um campo desse tipo, continue digitando normalmente que o receberemos por completo.
Ao
enviar o formulário, evite
a transmissão em duplicidade
clicando somente uma vez no botão
ENVIAR. O sistema confirmará
o envio em seguida através
de uma página de confirmação.
