Imóvel a venda

Imóvel a venda <% On error resume Next Dim objConn, stringSQL, strConnection, id, dblpreco id = Request.QueryString("radio") ' Conectando com o banco de dados contato.mdb Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("adm.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" stringSQL = "SELECT * FROM imovel WHERE autonum = "&id Set objRS = objConn.Execute(stringSQL) ' %> Laport Imóveis

Descrição do Imóvel

Cód. Imóvel:

<%Response.write objRS("autonum")%>

Local:

<%Response.write objRS("local")%>

Tipo:

<%Response.write objRS("tipo")%>

Imóvel:

<%Response.write objRS("titulo")%>

Nº Dormitório:

<%Response.write objRS("dormitorio")%>

Nº Suítes:

<%Response.write objRS("suite")%>

Preço:

<%Response.write FormatCurrency(objRS("preco"))%>

Descrição imóvel:

<%Response.write objRS("descricao")%>

Sem Foto

Sem Foto

Sem Foto

Sem Foto