<% 'dim conexaodb pag = request("pag") action = request("action") %> <% IF action = "" Then SQL = "SELECT * FROM produtos ORDER BY id ASC" Call abreconexao Set RS = conexaodb.execute(SQL) 'SQL = "SELECT * FROM produtossubcategorias ORDER BY id DESC" 'Call abreconexao 'Set RS = conexaodb.execute(SQL) ELSEIF action = "adicionar" and request("submit") = "Incluir" then vcategoria = request("txtcategoria") vsubcategoria = request("txtsubcategoria") vtipo = request("txttipo") vdormitorio = request("txtdormitorios") vsuite = request("txtsuite") vsalas = request("txtsalas") vbanheiro = request("txtbanheiro") vgaragem = request("txtgaragem") vcompvend = request("txtcompvenda") viptu = request("txtiptu") vcondominio = request("txtcondominio") vmobile = request("txtmobile") vconstrucao = request("txtconstrucao") vterreno = request("txtterreno") vvalor = request("txtvalor") vdescricao = request("txtdescricao") vimagp = request("imag_peq") vimagg = request("imag_gr") ' altero ' por " para não dar erro no banco vdescricao = replace(vdescricao,"'",""") 'response.Write(vnome & vcategoria & vsubcategoria & vdescricao & vimagp & vimagg) 'response.end() SQL = "INSERT INTO produtos (c_categoria, c_subcategoria, c_tipo, c_dormitorios, c_suite, c_salas, c_banheiros, c_garagem, c_compvend, c_iptu, c_condominio, c_mobile, c_construcao, c_terreno, c_valor, c_fotop, c_fotog, c_descricao) VALUES ('"&vcategoria&"', '"&vsubcategoria&"', '"&vtipo&"', '"&vdormitorio&"', '"&vsuite&"', '"&vsalas&"', '"&vbanheiro&"', '"&vgaragem&"', '"&vcompvend&"', '"&viptu&"', '"&vcondominio&"', '"&vmobile&"', '"&vconstrucao&"', '"&vterreno&"', '"&vvalor&"', '"&vimagp&"', '"&vimagg&"', '"&vdescricao&"')" Call abreconexao conexaodb.execute(SQL) %> <% ELSEIF action = "excluir" then codigo = request("codigo") SQL = "DELETE * FROM produtos WHERE id="&codigo Call abreconexao conexaodb.execute (SQL) %> <% ELSEIF action = "alterar" and request("Submit") <> "Alterar" then codigodoproduto = request("codigodoproduto") SQL = "SELECT * FROM produtos WHERE id="&codigodoproduto Call abreconexao Set rsproduto = conexaodb.execute(SQL) 'response.Write(request("Submit")) 'Response.end() ELSEIF action = "alterar" and request("Submit") = "Alterar" then vcodigo = request("codigodoproduto") vcategoria = request("txtcategoria") vsubcategoria = request("txtsubcategoria") vtipo = request("txttipo") vdormitorio = request("txtdormitorios") vsuite = request("txtsuite") vsalas = request("txtsalas") vbanheiro = request("txtbanheiro") vgaragem = request("txtgaragem") vcompvend = request("txtcompvenda") viptu = request("txtiptu") vcondominio = request("txtcondominio") vmobile = request("txtmobile") vconstrucao = request("txtconstrucao") vterreno = request("txtterreno") vvalor = request("txtvalor") vdescricao = request("txtdescricao") vimagp = request("imag_peq") vimagg = request("imag_gr") ' altero ' por " para não dar erro no banco vdescricao = replace(vdescricao,"'",""") 'response.Write(vcategoria&", "&vsubcategoria&", "&vdormitorio&", "&vsuite&", "&vsalas&", "&vbanheiro&", "&vgaragem&", "&vcompvend&", "&viptu&", "&vcondominio&", "&vmobile&", "&vconstrucao&", "&vterreno&", "&vvalor&", "&vimagp&", "&vimagg&", "&vdescricao&", "&vcodigo) 'response.End() SQL = "UPDATE produtos SET c_categoria='"&vcategoria&"', c_subcategoria='"&vsubcategoria&"', c_tipo='"&vtipo&"', c_dormitorios='"&vdormitorio&"', c_suite='"&vsuite&"', c_salas='"&vsalas&"', c_banheiros='"&vbanheiro&"', c_garagem='"&vgaragem&"', c_compvend='"&vcompvend&"', c_iptu='"&viptu&"', c_condominio='"&vcondominio&"', c_mobile='"&vmobile&"', c_construcao='"&vconstrucao&"', c_terreno='"&vterreno&"', c_valor='"&vvalor&"', c_fotop='"&vimagp&"', c_fotog='"&vimagg&"', c_descricao='"&vdescricao&"' WHERE id= "&vcodigo Call Abreconexao set Rs = conexaodb.execute(SQL) Call Fechaconexao Set RS = Nothing %> <% END IF 'soaltera = request("txtalterasocategoria") 'if soaltera = "sim" then 'vcategoria = request("txtcategoria") 'vcodigo = request("codigodoproduto") ' SQL = "UPDATE produtos SET categoria="&vcategoria&"' WHERE id= "&vcodigo ' Call Abreconexao ' set Rs = conexaodb.execute(SQL) ' 'Call Fechaconexao ' Set RS = Nothing ' 'end if %> <% IF pag = 1 then %> <% ELSEIF pag = 2 then %> <% ELSEIF pag = 3 then %> <% END IF %>
 Imóveis > Adicionar
<% categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM produtoscategorias WHERE id="&categoria Call abreconexao Set rscod = conexaodb.execute(SQL) codselect = rscod("id") END IF SQL = "SELECT * FROM produtoscategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) %>
Imagem: 
 <% IF vimag_peq = "" Then vimag_peq = request("imag_peq") vimag_gr = request("imag_gr") END IF if trim(vimag_peq)<>"" then vurlFoto="../../images_foto/" & vimag_peq else vurlFoto="../imagens/pix_transp.gif" end if %>
Categoria: 
  
Sub-Categoria: 
Dormitorios: 
Suite: 
Salas: 
Banheiro: 
Garagem: 
Imóvel: 
 Vende-se     Aluga-se
   
($) IPTU: 
R$
($) Condomínio: 
R$
Mobile: 
A. Construção: 
m2
A. Terreno: 
m2
Valor: 
R$ Ex: 0.000,00
Descrição Adicional: 
                      
                         <%'botão%>
   
 Imóveis > Listar
<% subcategoria = Request("txtsubcategoria") categoria = request("txtcategoria") 'Response.Write(categoria & subcategoria) 'response.end() IF categoria <> "" And subcategoria <> "" Then SQL = "SELECT * FROM produtos Where c_categoria="&categoria&" and c_subcategoria=" &subcategoria Call abreconexao Set rs3= conexaodb.execute(SQL) %> <% If Not rs3.EOF Then While Not rs3.EOF 'imagem = Rs("fotop") %> <% rs3.Movenext Wend rs3.close Call FechaConexao Set rs3 = Nothing Else %> <%End IF End IF%>
 
Categoria: 
<% categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM produtoscategorias WHERE id="&categoria Call abreconexao Set rs = conexaodb.execute(SQL) codselect = rs("id") ELSE SQL = "SELECT * FROM produtoscategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) END IF %>  
Foto
Valor
Vend / Troc
Descrições
Ações
<%IF rs3("c_fotop") <> "" Then%>" hspace="3" vspace="3" border="0"><%else%><%end if%> R$ <%=rs3("c_valor")%> <%=rs3("c_compvend")%> <%=rs3("c_descricao")%> )">  )">
Não contém Imóveis cadastrado com esta categoria ! ! !

Selecione Outra categoria !!!
 Imóveis > Alterar
<% codigodoproduto = request("codigodoproduto") categoria = request("txtcategoria") IF categoria <> "" Then SQL = "SELECT * FROM produtoscategorias WHERE id="&categoria Call abreconexao Set rscod = conexaodb.execute(SQL) codselect = rscod("id") END IF SQL = "SELECT * FROM produtoscategorias ORDER BY nome ASC" Call abreconexao Set rs = conexaodb.execute(SQL) %> <% 'codigo=rsproduto("id") %> " method="post" name="Dados"> "> ">
Imagem: 
 <% IF vimag_peq = "" Then vimag_peq = ""'rsproduto("c_fotop")'request("imag_peq") vimag_gr = ""'rsproduto("c_fotog")'request("imag_gr") END IF if trim(vimag_peq)<>"" then vurlFoto="../../images_foto/" & vimag_peq else vurlFoto="../imagens/pix_transp.gif" end if %>
Categoria: 
  
Sub-Categoria: 
 <% codigosubcategoria = rsproduto("c_subcategoria") 'SQL = "SELECT * FROM produtoscategorias Where id="& codigocategoria 'call abreconexao 'set rssubcategoria = conexaodb.execute(SQL) %>
Dormitorios: 
Suite: 
Salas: 
Banheiro: 
Garagem: 
Lançamento:
 <%if vcompvend <> "Vende-se" Then%> Vende-se     Aluga-se <%ELSE%> Vende-se     Aluga-se <%END IF%>
   
($) IPTU: 
R$
($) Condomínio: 
R$
Mobile: 
A. Construção: 
m2
A. Terreno: 
m2
Valor: 
R$ Ex: 0.000,00
Descrição Adicional: 
              
                         <%'botão%>