<%@ CodePage=65001%> <%=title%> <%randomize:max=1000:min=1:randno=Int((max-min+1)*Rnd+min)%> <% id=request.querystring("id") lang=request.QueryString("lang") if lang="" then lang="pt-br" end if Set rsLang = Server.CreateObject("ADODB.Recordset") rsLang.ActiveConnection = con_string strlang="select * from Languages where lang_short_name='"&lang&"'" rsLang.Source = strlang rsLang.CursorType = 0 rsLang.CursorLocation = 2 rsLang.LockType = 1 rsLang.Open() if not rslang.eof then if rsLang("Lang_LCID")<>"" then lang_lcid=rsLang("Lang_LCID") else lang_lcid="1033" end if if rsLang("Code_Page")<>"" then lang_Code_Page=rsLang("Code_Page") else lang_Code_Page="65001" end if if rsLang("Lang_Short_Name")<>"" then Lang_Short_Name=rsLang("Lang_Short_Name") else Lang_Short_Name="en-us" end if if rsLang("Left_To_Right_Language")=true then direction="rtl" alignment="right" else direction="ltr" alignment="left" end if Website_Consultants=rsLang("Website_Consultants") Wallpapers=rsLang("Wallpapers") Useful_Links=rsLang("Useful_Links") More_Wall_Papers=rsLang("More_Wall_Papers") Read_More=rsLang("Read_More") More_News=rsLang("More_News") More_videos=rsLang("More_videos") Coming_Soon=rsLang("Coming_Soon") Read_my_latest_news=rsLang("Read_my_latest_news") Watch_my_latest_videos=rsLang("Watch_my_latest_videos") Comments_and_Suggestions=rsLang("Comments_and_Suggestions") Please_Click_and_add_your_comments=rsLang("Please_Click_and_add_your_comments") Newsletter_Subscription=rsLang("Newsletter_Subscription") To_receive_my_newsletter=rsLang("To_receive_my_newsletter") Subscribe_Now=rsLang("Subscribe_Now") Licensed_Players_Agent_Fifa_CBF=rsLang("Licensed_Player's_Agent_Fifa_CBF") Click_the_image_to_view_the_video=rsLang("Click_the_image_to_view_the_video") lang_id=rslang("id") end if Set rsContent = Server.CreateObject("ADODB.Recordset") rsContent.ActiveConnection = con_string sqlstring="SELECT Side_Navigation.*, Languages.Language_Name, Languages.Lang_Short_Name, Languages.Lang_LCID, Languages.Code_Page, Side_Navigation.id, Side_Navigation.language_id FROM Side_Navigation INNER JOIN Languages ON Side_Navigation.language_id = Languages.id WHERE (((Side_Navigation.id)="&id&") AND ((Side_Navigation.language_id)="&lang_id&"));" rsContent.Source = sqlstring rsContent.CursorType = 0 rsContent.CursorLocation = 2 rsContent.LockType = 1 rsContent.Open() pagecontent="" pagename="" if not rscontent.eof then if rscontent("Show_Center_Images")=true then Show_Center_Images=1 end if if rscontent("Show_Wallpaper")=true then Show_Wallpaper=1 end if if rscontent("Show_Rotating_Images")=true then Show_Rotating_Images=1 end if pagename=rscontent("Navigation_Name") pagecontent=rscontent("content") else set rscontent=nothing Set rsContent = Server.CreateObject("ADODB.Recordset") rsContent.ActiveConnection = con_string sqlstring="SELECT Side_Navigation.*, Languages.Language_Name, Languages.Lang_Short_Name, Languages.Lang_LCID, Languages.Code_Page, Side_Navigation.id, Side_Navigation.language_id, Side_Navigation.View_Order, Side_Navigation.Navigation_Bar FROM Side_Navigation INNER JOIN Languages ON Side_Navigation.language_id = Languages.id WHERE (((Side_Navigation.language_id)="&lang_id&") AND ((Side_Navigation.Navigation_Bar)='1')) ORDER BY Side_Navigation.View_Order;" rsContent.Source = sqlstring rsContent.CursorType = 0 rsContent.CursorLocation = 2 rsContent.LockType = 1 rsContent.Open() if rscontent.eof then set rscontent=nothing Set rsContent = Server.CreateObject("ADODB.Recordset") rsContent.ActiveConnection = con_string sqlstring="SELECT Side_Navigation.*, Languages.Language_Name, Languages.Lang_Short_Name, Languages.Lang_LCID, Languages.Code_Page, Side_Navigation.id, Side_Navigation.language_id, Side_Navigation.View_Order, Side_Navigation.Navigation_Bar FROM Side_Navigation INNER JOIN Languages ON Side_Navigation.language_id = Languages.id WHERE (((Side_Navigation.language_id)="&lang_id&") AND ((Side_Navigation.Navigation_Bar)='2')) ORDER BY Side_Navigation.View_Order;" rsContent.Source = sqlstring rsContent.CursorType = 0 rsContent.CursorLocation = 2 rsContent.LockType = 1 rsContent.Open() end if if rscontent("Show_Center_Images")=true then Show_Center_Images=1 end if if rscontent("Show_Wallpaper")=true then Show_Wallpaper=1 end if if rscontent("Show_Rotating_Images")=true then Show_Rotating_Images=1 end if pagename=rscontent("Navigation_Name") pagecontent=rscontent("content") end if Set rsPr = Server.CreateObject("ADODB.Recordset") rsPr.ActiveConnection = con_string rsPr.source="select * from news where id="&request.querystring("id")&"" rsPr.CursorType = 0 rsPr.CursorLocation = 2 rsPr.LockType = 1 rsPr.Open() %> <%response.write "" %> <%=title%> <%randomize:max=1000:min=1:randno=Int((max-min+1)*Rnd+min)%>
<%for i=1 to 5%> <%field_str="News_Image_"&i if rspr(field_str)<>"" then %>


<% end if%> <%next%>

<%=rspr("News_Title")%>

<%=rspr("News_Date")%>

<%=rspr("News_Description")%>