<% META_DESCRIPTION="" META_KEYWORDS="" META_TITLE = "" PAGE_TITLE = "News & Events" PAGE_KEY = "newsandevents" TITLE_TAG = "" Set DB = New clsDatabase DB.OpenDatabase SQL_DATABASE_NAME, SQL_USR, SQL_PWD numOfNewsEvents = DB.RunQuery("SELECT mlb_news_events_lang.content FROM mlb_news_events INNER JOIN mlb_news_events_lang ON mlb_news_events.id = mlb_news_events_lang.record_id WHERE mlb_news_events.id = 1 AND mlb_news_events_lang.[language] = '" & selLang & "';") - 1 If numOfNewsEvents > -1 Then strNewsEvents = "

" & Replace(DB.GetField("content"), vbCrLf, "
") & "

" Else strNewsEvents = "

Aucune nouvelles et évèbements...
Revenez vite voire pour des mises à jour!

" End If Set DB = Nothing %>

nouvelles et évènements

<%=strNewsEvents%>