% if request("acao1")="excluir" then connbase.execute ("delete from emp where id_empresa =" & request("deleta")) response.redirect "index.asp" end if if request("modo")="salva" then telefone=request("telefone_ddd") & request("telefone_nro") cnpj=request("cnpj_a") & request("cnpj_b") & request("cnpj_dig") fax=request("fax_ddd") & request("fax_nro") cep=request("cep_nro") & request("cep_dig") sql="insert into emp (razao_social, nome_fantasia, cnpj, insc_est, endereco, numero, complemento, bairro, cep, cidade, uf, telefone, fax, email, site, status) values ('" & request("razao_social") & "', '" & request("nome_fantasia") & "', '" & cnpj & "', '" & request("insc_est") & "', '" & request("endereco") & "', '" & request("numero") & "', '" & request("complemento") & "', '" & request("bairro") & "', '" & cep & "', '" & request("cidade") & "', '" & request("uf") & "', '" & telefone & "', '" & fax & "', '" & request("email") & "', '" & request("site") & "', " & request("status") & ")" 'response.write sql connbase.execute (sql) response.redirect "index.asp?flag=" & request("flag") end if if request("modo")="edita" then telefone=request("telefone_ddd") & request("telefone_nro") cnpj=request("cnpj_a") & request("cnpj_b") & request("cnpj_dig") fax=request("fax_ddd") & request("fax_nro") cep=request("cep_nro") & request("cep_dig") sql="update emp set razao_social='" & request("razao_social") & "',nome_fantasia='" & request("nome_fantasia") & "',cnpj='" & cnpj & "',insc_est='" & request("insc_est") & "',endereco='" & request("endereco") & "',numero='" & request("numero") & "',complemento='" & request("complemento") & "',bairro='" & request("bairro") & "',cep='" & cep & "',cidade='" & request("cidade") & "',uf='" & request("uf") & "',telefone='" & telefone & "',fax='" & fax & "',email='" & request("email") & "',site='" & request("site") & "', status=" & request("status") & " where id_empresa =" & request("edita") connbase.execute (sql) response.redirect "index.asp?flag=" & request("flag") end if if request("edita") <> "" then sql="select * from emp where id_empresa =" & request("edita") 'response.write sql set rs=ConnBase.execute(sql) 'response.write rs("status") end if %>
>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 | *
<% if request("flag")<>"" then sql = "select * FROM emp WHERE razao_social LIKE '" & request("flag") & "%' order by id_empresa desc" 'response.write sql else sql="select * FROM emp order by id_empresa desc" end if Set rsbanners = Server.CreateObject("ADODB.RecordSet") set rsbanners=ConnBase.execute(sql) if rsbanners.EOF then %> Não existem Categorias cadastradas. <% else rsbanners.movefirst %>| ID | Razão Social | ||
| <%=rsbanners("id_empresa")%> | <%=rsbanners("razao_social")%> | &flag=<%=request("flag")%>">Editar | &flag=<%=request("flag")%>">Excluir |