%
if request("acao1")="excluir" then
connbase.execute ("delete from cli where id_cliente =" & request("deleta"))
response.redirect "index.asp"
end if
if request("modo")="salva" then
nome = ucase(replace(request("nome"),"'",""))
apelido = ucase(replace(request("apelido"),"'",""))
sexo = ucase(replace(request("sexo"),"'",""))
dt_nascimento_dia = ucase(trim(replace(request("dt_nascimento_dia"),"'",""))) : IF dt_nascimento_dia = "" THEN dt_nascimento_dia = "11"
dt_nascimento_mes = ucase(trim(replace(request("dt_nascimento_mes"),"'",""))) : IF dt_nascimento_mes = "" THEN dt_nascimento_mes = "11"
dt_nascimento_ano = ucase(trim(replace(request("dt_nascimento_ano"),"'",""))) : IF dt_nascimento_ano = "" THEN dt_nascimento_ano = "1111"
dt_nascimento = dt_nascimento_mes&"/"&dt_nascimento_dia&"/"&dt_nascimento_ano
endereco_comercial = ucase(replace(request("endereco_comercial"),"'",""))
numero_comercial = ucase(trim(replace(request("numero_comercial"),"'","")))
compl_end_comercial = ucase(replace(request("compl_end_comercial"),"'",""))
bairro_comercial = ucase(replace(request("bairro_comercial"),"'",""))
cep_comercial_nro = ucase(trim(replace(request("cep_comercial_nro"),"'",""))) : IF cep_comercial_nro = "" THEN cep_comercial_nro = "00000"
cep_comercial_dig = ucase(trim(replace(request("cep_comercial_dig"),"'",""))) : IF cep_comercial_dig = "" THEN cep_comercial_dig = "000"
cep_comercial = cep_comercial_nro & cep_comercial_dig
cidade_comercial = ucase(replace(request("cidade_comercial"),"'",""))
uf_comercial = ucase(replace(request("uf_comercial"),"'",""))
telefone_comercial_ddd = ucase(trim(replace(request("telefone_comercial_ddd"),"'",""))) : IF telefone_comercial_ddd = "" THEN telefone_comercial_ddd = "00"
telefone_comercial_nro = ucase(trim(replace(request("telefone_comercial_nro"),"'",""))) : IF telefone_comercial_nro = "" THEN telefone_comercial_nro = "00000000"
telefone_comercial = telefone_comercial_ddd & telefone_comercial_nro
fax_comercial_ddd = ucase(trim(replace(request("fax_comercial_ddd"),"'",""))) : IF fax_comercial_ddd = "" THEN fax_comercial_ddd = "00"
fax_comercial_nro = ucase(trim(replace(request("fax_comercial_nro"),"'",""))) : IF fax_comercial_nro = "" THEN fax_comercial_nro = "00000000"
fax_comercial = fax_comercial_ddd & fax_comercial_nro
endereco_residencial = ucase(replace(request("endereco_residencial"),"'",""))
numero_residencial = ucase(replace(request("numero_residencial"),"'",""))
complemento_residencial = ucase(replace(request("complemento_residencial"),"'",""))
bairro_residencial = ucase(replace(request("bairro_residencial"),"'",""))
cep_residencial_nro = ucase(trim(replace(request("cep_residencial_nro"),"'",""))) : IF cep_residencial_nro = "" THEN cep_residencial_nro = "00000"
cep_residencial_dig = ucase(trim(replace(request("cep_residencial_dig"),"'",""))) : IF cep_residencial_dig = "" THEN cep_residencial_dig = "000"
cep_residencial = cep_residencial_nro & cep_residencial_dig
cidade_residencial = ucase(replace(request("cidade_residencial"),"'",""))
uf_residencial = ucase(replace(request("uf_residencial"),"'",""))
telefone_residencial_ddd = ucase(trim(replace(request("telefone_residencial_ddd"),"'",""))) : IF telefone_residencial_ddd = "" THEN telefone_residencial_ddd = "00"
telefone_residencial_nro = ucase(trim(replace(request("telefone_residencial_nro"),"'",""))) : IF telefone_residencial_nro = "" THEN telefone_residencial_nro = "00000000"
telefone_residencial = telefone_residencial_ddd & telefone_residencial_nro
fax_residencial_ddd = ucase(trim(replace(request("fax_residencial_ddd"),"'",""))) : IF fax_residencial_ddd = "" THEN fax_residencial_ddd = "00"
fax_residencial_nro = ucase(trim(replace(request("fax_residencial_nro"),"'",""))) : IF fax_residencial_nro = "" THEN fax_residencial_nro = "00000000"
fax_residencial = fax_residencial_ddd & fax_residencial_nro
celular_ddd = ucase(trim(replace(request("celular_ddd"),"'",""))) : IF celular_ddd = "" THEN celular_ddd = "00"
celular_nro = ucase(trim(replace(request("celular_nro"),"'",""))) : IF celular_nro = "" THEN celular_nro = "00000000"
celular = celular_ddd & celular_nro
email = ucase(trim(replace(request("email"),"'","")))
site = ucase(trim(replace(request("site"),"'","")))
rg = ucase(trim(replace(request("rg"),"'","")))
cpf = ucase(trim(replace(request("cpf"),"'","")))
id_empresa = ucase(trim(replace(request("id_empresa"),"'","")))
id_categoria = ucase(trim(replace(request("id_categoria"),"'","")))
observacoes = replace(replace(request("observacoes"),"'",""),vbCRLF,"
")
SQL = ""
SQL = SQL & "set dateformat dmy insert into cli (nome,apelido,sexo,dt_nascimento,endereco_comercial,numero_comercial,compl_end_comercial,bairro_comercial,cep_comercial,cidade_comercial,uf_comercial,telefone_comercial,fax_comercial,endereco_residencial,numero_residencial,complemento_residencial,bairro_residencial,cep_residencial,cidade_residencial,uf_residencial,telefone_residencial,fax_residencial,celular,email,site,rg,cpf,observacoes,id_empresa,id_categoria,status, dt_inscricao)"
SQL = SQL & "values( "
SQL = SQL & "'" & nome & "',"
SQL = SQL & "'" & apelido & "',"
SQL = SQL & "'" & sexo & "',"
SQL = SQL & "'" & dt_nascimento & "',"
SQL = SQL & "'" & endereco_comercial & "',"
SQL = SQL & "'" & numero_comercial & "',"
SQL = SQL & "'" & compl_end_comercial & "',"
SQL = SQL & "'" & bairro_comercial & "',"
SQL = SQL & "'" & cep_comercial & "',"
SQL = SQL & "'" & cidade_comercial & "',"
SQL = SQL & "'" & uf_comercial & "',"
SQL = SQL & "'" & telefone_comercial & "',"
SQL = SQL & "'" & fax_comercial & "',"
SQL = SQL & "'" & endereco_residencial & "',"
SQL = SQL & "'" & numero_residencial & "',"
SQL = SQL & "'" & complemento_residencial & "',"
SQL = SQL & "'" & bairro_residencial & "',"
SQL = SQL & "'" & cep_residencial & "',"
SQL = SQL & "'" & cidade_residencial & "',"
SQL = SQL & "'" & uf_residencial & "',"
SQL = SQL & "'" & telefone_residencial & "',"
SQL = SQL & "'" & fax_residencial & "',"
SQL = SQL & "'" & celular & "',"
SQL = SQL & "'" & email & "',"
SQL = SQL & "'" & site & "',"
SQL = SQL & "'" & rg & "',"
SQL = SQL & "'" & cpf & "',"
SQL = SQL & "'" & observacoes & "',"
SQL = SQL & "'" & id_empresa & "',"
SQL = SQL & "'" & id_categoria & "', "
SQL = SQL & request("status") & ", getdate())"
'response.write SQL
connbase.execute (SQL)
end if
if request("modo")="edita" then
nome = ucase(replace(request("nome"),"'",""))
apelido = ucase(replace(request("apelido"),"'",""))
sexo = ucase(replace(request("sexo"),"'",""))
if request("dt_nascimento_dia")<> "" then
dt_nascimento_dia = ucase(trim(replace(request("dt_nascimento_dia"),"'",""))) : IF dt_nascimento_dia = "" THEN dt_nascimento_dia = "11"
dt_nascimento_mes = ucase(trim(replace(request("dt_nascimento_mes"),"'",""))) : IF dt_nascimento_mes = "" THEN dt_nascimento_mes = "11"
dt_nascimento_ano = ucase(trim(replace(request("dt_nascimento_ano"),"'",""))) : IF dt_nascimento_ano = "" THEN dt_nascimento_ano = "1111"
dt_nascimento = dt_nascimento_mes&"/"&dt_nascimento_dia&"/"&dt_nascimento_ano
end if
endereco_comercial = ucase(replace(request("endereco_comercial"),"'",""))
numero_comercial = ucase(trim(replace(request("numero_comercial"),"'","")))
compl_end_comercial = ucase(replace(request("compl_end_comercial"),"'",""))
bairro_comercial = ucase(replace(request("bairro_comercial"),"'",""))
cep_comercial_nro = ucase(trim(replace(request("cep_comercial_nro"),"'",""))) : IF cep_comercial_nro = "" THEN cep_comercial_nro = "00000"
cep_comercial_dig = ucase(trim(replace(request("cep_comercial_dig"),"'",""))) : IF cep_comercial_dig = "" THEN cep_comercial_dig = "000"
cep_comercial = cep_comercial_nro & cep_comercial_dig
cidade_comercial = ucase(replace(request("cidade_comercial"),"'",""))
uf_comercial = ucase(replace(request("uf_comercial"),"'",""))
telefone_comercial_ddd = ucase(trim(replace(request("telefone_comercial_ddd"),"'",""))) : IF telefone_comercial_ddd = "" THEN telefone_comercial_ddd = "00"
telefone_comercial_nro = ucase(trim(replace(request("telefone_comercial_nro"),"'",""))) : IF telefone_comercial_nro = "" THEN telefone_comercial_nro = "00000000"
telefone_comercial = telefone_comercial_ddd & telefone_comercial_nro
fax_comercial_ddd = ucase(trim(replace(request("fax_comercial_ddd"),"'",""))) : IF fax_comercial_ddd = "" THEN fax_comercial_ddd = "00"
fax_comercial_nro = ucase(trim(replace(request("fax_comercial_nro"),"'",""))) : IF fax_comercial_nro = "" THEN fax_comercial_nro = "00000000"
fax_comercial = fax_comercial_ddd & fax_comercial_nro
endereco_residencial = ucase(replace(request("endereco_residencial"),"'",""))
numero_residencial = ucase(replace(request("numero_residencial"),"'",""))
complemento_residencial = ucase(replace(request("complemento_residencial"),"'",""))
bairro_residencial = ucase(replace(request("bairro_residencial"),"'",""))
cep_residencial_nro = ucase(trim(replace(request("cep_residencial_nro"),"'",""))) : IF cep_residencial_nro = "" THEN cep_residencial_nro = "00000"
cep_residencial_dig = ucase(trim(replace(request("cep_residencial_dig"),"'",""))) : IF cep_residencial_dig = "" THEN cep_residencial_dig = "000"
cep_residencial = cep_residencial_nro & cep_residencial_dig
cidade_residencial = ucase(replace(request("cidade_residencial"),"'",""))
uf_residencial = ucase(replace(request("uf_residencial"),"'",""))
telefone_residencial_ddd = ucase(trim(replace(request("telefone_residencial_ddd"),"'",""))) : IF telefone_residencial_ddd = "" THEN telefone_residencial_ddd = "00"
telefone_residencial_nro = ucase(trim(replace(request("telefone_residencial_nro"),"'",""))) : IF telefone_residencial_nro = "" THEN telefone_residencial_nro = "00000000"
telefone_residencial = telefone_residencial_ddd & telefone_residencial_nro
fax_residencial_ddd = ucase(trim(replace(request("fax_residencial_ddd"),"'",""))) : IF fax_residencial_ddd = "" THEN fax_residencial_ddd = "00"
fax_residencial_nro = ucase(trim(replace(request("fax_residencial_nro"),"'",""))) : IF fax_residencial_nro = "" THEN fax_residencial_nro = "00000000"
fax_residencial = fax_residencial_ddd & fax_residencial_nro
celular_ddd = ucase(trim(replace(request("celular_ddd"),"'",""))) : IF celular_ddd = "" THEN celular_ddd = "00"
celular_nro = ucase(trim(replace(request("celular_nro"),"'",""))) : IF celular_nro = "" THEN celular_nro = "00000000"
celular = celular_ddd & celular_nro
email = ucase(trim(replace(request("email"),"'","")))
site = ucase(trim(replace(request("site"),"'","")))
rg = ucase(trim(replace(request("rg"),"'","")))
cpf = ucase(trim(replace(request("cpf"),"'","")))
id_empresa = ucase(trim(replace(request("id_empresa"),"'","")))
id_categoria = ucase(trim(replace(request("id_categoria"),"'","")))
observacoes = replace(replace(request("observacoes"),"'",""),vbCRLF,"
")
SQL = SQL & "UPDATE cli SET "
SQL = SQL & "nome = '" & nome & "',"
SQL = SQL & "apelido = '" & apelido & "',"
SQL = SQL & "sexo = '" & sexo & "',"
SQL = SQL & "dt_nascimento = '" & dt_nascimento & "',"
SQL = SQL & "endereco_comercial = '" & endereco_comercial & "',"
SQL = SQL & "numero_comercial = '" & numero_comercial & "',"
SQL = SQL & "compl_end_comercial = '" & compl_end_comercial & "',"
SQL = SQL & "bairro_comercial = '" & bairro_comercial & "',"
SQL = SQL & "cep_comercial = '" & cep_comercial & "',"
SQL = SQL & "cidade_comercial = '" & cidade_comercial & "',"
SQL = SQL & "uf_comercial = '" & uf_comercial & "',"
SQL = SQL & "telefone_comercial = '" & telefone_comercial & "',"
SQL = SQL & "fax_comercial = '" & fax_comercial & "',"
SQL = SQL & "endereco_residencial = '" & endereco_residencial & "',"
SQL = SQL & "numero_residencial = '" & numero_residencial & "',"
SQL = SQL & "complemento_residencial = '" & complemento_residencial & "',"
SQL = SQL & "bairro_residencial = '" & bairro_residencial & "',"
SQL = SQL & "cep_residencial = '" & cep_residencial & "',"
SQL = SQL & "cidade_residencial = '" & cidade_residencial & "',"
SQL = SQL & "uf_residencial = '" & uf_residencial & "',"
SQL = SQL & "telefone_residencial = '" & telefone_residencial & "',"
SQL = SQL & "fax_residencial = '" & fax_residencial & "',"
SQL = SQL & "celular = '" & celular & "',"
SQL = SQL & "email = '" & email & "',"
SQL = SQL & "site = '" & site & "',"
SQL = SQL & "rg = '" & rg & "',"
SQL = SQL & "cpf = '" & cpf & "',"
SQL = SQL & "status = '" & request("status") & "',"
SQL = SQL & "observacoes = '" & observacoes & "',"
SQL = SQL & "id_empresa = '" & id_empresa & "',"
SQL = SQL & "id_categoria = '" & id_categoria & "'"
SQL = SQL & " WHERE id_cliente = " & request("edita")
' response.write SQL
connbase.execute (SQL)
end if
if request("edita") <> "" then
sql="select * from cli where id_cliente =" & request("edita")
'response.write sql
set rs=ConnBase.execute(sql)
'response.write rs("status")
end if
%>
<% if request("flag")<>"" then sql = "select * FROM cli WHERE nome LIKE '" & request("flag") & "%' order by id_cliente desc" 'response.write sql else sql="select * FROM cli order by id_cliente desc" end if Set rsbanners = Server.CreateObject("ADODB.RecordSet") set rsbanners=ConnBase.execute(sql) if rsbanners.EOF then %> Não existem cadastrados. <% else rsbanners.movefirst %>
>Lista FAQs
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | X | Z | Y | W | *
| ID | Nome | ||
| <%=rsbanners("id_cliente")%> | <%=rsbanners("nome")%> | ">Editar | ">Excluir |