<% Option Explicit %> <% '**************************************************************************************** '** '** Rafik ASSAS '** '** '** '**************************************************************************************** Dim rsNews 'Database recordset holding the news items Dim rsComments 'Database recordset holding the comments for this news item Dim lngNewsID 'Holds the News item ID number Dim blnComments 'Set to true if comments are allowed for this item dim txtNews_title dim txtNews_item Dim txtDescription Dim txtKeywords 'Read in the ID number of the news item we are looking at the comments of If isNull(Request.QueryString("NewsID")) = True Or isNumeric(Request.QueryString("NewsID")) = False Then Response.Write "default.asp" Else lngNewsID = CLng(Request.QueryString("NewsID")) End If %> <% 'Create recorset object Set rsNews = Server.CreateObject("ADODB.Recordset") 'Initalise the strSQL variable with an SQL statement to query the database by selecting all tables ordered by the decending date strSQL = "SELECT tblEvents.* FROM tblEvents WHERE tblEvents.Event_ID = " & lngNewsID & " ORDER BY Publication_date DESC;" 'Query the database rsNews.Open strSQL, adoCon 'If there are no records then exit for loop If NOT rsNews.EOF Then 'Read in if comments are allowed for this news item blnComments = CBool(rsNews("Comments")) %> <% = rsNews("Title") %> <% txtDescription = rsNews("Description") txtDescription = Replace(txtDescription ,"'"," ") txtKeywords= rsNews("Keywords") txtKeywords = Replace(txtKeywords,"'"," ") %>
SEMIDE/EMWIS

Évènement                              

Accueil Retour
Voir tous les Évènements

<% = rsNews("Author_name") %>
<% dim strCoverage strCoverage = rsNews("Coverage") if strCoverage <>"" then %>
Lieu : <%= strCoverage %> <% end if %>
<% if (rsNews("Start_date")<>"") then%>
Date : <%if (rsNews("End_date")<>"") then%> <% = day(rsNews("Start_date")) %> au <% = FormatDateTime(rsNews("End_date"), vbshortDate) %> <%else%> <% = FormatDateTime(rsNews("Start_date"), vbshortDate) %> <%end if %> <%end if %>

<% dim imgLogo imgLogo = rsNews("logo") if imgLogo <>"" then%> " align="middle"> <% end if %>

<% = rsNews("Title") %>

<% = rsNews("Body") %>

<% End If 'Clean up rsNews.Close Set rsNews = Nothing %>
[Accueil] [Algérie PFN] [Arabe] [English] [Contactez-nous] [Recherche]