<% 'id=1 id=request.querystring("id") 'if id="" then 'response.Redirect("tempnoticias.asp") 'end if Set ObjNoticia = New TBNoticia set Objdetnot = new TBDetNot ObjNoticia.Opentabla OBjDetNot.opentabla ObjNoticia.BuscaxId(id) if ObjNoticia.ExisteRegistro then ObjNoticia.AsignaCampos Else response.Redirect("home.asp") End If ObjDetNot.BuscaxIdnoticia(id) if ObjDetNot.existeregistro then ObjDetNot.asignacampos end if %>

<%if ObjDetNot.rs.eof then%> <% else %> <%do while not ObjDetNot.rs.eof %> <% ObjDetNot.rs.movenext loop end if %>

No Hay Detalle De Noticia Para la Noticia <%=mid(Objnoticia.rs("TITULO"),1,255)%>
<%=mid(Objdetnot.rs("TITULO"),1,255)%>	<%if ObjDetNot.rs("web") <> "" then%> " target="_blank" class="Vinculos"> <%end if%> " width="272" height="204" border="0" > <%if ObjDetNot.rs("web") <> "" then%> <%end if%>
<%=replace(ObjDetNot.rs("descripcion"),chr(13)," ")%>