<%
'Chama os dados do cliente
sql="SELECT nome,contato,email,senha,nascimento,cpf,rg,endereco,bairro,cidade,estado,cep,pais,tel FROM clientes WHERE email='"&Cripto(session("usuario"),true)&"';"
'response.write "
sql :"&sql
'response.write "
sessao :"&session("usuario")
'response.end
Set dados = abredb.Execute(sql)
if dados.EOF OR dados.EOF then
abredb.close
set abredb = nothing
response.redirect "default.asp"
else
'Chama as variaveis
strNome = Cripto(dados("nome"),false)
strEmail = Cripto(dados("email"),false)
strNasc = Cripto(dados("nascimento"),false)
strCpf = Cripto(dados("cpf"),false)
strRg = Cripto(dados("rg"),false)
strEndereco = Cripto(dados("endereco"),false)
strBairro = Cripto(dados("bairro"),false)
strCidade = Cripto(dados("cidade"),false)
strEstado = Cripto(dados("estado"),false)
strCep = Cripto(dados("cep"),false)
strPais = Cripto(dados("pais"),false)
strFone = Cripto(dados("tel"),false)
strContato = Cripto(dados("contato"),false)
numero = Instr(1,strNasc,"/")
dia = Left(strNasc,numero)
'Tira letras da variavel "dia"
s=""
for x=1 to len(dia)
ch=mid(dia,x,1)
if asc(ch)>=48 and asc(ch)<=57 then
s=s & ch
end if
next
dia = s
'Transforma o mes em numeros
mes = Mid(strNasc,4,2)
if mes = "01" then
mes = "Jan"
end if
if mes = "02" then
mes = "Fev"
end if
if mes = "03" then
mes = "Mar"
end if
if mes = "04" then
mes = "Abr"
end if
if mes = "05" then
mes = "Mai"
end if
if mes = "06" then
mes = "Jun"
end if
if mes = "07" then
mes = "Jul"
end if
if mes = "08" then
mes = "Ago"
end if
if mes = "09" then
mes = "Set"
end if
if mes = "10" then
mes = "Out"
end if
if mes = "11" then
mes = "Nov"
end if
if mes = "12" then
mes = "Dez"
end if
ano = Right(strNasc,4)
dados.Close
set dados = Nothing
%>
<%=strLg4%> » <%=strLg9%>
<%=strLg104%>
<%=strLg105%>
<%end if%>
|
|