%Option Explicit%> <% '****************************************************************************************************** '** Function of the file(Introduction): '**** Main: Guestbook '**** Assistant: '** '****************************************************************************************************** '********** Variants Difinition ********** '*** start here Dim sSQL Dim iItems Dim nitems Dim aItems Dim xItems Dim sCurFile Dim ReplyState '*********** Request Parameters ************* '*** start here sCurFile = Request.ServerVariables("PATH_INFO") Dim DayNow Dim YearNow Dim MonthNow Dim DateNow Dim TimeToday DayNow = Date yearNow = Year(DayNow) MonthNow = Month(DayNow) DateNow = Day(DayNow) TimeToday = yearNow & "/" & MonthNow& "/" & DateNow Dim PopUp ReDim xItems(-1) sSQL = "Select ID, Title, ImageFileName, Content From News Where State=0 Order By ID DESC" oRS.Open sSQL, oCN, 1, 1 If not oRS.Eof Then ReDim xItems(oRS.RecordCount-1, 3) for nitems=0 To UBound(xItems) xItems(nitems, 0) = oRS("ID") xItems(nitems, 1) = Trim( oRS("Title") ) xItems(nitems, 2) = Trim( oRS("Content") ) xItems(nitems, 3) = Trim( oRS("ImageFileName") ) If xItems(nitems, 3)<>"" or Len(xItems(nitems, 3))>0 Then xItems(nitems, 3) ="news/" & xItems(nitems, 3) & "" oRS.MoveNext Next End If oRS.Close ReDim aItems(-1) sSQL = "Select ID, Title, Content, ImageFileName From PUW_update Where State=0 and TimeNow<=#" & TimeToday & "# and EndTime>=#" & TimeToday & "# Order By ID DESC" oRS.Open sSQL, oCN, 1, 1 If oRS.Eof Then ReplyState=1 Else ReplyState=0 End If oRS.Close 'Response.write(ReplyState) %>
O Encontro de Empresários para a Cooperação Económica e Comercial entre a China e os Países de Língua Portuguesa que se pretende realizar anualmente e de forma rotativa entre os países que integram o Fórum, é uma das acções que faz parte do ”Plano de Acção para a Cooperação Económica e Comercial” assinado pelos Ministros dos Países intervenientes e do “Protocolo de Cooperação entre Organismos de Promoção Comercial/ Câmaras de Comércio” assinado pelas entidades de promoção do comércio e câmaras de comércio. OBJECTIVOS
1 - Entidades Promotoras
2 - Entidades Organizadoras
3 - Entidades Apoiantes
4 - Data
5 - Local de Realização
6 - Participantes
7 - Programa 8 - Entidades Inscritas
9 - Notícias Relacionadas e Fotografias
|
||||||||||||||||