<%
'Busca os dados do usuario na SESSION
'Se nao estiver logado
If Session("idusuario") = "" then
response.Redirect("expirou.asp")
End if
CALL CONECTA()
'Fez o Insert No banco de dados
vsSQL = "SELECT * FROM USUARIOS WHERE IDUSUARIO = "&SESSION("IDUSUARIO")&""
Set RS = oConexao.Execute(vsSQL)
IF RS.EOF THEN
Response.redirect("expirou.asp")
END IF
'Faz com que o Menu de Estado Fique sempre atualizado quando dá Refresh na Página
IF REQUEST.FORM("CONTROLE") = "" THEN
Valor = RS("ESTADO")
email2 = RS("EMAIL")
endereco = rs("endereco")
bairro = rs("bairro")
cidade = rs("cidade")
telefone = rs("telefone")
email = rs("email")
cep = rs("cep")
senha = rs("senha")
ELSE
valor = request.form("estado")
email2 = request.form("email2")
endereco = request.form("endereco")
bairro = request.form("bairro")
cidade = request.form("cidade")
telefone = request.form("telefone")
email = request.form("email")
cep = request.form("cep")
senha = request.form("senha")
end if
'==================== | Faz a Validação dos Campos | ==============================
if request.form("controle") = 1 then
if request.form("endereco") = "" then
erroendereco = "Este campo deve ser preenchido."
errototal = 1 ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("bairro") = "" then
errobairro = "Este campo deve ser preenchido."
errototal = 1 ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("cep") = "" then
errocep = "Este campo deve ser preenchido."
errototal = 1 ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("cidade") = "" then
errocidade = "Este campo deve ser preenchido."
errototal = 1 ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("estado") = "Selected" then
erroestado = "Este campo deve ser preenchido."
errototal = 1 ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("telefone") = "" then
errotelefone = "Este campo deve ser preenchido."
errototal = 1 ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("email") = "" then
erroemail = "Este campo deve ser preenchido."
errototal = 1 ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("senha") = "" then
errosenha = "Este campo deve ser preenchido."
errototal = 1 ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
''''''''''''''''==== Valida o Email do Cara ======---------
email = Request.Form("email")
If email <> "" then
If Instr(email,"@") <> 0 then
variavel_L = len(email)
'-- Localiza posição do @ ----------------------------
Variavel_t = instr(email,"@") + 1
'-- Localiza posição do . apó o @ --------------------
variavel_P = Mid(email,Variavel_t)
'-- Localiza posição do . apó o @ --------------------
variavel_P2 = Instr(email,".")
If Instr(variavel_P,".") = 0 then
'-- Verifica se email tem . apó o @ ------------------
erroemail = "Verifique o e-mail que foi digitado. Formato inválido."
errototal = 1
ElseIf Instr(email,".") = Variavel_t then
'-- Verifica se o ponto esta logo em seguida do @ ---
erroemail = "Verifique o e-mail que foi digitado. Formato inválido."
errototal = 1
ElseIf variavel_P2 = Len(email) then
'-- Verifica se o ponto esta logo em seguida do @ ---
erroemail = "Verifique o e-mail que foi digitado. Formato inválido."
errototal = 1
Else
'Response.Write Lcase(email)
End If
ElseIf Instr(email,"@") = 0 then
erroemail = "Verifique o e-mail que foi digitado. Formato inválido."
errototal = 1
End If
''' Verifica se o e-mail de cima é igual ao de baixo
If trim(Ucase(request.form("email"))) <> trim(ucase(request.form("email2"))) then
erroemail2 = "E-mail não confere com o digitado acima. Digite novamente"
errototal = 1
end if
end if
'Se a sessao expirar novamente bloqueia o acesso
IF SESSION("IDUSUARIO") = "" THEN
Response.redirect("expirou.asp")
END IF
'Se nao tiver erro, altera os dados
IF errototal = "" then
SQL2 = "UPDATE usuarios SET endereco='"&Replace(REQUEST.FORM("endereco"),chr(39),"''") &"',"
SQL2 = SQL2 + "bairro='"&Replace(REQUEST.FORM("bairro"),chr(39),"''") &"',"
SQL2 = SQL2 + "cep='"&Replace(REQUEST.FORM("cep"),chr(39),"''") &"',"
SQL2 = SQL2 + "cidade='"&Replace(REQUEST.FORM("cidade"),chr(39),"''") &"',"
SQL2 = SQL2 + "estado='"&Replace(REQUEST.FORM("estado"),chr(39),"''") &"',"
SQL2 = SQL2 + "email='"&Replace(REQUEST.FORM("email"),chr(39),"''") &"',"
SQL2 = SQL2 + "senha='"&Replace(REQUEST.FORM("senha"),chr(39),"''") &"',"
SQL2 = SQL2 + "telefone='"&Replace(REQUEST.FORM("telefone"),chr(39),"''") &"'"
SQL2 = SQL2 + "WHERE IDUSUARIO="&Replace(SESSION("IDUSUARIO"),chr(39),"''") &""
'Call conecta()
set rs2 = oConexao.execute(SQL2)
Call desconecta()
response.Redirect("areadoassinante.asp")
end if
end if
'==================== | Fim da Validação dos Campos | =============================
%>
