|
<%
'Requisitos todos os campos !
Mnome = replace(request.form("nome"),"'","''")
Muser = replace(request.form("login"),"'","''")
Mpass = replace(request.form("senha"),"'","''")
Mpass2 = replace(request.form("senha2"),"'","''")
Mcidade = replace(request.form("cidade"),"'","''")
Mestado = replace(request.form("estado"),"'","''")
Msite = replace(request.form("site"),"'","''")
Memail = replace(request.form("email"),"'","''")
Mbanner = replace(request.form("banner"),"'","''")
Mtexto = replace(request.form("texto"),"'","''")
'Verifico se aceitou o contrato
if request.form("Aceito") = "sim" then
'Crio um recorset temporário para ver se já existe alguém com aquele nome de usuário
sqltemp = "SELECT * FROM membros where seu_login = '" & Muser & "'"
Set rs_ver_user = Server.CreateObject("ADODB.RecordSet")
rs_ver_user.Open sqltemp, conexao
'Se sim ele mostra um erro
if not rs_ver_user.eof then
response.write "O Login que você utilizou já existe, por favor cadastre outro login.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir nome mostra erro
elseif Mnome = "" then
response.write "O seu nome está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir email mostra erro
elseif Memail = "" then
response.write "O seu email está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir o usuário mostra erro
elseif Muser = "" then
response.write "O seu usuário está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir a senha mostra erro
elseif Mpass = "" then
response.write "A sua senha está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir a confirmação da senha mostra erro
elseif Mpass2 = "" then
response.write "O seu confirmar senha está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir a cidade mostra erro
elseif Mcidade = "" then
response.write "A sua cidade está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir o estado mostra erro
elseif Mestado = "" then
response.write "O seu estado está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir o site mostra erro
elseif Msite = "" then
response.write "O seu site está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir o banner mostra erro
elseif Mbanner = "" then
response.write "O seu banner está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Caso tenha esquecido de inseir o texto de publicidade mostra erro
elseif Mtexto = "" then
response.write "O seu texto está em branco volte e preencha-o.
"
response.write " Voltar "
set rs_ver_user = Nothing
'Senão esqueceu de nada segue em frente
else
set rs_ver_user = Nothing
'Se senha e confirmar senha são iguais ele segue em frente
if Mpass = Mpass2 then
'Registrando o usuário
strHTML = strHTML & "Este e-mail está sendo enviado para a confirmação do seu cadastramento no site "&nomedapagina&"
"
strHTML = strHTML & " Seu Login é: " & Muser &"
"
strHTML = strHTML & " A sua Senha é: " & MPass &"
"
strHTML = strHTML & " Cordialmente,
"
strHTML = strHTML & " Equipe "&nomedapagina&"
"
de = emailAdministrador 'Defino que de = nome
deemail = emailAdministrador 'Defino que Deemail = email
para = Mnome 'Defino que para é igual a emailadministrador que obtido la no config.asp
paraemail = Memail 'Defino que paraemail é igual a emailadministrador que obtido la no config.asp
assunto = "Cadastro no " & nomedapagina 'Defino um assunto
body = strHTML 'Defino o Corpo de MSG
'Apos isso fazemos um include do femail.asp que é a funcao de email%>
<%set Mailer = Nothing
if statusemail = "enviado" then 'Se stastusemail for igual a enviado ele prossegue,esse statusemail é obtido como resultado do include
Sqltemp = "insert into membros (seu_nome,seu_email,sua_cidade,seu_estado,seu_login,sua_senha,imagem,texto,site,conta,creditos) " &_
"values ( '" & MNome & "' ,'" & Memail & "' ,'" & Mcidade & "' , '" & Mestado & "' , '" & Muser & "' , '" & Mpass & "' , '" & Mbanner & "' , '" & Mtexto & "' , '" & Msite & "' , 'Ativado', '"& Pontos &"')"
conexao.execute(sqltemp)
'Se tudo ocorreu bem sera exibidido uma msg de sucesso
response.write " Parabéns você foi cadastrado com sucesso !"
'Senão é pq o email não foi enviado entaum o email é invalido
else
response.write "O email informado está incoreto volte e preencha-o corretamente.
"
response.write " Voltar "
end if
'Se não é pq a senha e confirmar senha está diferente
else
response.write "O seu confirmar senha está em diferente de senha volte e preencha-o.
"
response.write " Voltar "
end if
end if
'Se não é pq não aceitou o contrato
else
response.write "Você não aceitou o contrato.
"
response.write " Voltar "
end if
%>
|