<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.ExpiresAbsolute = #1/5/2000 12:12:12# %> <% Dim noticia Dim noticia_numRows Set noticia = Server.CreateObject("ADODB.Recordset") noticia.ActiveConnection = MM_cocihg_STRING noticia.Source = "SELECT * FROM T_noticia WHERE en_portada like 'si' ORDER BY fecha desc, hora desc" noticia.CursorType = 0 noticia.CursorLocation = 2 noticia.LockType = 1 noticia.Open() noticia_numRows = 0 %> <% Dim al_minuto Dim al_minuto_numRows Set al_minuto = Server.CreateObject("ADODB.Recordset") al_minuto.ActiveConnection = MM_cocihg_STRING al_minuto.Source = "SELECT * FROM T_noticia ORDER BY fecha DESC, hora DESC" al_minuto.CursorType = 0 al_minuto.CursorLocation = 2 al_minuto.LockType = 1 al_minuto.Open() al_minuto_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 4 Repeat2__index = 0 al_minuto_numRows = al_minuto_numRows + Repeat2__numRows %> Cámara Oficial de Comercio e Industria Hispano Gambiana & ECOWAS
     
  | español   | français
Noticias Eventos Periódicos africanos y españoles  
 
       
<% If Not noticia.EOF Or Not noticia.BOF Then %> <% End If ' end Not noticia.EOF Or NOT noticia.BOF %>
<% lleno=(noticia.Fields.Item("fecha").Value) if lleno <> "" then %> <%end if%> <% lleno=(noticia.Fields.Item("antetitulo").Value) if lleno <> "" then %> <%end if%> <% lleno=(noticia.Fields.Item("titular").Value) if lleno <> "" then %> <%end if%> <% lleno=(noticia.Fields.Item("pienoticia").Value) if lleno <> "" then %> <%end if%> <% vinc=(noticia.Fields.Item("vinculo").Value) if vinc <> "" then %> <%end if%>
<%=FormatDateTime(lleno, vbLongDate)%>
<%=(lleno)%>
<%=lleno%>
 
<% strRequest = (noticia.Fields.Item("cronica").Value) ' lo siguiente cuenta el numero de caracteres ' lo siguiente devuelve un numero de caracteres determinado , en este caso 15 Response.Write(left(strRequest,600)) %> ...
 
Enlace a la página oficial ::
<%=(vinc)%>
 
<% If Not al_minuto.EOF Or Not al_minuto.BOF Then %> Otras Noticias <% End If ' end Not al_minuto.EOF Or NOT al_minuto.BOF %>
 
<% While ((Repeat2__numRows <> 0) AND (NOT al_minuto.EOF)) %> <% If Not al_minuto.EOF Or Not al_minuto.BOF Then %>
<% id_noticia=Cstr(noticia.Fields.Item("id").Value) id_al_minuto=Cstr(al_minuto.Fields.Item("id").Value) if id_noticia <> id_al_minuto then %>
<% datThisDay = DatePart("d", Date()) ' datThisDay = 30 datThisMonth = DatePart("m", Date()) ' datThisMonth = 6 datThisYear = DatePart("yyyy", Date()) ' datThisYear = 2006 titular=(al_minuto.Fields.Item("titular").Value) pienoticia=(al_minuto.Fields.Item("pienoticia").Value) %> <% 'contar el numero de caracteres strRequest = LCase(titular) %> " > <% Response.Write(left(strRequest,60)) %> ... <% Dim fecha Dim hora dia=day(date) if (dia <=9) then dia="0" & dia end if mes=month(date) if (mes <=9) then mes="0" & mes end if fin=dia&"/"&mes&"/"&year(date) fecha_2=(al_minuto.Fields.Item("fecha").Value) %> <%'if Cstr(fin) <> Cstr(fecha_2) then %> [<%= fecha_2 %>] <%'end if%>
<% end if%> <% End If ' end Not al_minuto.EOF Or NOT al_minuto.BOF %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 al_minuto.MoveNext() Wend %> <% If Not al_minuto.EOF Or Not al_minuto.BOF Then %>
   
<% End If ' end Not al_minuto.EOF Or NOT al_minuto.BOF %>
  <% If Not noticia.EOF Or Not noticia.BOF Then %>
<% Dim imagen imagen=(noticia.Fields.Item("img").Value) if imagen <> "" then %> <%end if%>
<%=(noticia.Fields.Item("piefoto").Value)%>    
<% End If ' end Not al_minuto.EOF Or NOT al_minuto.BOF %>		  
       
 
Cámara Oficial de Comercio e Industria Hispano Gambiana & ECOWAS. Tel. 91 350 52 07. info@cocihg.com
Sitio web desarrollado por axyweb.com 		 
<% noticia.Close() Set noticia = Nothing %> <% al_minuto.Close() Set al_minuto = Nothing %>