<% dim Conn dim objRS id=Request.Querystring("id") Set Conn = Server.CreateObject("ADODB.Connection") rem Conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../../data/1882.mdb")) conn.open "DSN=ilergrup.com.datoss" id=cstr(id) id=replace(id,",",".") SQL="SELECT * FROM 1882_UN WHERE IdPiso="&id set objRS=Conn.Execute(SQL) idpro=objRS("IdPromocion") idpro=cstr(idpro) idpro=replace(idpro,",",".") SQLPro="SELECT * FROM 1882_UN WHERE IdPromocion="&idpro set objRSPro=Conn.Execute(SQLPro) SQLCas="SELECT * FROM 1882_CS WHERE IdPiso="&id set objRSCas=Conn.Execute(SQLCas) %> <%=objRS("Expediente")%>
- <%=objRS("Expediente")%>
<%=objRSCas("Cabecera")%>

<%=objRSCas("Descripcion")%>

<%if(objRS("Foto1")="") then%>   <%else%>
" border="1">
<%end if%>
<%if(objRS("Foto2")="") then%>   <%else%>
" border="1">
<%end if%>
<%if(objRS("Foto3")="") then%>   <%else%>
" border="1">
<%end if%>
<% objRS.Close Set objRS = Nothing objRSPro.Close Set objRSPro = Nothing objRSCas.Close Set objRSCas = Nothing Conn.Close Set Conn= Nothing %>