%session("language") = "se"%> <% ' take the 4 latest news from the database and show them.. 'DateNow=now() 'todaysDate = FormatDateTime(DateNow,2) Set Connection = Server.CreateObject("ADODB.Connection") Connection.open strcon if session("language") = "se" then SQL = "Select news_id,news_heading,news_article FROM news " elseif session("language") = "en" then SQL = "Select news_id,news_heading_english as news_heading,news_article_english as news_article FROM news " end if SQL = SQL & " ORDER BY news.news_id DESC" Set RS = Connection.Execute(SQL) %>
|
||||||||||||||||||||