<%
codigo = request("codigo")
IF NOT codigo = "" THEN
DIM conexaodb
Set conexaodb = Server.CreateObject("ADODB.Connection")
conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco/database.mdb") & ";Persist Security Info=False"
SQL = "SELECT * FROM Produtos WHERE id=" & codigo
Set rs = conexaodb.execute(SQL)
SQL = "SELECT nome FROM produtoscategorias WHERE id="& rs("c_categoria")
SET rscidade = conexaodb.execute(SQL)
IF NOT rscidade.EOF THEN
cidade = rscidade("nome")
END IF
SQL = "SELECT nome FROM produtossubcategorias WHERE id="& rs("c_subcategoria")
SET rsbairro = conexaodb.execute(SQL)
IF NOT rsbairro.EOF THEN
bairro = rsbairro("nome")
END IF
END IF
%>
<%IF NOT codigo = "" THEN%>
<%IF NOT rs.EOF THEN%>
<%END IF%>
<%END IF%>
-
<%IF NOT rs("foto1") = "" THEN%>
" alt="<%=rs("foto1")%>" /> <%END IF%> <%IF NOT rs("foto2") = "" THEN%>
Tipo:
<%=rs("c_Tipo")%>
Cidade:
<%=cidade%>
Bairro:
<%=bairro%>
Negociação:
<%=rs("c_negociacao")%>
CRECI:
<%=rs("c_creci")%>
Dormitórios:
<%=rs("c_dormitorios")%>
Suíte:
<%=rs("c_suite")%>
Banheiros:
<%=rs("c_banheiros")%>
Garagem:
<%=rs("c_garagem")%>
IPTU:
<%IF NOT rs("c_iptu") = "" THEN%>R$ <%=rs("c_iptu")%>
<%END IF%>Condomínio:
<%IF NOT rs("c_condominio") = "" THEN%>R$ <%=rs("c_condominio")%>
<%END IF%>Área Construção:
<%IF NOT rs("c_construcao") = "" THEN%><%=rs("c_construcao")%>m²
<%END IF%>Área Terreno:
<%IF NOT rs("c_terreno") = "" THEN%><%=rs("c_terreno")%>m²
<%END IF%>Valor:
R$ <%=rs("c_valor")%>,00