<% Dim usuid Dim IP Dim quotalatest, links_bar_der,LineID links_bar_der=true quotalatest=10 usuid=0 idnews=request("idnews") LineID=idnews lafecha=FormatDateTime(now()) ' sql="select * from news where idnews=" & idnews sql="select NewsNote, FullText, main, newspublic, VisDate, NewsTitle, NewsTopic, Author, NewsOrigin, NewsDate from news where idnews=" & idnews sql1="select Link, LinkDesc from Link where IDNews=" & idnews GetConnection conn,rs rs.open sql,conn ' newslead=rs("NewsNote")'0 newslead=rs(0)'0 ' newstext=rs("FullText")'1 newstext=rs(1)'1 ' main=rs("main")'2 main=rs(2)'2 ' NewsPublic=main=rs("NewsPublic")'3 NewsPublic=main=rs(3)'3 ' newsdate=rs("VisDate")'4 newsdate=rs(4)'4 ' newstitle=rs("NewsTitle")'5 newstitle=rs(5)'5 newstitle=ReplaceComApos( newstitle ) ' newstopic=rs("NewsTopic")'6 thenewstopic=rs(6)'6 newstopic=ReplaceComApos( thenewstopic) ' newsauthor=rs("Author")'7 newsauthor=rs(7)'7 newsauthor=ReplaceComApos( newsauthor ) ' newsorigin=rs("NewsOrigin")'8 newsorigin=rs(8)'8 newsorigin=ReplaceComApos( newsorigin ) ' newsDateOriginal=rs("NewsDate")'9 newsDateOriginal=rs(9)'9 newslead=ReplaceComApos( newslead ) newstext=ReplaceComApos( newstext ) rs.close rs.open sql1,conn if not rs.eof then links=rs.getrows() LinkCount=ubound(links,2) +1 end if if LinkCount >0 then for i=0 to LinkCount -1 linkpath=ReplaceComApos( links(0,i) ) If (InStr(1,linkpath , "ipsnews.") <> 0) OR (InStr(1,linkpath , "www.ips") <> 0) Then if flag=0 then linkint=linkint & " "& ReplaceComApos(links(1,i)) & "" flag=1 else linkint=linkint & " "&ReplaceComApos(links(1,i)) & "" flag=0 end if if Instr(1,linkpath,"idnews") > 0 then idlink=trim(Mid(linkpath,Instr(1,linkpath,"idnews=")+7)) ' LineID=LineID &"," &idlink lineID= lineID & ","&idlink 'response.Write("***"&idlink & "
" & linkpath& "
" ) end if quotalatest=quotalatest-1 Else linkext=linkext & " "&ReplaceComApos(links(1,i)) & "
" End If next end if CloseConnection conn, rs 'response.write "ok" strMetaDate = "" & chr(10) strMetaAuthor = "" & chr(10) strMetaTopic = "" & chr(10) strMetaOrigin = "" & chr(10) Agency=" (IPS)" if InStr(1,LCase(newsauthor), "* -") then Agency = " (" & Mid(newsauthor, InStr(1,LCase(newsauthor), "-") + 2) & ") " newsauthor = Mid(newsauthor, 1, InStr(1,LCase(newsauthor), "* -")) end if strMensaje="IPS%20Story%20" & trim(newstopic) &":%20"& trim(newstitle) %> <%=newstopic%>: <%=newstitle%> <%=strMetaDate%> <%=strMetaAuthor%> <%=strMetaTopic%> <%=strMetaOrigin%>
   
 
 
<%GMTTime=DateAdd("h", 7,now())%> <%=FormatDateTime(GMTTime, 1)%>   <%=FormatDateTime(GMTTime, 4)%> GMT
PrintSend to a friend
 

<%=newstopic%>:
<%=newstitle%>
<%if len(newsauthor) > 2 then%> <%=CarrRet(newsauthor)%> <%end if %>

<% if not main then %> <%=NewsOrigin%>, <%=NewsDate%> <%=Agency%> - <%=newslead%>

<% Else %> <%=NewsOrigin%>, <%=NewsDate%> <%=Agency%> - <% End If %> <%=CarrRet(newstext)%> (END/<%=year(newsDateOriginal)%>)

Send your comments to the editor

 

 
 See also
<%Thep=0%>
<% if len(linkint) > 0 then %> <%=linkint%> <%end if %> <% if quotalatest > 0 then %> <% End If %>

MORE >>
<%if len(linkext) > 0 then %>

 Related Web Sites
<% response.Write(linkext) %>
<% end if %>


If you think these stories are interesting and valuable, please help us continue to get the word out. You can support IPS by making a donation: just click on the button below.