<% '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 Dados" then vcategoria = request("txtcategoria") vsubcategoria = request("txtsubcategoria") vtipo = request("txttipo") vNegociacao = request("txtnegociacao") vdormitorio = request("txtdormitorios") vsuite = request("txtsuite") vsalas = request("txtsalas") vbanheiro = request("txtbanheiro") vgaragem = request("txtgaragem") vlancamento = request("txtlancamento") viptu = request("txtiptu") vcondominio = request("txtcondominio") vmobile = request("txtmobile") vconstrucao = request("txtconstrucao") vterreno = request("txtterreno") vvalor = request("txtvalor") vcreci = request("txtcreci") 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_lancamento, 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&"', '"&vlancamento&"', '"&viptu&"', '"&vcondominio&"', '"&vmobile&"', '"&vconstrucao&"', '"&vterreno&"', '"&vvalor&"', '"&vimagp&"', '"&vimagg&"', '"&vdescricao&"')" SQL = "INSERT INTO produtos (c_categoria, c_subcategoria, c_tipo, c_negociacao, c_dormitorios, c_suite, c_salas, c_banheiros, c_garagem, c_lancamento, c_iptu, c_condominio, c_mobile, c_construcao, c_terreno, c_valor, c_descricao, c_creci) VALUES ('"&vcategoria&"', '"&vsubcategoria&"', '"&vtipo&"', '"&vNegociacao&"', '"&vdormitorio&"', '"&vsuite&"', '"&vsalas&"', '"&vbanheiro&"', '"&vgaragem&"', '"&vlancamento&"', '"&viptu&"', '"&vcondominio&"', '"&vmobile&"', '"&vconstrucao&"', '"&vterreno&"', '"&vvalor&"', '"&vdescricao&"', '"&vcreci&"')" 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") vnegociacao = request("txtnegociacao") vdormitorio = request("txtdormitorios") vsuite = request("txtsuite") vsalas = request("txtsalas") vbanheiro = request("txtbanheiro") vgaragem = request("txtgaragem") vlancamento = request("txtlancamento") viptu = request("txtiptu") vcondominio = request("txtcondominio") vmobile = request("txtmobile") vconstrucao = request("txtconstrucao") vterreno = request("txtterreno") vvalor = request("txtvalor") vcreci = request("txtcreci") 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&", "&vlancamento&", "&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_negociacao='"&vNegociacao&"', c_dormitorios='"&vdormitorio&"', c_suite='"&vsuite&"', c_salas='"&vsalas&"', c_banheiros='"&vbanheiro&"', c_garagem='"&vgaragem&"', c_lancamento='"&vlancamento&"', c_iptu='"&viptu&"', c_condominio='"&vcondominio&"', c_mobile='"&vmobile&"', c_construcao='"&vconstrucao&"', c_terreno='"&vterreno&"', c_valor='"&vvalor&"', c_descricao='"&vdescricao&"', c_creci='"&vcreci&"' WHERE id= "&vcodigo Call Abreconexao set Rs = conexaodb.execute(SQL) 'Call Fechaconexao 'Set RS = Nothing response.Redirect("principal.asp?ir=produtos_altera_fotos.asp&codigodoproduto="&vcodigo&"&action=alterar") %> <% 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) %>
Cidade: 
  
Bairro: 
Tipo: 
Negociação: 
Dormitorios: 
Suite: 
Salas: 
Banheiro: 
Garagem: 
Lançamento: 
 Sim     Não
   
($) IPTU: 
R$
($) Condomínio: 
R$
Mobile: 
A. Construção: 
m2
A. Terreno: 
m2
Valor: 
R$ Ex: 0.000,00
CRECI: 
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 'response.Write(SQL) 'response.End() 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
Lançamento
Descrições
Ações
<%IF rs3("foto1") <> "" Then%>" width="75px" hspace="3" vspace="3" border="0"><%else%><%end if%> R$ <%=rs3("c_valor")%> <%=rs3("c_lancamento")%> <%=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">
Categoria: 
  
Sub-Categoria: 
 <% codigosubcategoria = rsproduto("c_subcategoria") 'SQL = "SELECT * FROM produtoscategorias Where id="& codigocategoria 'call abreconexao 'set rssubcategoria = conexaodb.execute(SQL) %>
Tipo: 
Negociação: 
Dormitorios: 
Suite: 
Salas: 
Banheiro: 
Garagem: 
Lançamento:
 <%if vlancamento <> "SIM" Then%> Sim     Não <%ELSE%> Sim     Não <%END IF%>
   
($) IPTU: 
R$
($) Condomínio: 
R$
Mobile: 
A. Construção: 
m2
A. Terreno: 
m2
Valor: 
R$ Ex: 0.000,00
CRECI: 
R$ Ex: 0.000,00
Descrição Adicional: 
              
                         <%'botão%>