%
if Request.Form("acao") = "cadastrar" then
email = request.form("email")
senha = request.form("senha")
nome = request.form("nome")
cep = request.form("cep")
address = Trim(request.form("endereco"))
bairro = request.form("bairro")
cidade = request.form("cidade")
estado = request.form("estado")
if request.Form("cpf") <> "" then
cpf = request.form("cpf")
else
cpf = "Não informado"
end if
if request.form("telefone") <> "" then
telefone = request.form("telefone")
else
telefone = "Não informado"
end if
query = "SELECT email, tipo FROM user_site WHERE email= '" & email & "'"
objreg.Open query
if objreg.EOF then
query = "INSERT INTO user_site (email, senha, nome, cep, cpf, address, bairro, cidade, estado, telefone, dataatual, tipo)" & _
"VALUES ('" & email & "','" & senha & "','" & nome & "','" & cep & "','" & cpf & "','" & address & "'," & _
"'" & bairro & "', '" & cidade & "', '" & estado & "', '" & telefone & "','" & now() & "', 'user')"
objreg.Close
objreg.open query
aviso = "Cadastro realizado com sucesso!"
Else
if objreg("tipo") = "user" then
aviso = "Esse E-MAIL já existe em nosso cadastro!
Voltar
"
else
%>
<%
query = "UPDATE user_site SET senha='" & senha & "', nome='" & nome & "', cep='" & cep & "', cpf='" & cpf & "', bairro='" & bairro & "', cidade='" & cidade & "', estado='" & estado & "', telefone='" & telefone & "', dataatual='" & now() & "', tipo='user' WHERE email='" & email & "'"
objreg.Close
objreg.open query
query = "UPDATE user_site SET address='" & address & "'"
'response.Write "query=" & query
objreg.open query
aviso = "Você já possui cadastro para receber informativos.
Seu cadastro foi atualizado com sucesso!
Agora você tem acesso a área de receitas. Aproveite!"
end if
End if
End if
%>
|
|
|
|
|
|
|
Se cadastrando você terá acesso a seção
de receitas e poderá enviar suas receitas para nosso site
e mostrar a todos o seu talento. Participe!
|
|
<% =aviso %>
|
<% if Request.Form("acao") <> "cadastrar" then %>
|
|
|
|
|