<%@language=VBSCript%>
<%option explicit
if request("adm") ="s" then
if session("id") = "" then
Response.Clear
Response.Redirect "expire.asp?FPai=FList"
end if
end if
dim adm
dim acao
dim sql
dim ident
dim nome
dim email
dim telefone
dim empresa
dim ramo
dim RS
adm=request("adm")
acao=request("acao")
ident=request("ident")
nome = ""
email = ""
telefone = ""
empresa = ""
ramo = ""
if acao="xed" and adm="s" then%>
<%
sql = "select * from CadCliente where Ident ="+ident
Set RS = Conn.Execute(sql)
if NOT RS.EOF then
nome = RS("nome")
email = RS("email")
telefone = RS("telefone")
empresa = RS("empresa")
ramo = RS("ramo")
end if
set rs = nothing
set Conn = nothing
end if
%>
Untitled Document
>