<% Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADOR.RecordSet") Set rs8 = Server.CreateObject("ADOR.RecordSet") Set rs9 = Server.CreateObject("ADOR.RecordSet") strConn= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("base/inmo.mdb") Conn.Open strConn %> <% dim Connn dim rss Set AppConn = Server.CreateObject("ADODB.Connection") Set rss = Server.CreateObject("ADOR.RecordSet") Connn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Base/inmo.mdb") AppConn.Open Connn dim strSQL DIM SI const AdOpenKeyset = 1 %>

(0351) 4612481 / 4611616
administracion@covaweb.com.ar

<% idinm=request.QueryString("idinm") session("tipo")=request.QueryString("tipo") %>

<%=session("tipo")%>

<% if session("tipo")="Obras Publicas" then %>

<% elseif session("tipo")="Obras Privadas" then %>

<% elseif session("tipo")="Obras en Ejecucion" then %>

<% end if %> <% rs.open "select * from Inmuebles where codigo="&idinm&" ",Conn,3,1 %>

"> " alt="">

No disponemos de mas fotografías.

"> " alt="<% =rs8.Fields("comentario") %>" />

<%=rs("titulo")%>
<%=rs("subtitulo")%>

<% if rs("equipamiento")<>"" then%>

Equipamiento urbano:

<%=rs("equipamiento")%>

<%end if%>

Reseña:

<%=rs("resenia")%>

<%=rs("descripcion")%>

<%=session("tipo")%>

Obras

Obras

Obras

<%=rs("titulo")%> <%=rs("subtitulo")%>

Equipamiento urbano:

Reseña:

<%=rs("titulo")%>
<%=rs("subtitulo")%>