|
<%
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open Application("con1_ConnectionString"), "", ""
sSQL = " select * from noticia"
oRs.Open sSQL, oConn,3,3 ', adOpenStatic, adLockOptimistic
entro = 0
do while not oRs.Eof
entro = 1
%>
<%=oRs.Fields("titulo_esp").value%>
<% if oRs.Fields("foto").value <> "" then %>
 ">
<% end if %>
<%=oRs.Fields("desc_noticia_esp").value%>
<% if oRs.Fields("enlace_referencia").value <> "" then %>
" target="_blank">
<%=oRs.Fields("enlace_referencia").value%>
<% end if %>
<%
oRs.movenext
loop
if entro = 0 then
%>
La consulta que realizo no devolvió ningún dato
<%
end if
%>
|
|
