<% response.buffer=true %> <%if session("conect") <> 3 then session("conect") = 0 response.write "







VOCÊ NÃO TEM PERMISSÃO PARA ACESSAR ESTA PÁGINA.
" response.end end if if session("categoria") <> 1 and session("categoria") <> 0 then session("conect") = 0 response.write "







VOCÊ NÃO TEM PERMISSÃO PARA ACESSAR ESTA PÁGINA.
" response.end end if %> Área Restrita - Detalhes <% %>
<% xcod = request.querystring("codusu") if not IsNumeric(xcod) or xcod="" then response.write "







Ocorreram erros durante o processamento da página. #58
" response.end end if Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open caminho rs.open "Select * From gfarma_prevsaude WHERE cod="&int(xcod)&" ", conn if rs.eof then rs.close conn.close set rs = nothing set conn = nothing response.write "







Ocorreram erros durante o processamento da página. #226
" response.end end if %>

Detalhes do Cliente: <%=rs("usuario")%>

Associado: <%=rs("associado")%> - Código: <%=rs("cod_associado")%>

<% IF rs("cpf") <> "" and rs("cpf") <> 0 then numero_1 = "00000000000" numero_2 = rs("cpf") cpf = Cdbl(numero_1) + Cdbl(numero_2) cpf = Right(Cstr(cpf + 1000000000000),Len(numero_1)) cpf = mid(cpf,1,3)&"."&mid(cpf,4,3)&"."&mid(cpf,7,3)&"-"&mid(cpf,10,2) ELSE cpf = "" END IF %>
Status: <%=rs("tipo_operacao")%>
Código:
<%=rs("cod_id_usuario")%>
Cliente:
<%=rs("usuario")%>
Endereço: <%=rs("logradouro_TXT")%>   Nº: <%=rs("logradouro_n")%>
Complemento: <%=rs("complemento")%>   Bairro: <%=rs("bairro")%>
Cidade: <%=rs("cidade")%>   Estado: <%=rs("uf")%>
CEP: <%=rs("cep")%>   DDD: <%=rs("ddd")%> <%=rs("telefone")%>
Sexo: <%=rs("sexo")%>   Data Nasc.: <% numero_1 = "00000000" dt = rs("dt_nasc_TXT") xdt = Cdbl(numero_1) + Cdbl(dt) xdt = Right(Cstr(xdt + 10000000000000),Len(numero_1)) response.write left(xdt,2)&"/"&mid(xdt,3,2)&"/"&right(xdt,4)%>
RG: <%=rs("rg")%> UF: <%=rs("rg_uf")%>   CPF:<%=cpf%>
E-mail: <%=rs("email")%>
Data de Cadastro: <%=rs("d_cad")%>
Data de Alteração: <%=rs("d_alt")%>
Data de Envio: <%=rs("enviado_d")%>
<% rs.close conn.close set rs = nothing set conn = nothing %>