<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%>
<%
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")
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
%>
Pedro's Personal Website
<%randomize:max=1000:min=1:randno=Int((max-min+1)*Rnd+min)%>