<% 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%>

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

<%END IF%> <%END IF%>