<%
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%>
<%IF NOT rs("foto1") = "" THEN%>
- " alt="<%=rs("foto1")%>" />
<%END IF%>
<%IF NOT rs("foto2") = "" THEN%>
- " alt="<%=rs("foto2")%>" />
<%END IF%>
<%IF NOT rs("foto3") = "" THEN%>
- " alt="<%=rs("foto3")%>" />
<%END IF%>
<%IF NOT rs("foto4") = "" THEN%>
- " alt="<%=rs("foto4")%>" />
<%END IF%>
<%IF NOT rs("foto5") = "" THEN%>
- " alt="<%=rs("foto5")%>" />
<%END IF%>
<%IF NOT rs("foto6") = "" THEN%>
- " alt="<%=rs("foto6")%>" />
<%END IF%>
<%IF NOT rs("foto7") = "" THEN%>
- " alt="<%=rs("foto7")%>" />
<%END IF%>
<%IF NOT rs("foto8") = "" THEN%>
- " alt="<%=rs("foto8")%>" />
<%END IF%>
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
<%END IF%>
<%END IF%>