ArabiServer="http://"+location.hostname+"/arabi"
YoungServer="http://"+location.hostname+"/youngaraby"
BookServer="http://"+location.hostname+"/arabibook"
EngServer="http://"+location.hostname+"/arabi-e"

function RightMenu()
st=""
st=st+"<A href ='"+ArabiServer+"/common/kwait/kuwait_1.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b2.gif"+"'  border=0></A>"
st=st+"<A href='"+ArabiServer+"/common/Collection/info.htm"+"'>"
st=st+"<IMG src='"+ArabiServer+"/common/images/b5.gif"+"'  border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/Collection/info1.htm"+"'>"
st=st+"<IMG src='"+ArabiServer+"/common/images/bM5.gif"+"'  border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/Collection/young_info.htm"+"'>"
st=st+"<IMG src='"+ArabiServer+"/common/images/sb5.gif"+"'  border=0></A>"

st=st+"<A href ='"+ArabiServer+"/common/fahres/main.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b1.gif"+"' border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/kotab/kotab.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b4.gif"+"'  border=0></A>"

st=st+"<A href='"+ArabiServer+"/Atlas.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b3.gif"+"'   border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/Mawsoa/Mawsoa.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/qwait.gif"+"'  border=0></A>"

st=st+"<A href='"+ArabiServer+"/data/"+pp+"/default.xml?Section="+cstr(GetClutSec)+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/culture_news.gif"+"'   border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/Collection/urls.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b13.gif"+"'  border=0></A>"

//st=st+"<A href='"+ArabiServer+"/Common/Collection/FAQ/qa.asp"+"'>"
//st=st+"<IMG  src='"+ArabiServer+"/common/images/b14.gif"+"'   border=0></A>"

st=st+"<A href='MAILTO:arabimag@arabimag.net'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b11.gif"+"'  border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/feedback/default.asp"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b10.gif"+"'  border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/Collection/anounc.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b6.gif"+"'   border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/Collection/regst.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/b7.gif"+"'   border=0></A><br/><br/>"




st=st+"<A href='"+ArabiServer+"/common/Collection/Connect.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/Connect.gif"+"'   border=0></A><br/>"

st=st+"<A href='"+ArabiServer+"/common/BBC/BBC001.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/BBC.gif"+"'   border=0></A><br/>"


st=st+"<A href='"+ArabiServer+"/common/book/books_1.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/ansheta.gif"+"'   border=0></A><br/>"

//st=st+"<A href='"+ArabiServer+"/common/Montda/Montda.asp"+"'>"
//st=st+"<IMG  src='"+ArabiServer+"/common/images/b8.gif"+"'  border=0></A>"

st=st+"<A href='"+ArabiServer+"/common/Release/0001.htm"+"'>"
st=st+"<IMG  src='"+ArabiServer+"/common/images/Release.gif"+"'   border=0></A><br/>"


'st=st+"<A href='"+ArabiServer+"/common/nadowa/nadowa0001.htm"+"'>"
'st=st+"<IMG  src='"+ArabiServer+"/common/images/nadowa-go.gif"+"'   border=0></A><br/>"
document.write(st)
end function

function Top2()
STR=""
STR=STR+"<TABLE align=center bgColor=white border=0 cellPadding=0 cellSpacing=0 height=1 width=770>"
STR=STR+"  <TR>"
STR=STR+"  <TD align=left height=1 width=220><a href='"+ArabiServer+"/main.htm"+"'><IMG  src='"+ArabiServer+"/common/images/arabi_logo.gif' border='0'></a></TD>"
'STR=STR+"    <TD align=middle><a href='"+ArabiServer+"/common/Kwait/KUWAIT_1.htm"+"'><IMG height=60 src='"+ArabiServer+"/common/images/banner.gif' width=469 border=0></a></TD></TR>"
STR=STR+"    <TD align=middle><a href='"+ArabiServer+"/common/nadowa/nadowa0001.htm"+"'><IMG height=60 src='"+ArabiServer+"/common/images/nadowa.gif' width=469 border=0></a></TD></TR>"

STR=STR+"  <TR>"
STR=STR+"<TD valign=middle background='"+ArabiServer+"/common/images/top.jpg"+"'  height=20 align='center' colspan='3'><font face='arabic transparent' size='2' color='black'><b>مجلة شهرية ثقافية مصورة تأسست عام 1958 تصدرها وزارة الإعلام بدولة الكويت للوطن العربي ولكل قارئ للعربية في العالم</b></TD>"
STR=STR+"</Tr>"
STR=STR+"  <TR>"
STR=STR+"    <TD align=right colSpan=2 height=27 vAlign=top>"

'STR=STR+"	   <A href='"+ArabiServer+"/main.htm'><IMG src='"+ArabiServer+"/common/images/tab1_.gif' "
'STR=STR+"	   border=0></A>"

STR=STR+" <A href='"+ArabiServer+"/common/archives.htm'><IMG src='"+ArabiServer+"/common/images/tab2_.gif' "
STR=STR+"      border=0></A><A href='"+ArabiServer+"/common/photoarchive/photoarchive.htm'><IMG src='"+ArabiServer+"/common/images/tab3_.gif' "
STR=STR+"      border=0></A><A href='"+ArabiServer+"/common/wathek/photo.htm'><IMG src='"+ArabiServer+"/common/images/tab4_.gif' "
STR=STR+"      border=0></A><A href='"+ArabiServer+"/common/gifts/gifts.htm'><IMG src='"+ArabiServer+"/common/images/tab5_.gif' "
STR=STR+"      border=0></A><A href='"+ArabiServer+"/common/video.htm'><IMG src='"+ArabiServer+"/common/images/tab6_.gif' "
STR=STR+"      border=0></a><A href='"+ArabiServer+"/common/advsrch.htm'><IMG src='"+ArabiServer+"/common/images/tab7_.gif' "
STR=STR+"      border=0></A><A href='"+EngServer+"/default.htm'><IMG border='0' src='"+ArabiServer+"/common/images/e_site.gif' "
STR=STR+" </TD></TR></TABLE>"

Top2=STR
end function


function Top4()
STR=""
STR=STR+"<TABLE align=center bgColor=white border=0 cellPadding=0 cellSpacing=0 height=1 width=770>"
STR=STR+"  <TR>"
STR=STR+"  <TD align=middle><a href='"+ArabiServer+"/common/nadowa/nadowa0001.htm"+"'><IMG src='"+ArabiServer+"/common/images/nadowa-1.jpg'  border=0></a></TD>"
'STR=STR+"    <TD align=middle><a href='"+ArabiServer+"/common/Kwait/KUWAIT_1.htm"+"'><IMG height=60 src='"+ArabiServer+"/common/images/banner.gif' width=469 border=0></a></TD></TR>"
STR=STR+"    <TD align=left height=1 width=220><a href='"+ArabiServer+"/main.htm"+"'><IMG  src='"+ArabiServer+"/common/images/NEW-Kw-logo.jpg' border='0'></a></TD></TR>"
STR=STR+"</TABLE>"
STR=STR+"<hr size=1 color=gray width='770'>"
document.write(STR)

end function
function Top5()
STR=""
STR=STR+"<TABLE align=center bgColor=white border=0 cellPadding=0 cellSpacing=2 height=1 width=770>"
STR=STR+"  <TR>"
STR=STR+"<TD align=middle><a href='"+ArabiServer+"/common/Nadowa/Nadowa0001.htm"+"'><IMG  src='"+ArabiServer+"/common/images/nadowa-1.jpg' border=0></a></TD>"
STR=STR+"<TD align=left ><a href='"+ArabiServer+"/main.htm"+"'><IMG  src='"+ArabiServer+"/common/images/nadowa-2.jpg' border='0'></a></TD></tr>"
STR=STR+"  <TR>"
STR=STR+"<TD align=middle colspan=2><hr size=1 color=gray></TD></tr>"
STR=STR+" </TABLE>"

document.write(STR)
end function

function Top()
STR=""
STR=STR+"<TABLE align=center bgColor=white border=0 cellPadding=0 cellSpacing=0 height=1 width=770>"
STR=STR+"  <TR>"
STR=STR+"  <TD align=left height=1 width=220><a href='"+ArabiServer+"/main.htm"+"'><IMG  src='"+ArabiServer+"/common/images/arabi_logo.gif' border='0'></a></TD>"
STR=STR+"    <TD align=middle><a href='"+ArabiServer+"/common/Kwait/KUWAIT_1.htm"+"'><IMG height=60 src='"+ArabiServer+"/common/images/banner.gif' width=469 border=0></a></TD></TR>"
'STR=STR+"    <TD align=middle><a href='"+ArabiServer+"/common/Nadowa/Nadowa0001.htm"+"'><IMG height=60 src='"+ArabiServer+"/common/images/Animation2.gif' width=469 border=0></a></TD></TR>"
STR=STR+"  <TR>"
STR=STR+"<TD valign=middle background='"+ArabiServer+"/common/images/top.jpg"+"'  height=20 align='center' colspan='3'><font face='arabic transparent' size='2' color='black'><b>مجلة شهرية ثقافية مصورة تأسست عام 1958 تصدرها وزارة الإعلام بدولة الكويت للوطن العربي ولكل قارئ للعربية في العالم</b></TD>"
STR=STR+"</Tr>"
STR=STR+"  <TR>"
STR=STR+"    <TD align=right colSpan=2 height=27 vAlign=top>"

'STR=STR+"	   <A href='"+ArabiServer+"/main.htm'><IMG src='"+ArabiServer+"/common/images/tab1_.gif' "
'STR=STR+"	   border=0></A>"

STR=STR+" <A href='"+ArabiServer+"/common/archives.htm'><IMG src='"+ArabiServer+"/common/images/tab2_.gif' "
STR=STR+"      border=0></A><A href='"+ArabiServer+"/common/photoarchive/photoarchive.htm'><IMG src='"+ArabiServer+"/common/images/tab3_.gif' "
STR=STR+"      border=0></A><A href='"+ArabiServer+"/common/wathek/photo.htm'><IMG src='"+ArabiServer+"/common/images/tab4_.gif' "
STR=STR+"      border=0></A><A href='"+ArabiServer+"/common/gifts/gifts.htm'><IMG src='"+ArabiServer+"/common/images/tab5_.gif' "
STR=STR+"      border=0></A><A href='"+ArabiServer+"/common/video.htm'><IMG src='"+ArabiServer+"/common/images/tab6_.gif' "
STR=STR+"      border=0></a><A href='"+ArabiServer+"/common/advsrch.htm'><IMG src='"+ArabiServer+"/common/images/tab7_.gif' "
STR=STR+"      border=0></A><A href='"+EngServer+"/default.htm'><IMG border='0' src='"+ArabiServer+"/common/images/e_site.gif' "
STR=STR+" </TD></TR></TABLE>"

document.write(STR)
end function

'################## Index fields for AlArabi Magazine
	GetClutSec=0
	NDX_Afname=0
	NDX_ATitle=3
	NDX_ASummary=5
	NDX_ASection=1
	NDX_APriority=7
	NDX_Aimages=14
	NDX_AAuthor=4
	NDX_AColumns=2
'################## End  Index fields for AlArabi Magazine

'################## Index fields for Young Magazine
	NDX_Yfname=0
	NDX_YTitle=3
	NDX_YSummary=5
	NDX_YSection=1
	NDX_YPriority=7
	NDX_Yimages=13
	NDX_YAuthor=4
'################## End  Index fields for AlArabi Magazine

'################## Index fields for Ketab Magazine
	NDX_Bfname=0
	NDX_BTitle=3
	NDX_BSummary=5
	NDX_BSection=1
	NDX_BPriority=7
	NDX_Bimages=13
	NDX_BAuthor=4
'################## End  Index fields for AlArabi Magazine

'######################  Arabi loading files ####################################
' Load Xml files 


	dim xmlArchive
	Set	xmlArchive	= CreateObject("microsoft.xmldom")
	xmlArchive.async = False
' Archive.xml ===========================================================
	xmlArchive.load(ArabiServer+"/common/Archive.xml")
	set qryArchive		= xmlArchive.selectNodes("Data")
	set btArchive		= qryArchive.nextNode()
	LastIssue		= btArchive.childNodes(0).childNodes(1).text

	
	p = split(LastIssue,"/")
	pp = p(2) + "/" + p(1) + "/" + p(0)


' Load Xml files 
	Dim xmlDoc
	Set	xmlDoc		= CreateObject("microsoft.xmldom")
	xmlDoc.async = False
	xmlDoc.load(ArabiServer+"/Data/"+pp+"/default.xml")
	
	set qryIssue		= xmlDoc.selectNodes("Data/issue")
	set btIssue			= qryIssue.nextNode()
	set qrySec			= xmlDoc.selectNodes("Data/Sections")
	set btSec			= qrySec.nextNode()
	set qryArt			= xmlDoc.selectNodes("Data/Articles")
	set btArt			= qryArt.nextNode()
	set qryArtImages	= xmlDoc.selectNodes("Data/Articles/Article/images")
	set btArtImages		= qryArtImages.nextNode()

'###################### End Arabi loading files ####################################
	'######################  Young loading files ####################################
' Load Xml files 
	dim xmlArchiveY
	Set	xmlArchiveY	= CreateObject("microsoft.xmldom")
	xmlArchiveY.async = False
' Archive.xml ===========================================================
	xmlArchiveY.load(YoungServer+"/common/Archive.xml")
	set qryArchiveY		= xmlArchiveY.selectNodes("Data")
	set btArchiveY		= qryArchiveY.nextNode()
	LastIssueY			= btArchiveY.childNodes(0).childNodes(1).text
	
	pY = split(LastIssueY,"/")
	ppY = pY(2) + "/" + pY(1) + "/" + pY(0)

' Load Xml files 
	Dim xmlDocY
	Set	xmlDocY		= CreateObject("microsoft.xmldom")
	xmlDocY.async = False
	xmlDocY.load(YoungServer+"/Data/"+ppY+"/default.xml")
	
	set qryIssueY		= xmlDocY.selectNodes("Data/issue")
	set btIssueY		= qryIssueY.nextNode()
	set qrySecY			= xmlDocY.selectNodes("Data/Sections")
	set btSecY			= qrySecY.nextNode()
	set qryArtY			= xmlDocY.selectNodes("Data/Articles")
	set btArtY			= qryArtY.nextNode()
	set qryArtImagesY	= xmlDocY.selectNodes("Data/Articles/Article/images")
	set btArtImagesY	= qryArtImagesY.nextNode()

'###################### End Arabi loading files ####################################
'######################  Arabi loading files ####################################
' Load Xml files 
	dim xmlArchiveB
	Set	xmlArchiveB	= CreateObject("microsoft.xmldom")
	xmlArchiveB.async = False
' Archive.xml ===========================================================
	xmlArchiveB.load(BookServer+"/common/Archive.xml")
	set qryArchiveB		= xmlArchiveB.selectNodes("Data")
	set btArchiveB		= qryArchiveB.nextNode()
	LastIssueB			= btArchiveB.childNodes(0).childNodes(1).text
	
	pB = split(LastIssueB,"/")
	ppB = pB(2) + "/" + pB(1) + "/" + pB(0)

' Load Xml files 
	Dim xmlDocB
	Set	xmlDocB		= CreateObject("microsoft.xmldom")
	xmlDocB.async = False
	xmlDocB.load(BookServer+"/Data/"+ppB+"/default.xml")
	
	set qryIssueB		= xmlDocB.selectNodes("Data/issue")
	set btIssueB		= qryIssueB.nextNode()
	set qrySecB			= xmlDocB.selectNodes("Data/Sections")
	set btSecB			= qrySecB.nextNode()
	set qryArtB			= xmlDocB.selectNodes("Data/Articles")
	set btArtB			= qryArtB.nextNode()
	set qryArtImagesB	= xmlDocB.selectNodes("Data/Articles/Article/images")
	set btArtImagesB	= qryArtImagesB.nextNode()



	for t = 0 to btSec.childNodes.length-1 
		if btSec.childNodes(t).text="أخبار ثقافية" then 	
			GetClutSec=t
			exit for
		end if
	next


function GetHotNews()
hNewsStr=""
	for t = 0 to btArt.childNodes.length-1 
	if btArt.childNodes(t).childNodes(1).text="أخبار ثقافية" and  btArt.childNodes(t).childNodes(11).text="1" then 	
		ArtName=btArt.childNodes(t).childNodes(NDX_Afname).text
		ArtTitle=btArt.childNodes(t).childNodes(NDX_ATitle).text
		hNewsStr=hNewsStr+"&nbsp;&nbsp;&nbsp;<A class='Titles' href='"+ArabiServer+"/Data/"+pp+"/"+ArtName+"'><font face='simplified arabic' size='3'><b>"+ArtTitle+"</b></font></A><br/><br/>"
	end if
	next
	GetHotNews="<center><Marquee dir='rtl' width='310' id='HotNews' DIRECTION='up' BEHAVIOR='scroll' height='175' ScrollAmount='1' onmouseover='StopNews()' onmouseout='StratNews()'>"
	GetHotNews=GetHotNews+hNewsStr+"</Marquee></center>"
end function
'###################### End Arabi loading files ####################################
function GAFirstSection()
Imgname=""	
	for t = 0 to btArt.childNodes.length-1 
		if btArt.childNodes(t).childNodes(NDX_APriority).text="3" then 	
		ArtName=btArt.childNodes(t).childNodes(NDX_Afname).text
		ArtTitle=btArt.childNodes(t).childNodes(NDX_ATitle).text
		ArtSummary=btArt.childNodes(t).childNodes(NDX_ASummary).text
		if btArt.childNodes(t).childNodes(NDX_Aimages).childNodes.length > 0 then
			'Imgname=btArt.childNodes(t).childNodes(NDX_Aimages).childNodes(0).childNodes(0).text
			Imgname=btArt.childNodes(t).childNodes(NDX_Aimages).childNodes(0).childNodes(2).text
			Imgdesc=btArt.childNodes(t).childNodes(NDX_Aimages).childNodes(0).childNodes(1).text
		end if
		
		itt="<Table cellpadding='0' cellspacing='0' border='0' dir='rtl' width='100%'>"
		itt=itt+"<tr>"
		itt=itt+"<td align='right' width='100%' colspan='2'>"
		itt=itt+"<A href='"+ArabiServer+"/Data/"+pp+"/"+ArtName+"' class='Titles'>"
		itt=itt+"<font face='simplified arabic' size='4'><b>"
		itt=itt+ArtTitle
		itt=itt+"</b></font></A></td>"
		itt=itt+"</tr>"
		itt=itt+"<tr>"
		if Imgname <> "" then
			itt=itt+"<td align='right' width='100%'>"
		else
			itt=itt+"<td align='right' width='100%' colspan='2'>"
		end if 
		itt=itt+"<p align='justify'><font face='simplified arabic' size='2'><b>"
		itt=itt+ArtSummary
		itt=itt+"</b></font></p></td>"
		if Imgname <> "" then
			itt=itt+"<td align='right' width='120'>"
			itt=itt+"<img hspace='5' width='120' border='1' bordercolor='black' src='"+ArabiServer+"/Data/"+pp+"/"+Imgname+"'>"
			itt=itt+"</td>"
		end if
		itt=itt+"</tr>"
		itt=itt+"</table>"
		exit for
		end if
	next
	document.write(itt)
	itt=""
end function

function GYFirstSection()

ArtTitle=""
ArtSummary=""
Imgname=""
Imgdesc=""

for t = 0 to btArtY.childNodes.length-1 
		if btArtY.childNodes(t).childNodes(NDX_YPriority).text="2" then 	
		ArtNameY=btArtY.childNodes(t).childNodes(NDX_Yfname).text
		ArtTitle=btArtY.childNodes(t).childNodes(NDX_YTitle).text
		ArtSummary=btArtY.childNodes(t).childNodes(NDX_YSummary).text
		if btArtY.childNodes(t).childNodes(NDX_Yimages).childNodes.length > 0 then
			'Imgname=btArtY.childNodes(t).childNodes(NDX_Yimages).childNodes(0).childNodes(0).text
			Imgname=btArtY.childNodes(t).childNodes(NDX_Yimages).childNodes(0).childNodes(2).text
			Imgdesc=btArtY.childNodes(t).childNodes(NDX_Yimages).childNodes(0).childNodes(1).text
		end if
		itt="<Table cellpadding='0' cellspacing='0' border='0' dir='rtl' width='100%'>"
		itt=itt+"<tr>"
		itt=itt+"<td align='right' width='100%' colspan='2'>"
		itt=itt+"<A href='"+YoungServer+"/Data/"+ppY+"/"+ArtNameY+"' class='Titles'>"
		itt=itt+"<font face='simplified arabic' size='4'><b>"
		itt=itt+ArtTitle
		itt=itt+"</b></font></A></td>"
		itt=itt+"</tr>"
		itt=itt+"<tr>"
		if Imgname <> "" then
			itt=itt+"<td align='right' width='100%'>"
		else
			itt=itt+"<td align='right' width='100%' colspan='2'>"
		end if 
		itt=itt+"<p align='justify'><font face='simplified arabic' size='2'><b>"
		itt=itt+ArtSummary
		itt=itt+"</b></font></p></td>"
		if Imgname <> "" then
			itt=itt+"<td align='right' width='120' valign='bottom'>"
			itt=itt+"<img hspace='5' width='120' border='1' bordercolor='black' src='"+YoungServer+"/Data/"+ppY+"/"+Imgname+"'>"
			itt=itt+"</td>"
		end if
		itt=itt+"</tr>"
		itt=itt+"</table>"
		exit for
		end if
	next
	document.write(itt)
	itt=""

end function

function GBFirstSection()

ArtTitle=""
ArtSummary=""
Imgname=""
Imgdesc=""

for t = 0 to btArtB.childNodes.length-1 
		if btArtB.childNodes(t).childNodes(NDX_BPriority).text="2" then 	
		ArtNameB=btArtB.childNodes(t).childNodes(NDX_Bfname).text
		ArtTitle=btArtB.childNodes(t).childNodes(NDX_BTitle).text
		ArtSummary=btArtB.childNodes(t).childNodes(NDX_BSummary).text
		if btArtB.childNodes(t).childNodes(NDX_Bimages).childNodes.length > 0 then
			'Imgname=btArtB.childNodes(t).childNodes(NDX_Bimages).childNodes(0).childNodes(0).text
			Imgname=btArtB.childNodes(t).childNodes(NDX_Bimages).childNodes(0).childNodes(2).text
			Imgdesc=btArtB.childNodes(t).childNodes(NDX_Bimages).childNodes(0).childNodes(1).text
		end if
		itt="<Table cellpadding='0' cellspacing='0' border='0' dir='rtl' width='100%'>"
		itt=itt+"<tr>"
		itt=itt+"<td align='right' width='100%' colspan='2'>"
		itt=itt+"<A href='"+BookServer+"/Data/"+ppB+"/"+ArtNameB+"' class='Titles'>"
		itt=itt+"<font face='simplified arabic' size='4'><b>"
		itt=itt+ArtTitle
		itt=itt+"</b></font></A></td>"
		itt=itt+"</tr>"
		itt=itt+"<tr>"
		if Imgname <> "" then
			itt=itt+"<td align='right' width='100%'>"
		else
			itt=itt+"<td align='right' width='100%' colspan='2'>"
		end if 
		itt=itt+"<p align='justify'><font face='simplified arabic' size='2'><b>"
		itt=itt+ArtSummary
		itt=itt+"</b></font></p></td>"
		if Imgname <> "" then
			itt=itt+"<td align='right' width='120' valign='bottom'>"
			itt=itt+"<img hspace='5' width='120' border='1' bordercolor='black' src='"+BookServer+"/Data/"+ppB+"/"+Imgname+"'>"
			itt=itt+"</td>"
		end if
		itt=itt+"</tr>"
		itt=itt+"</table>"
		exit for
		end if
	next
	document.write(itt)
	itt=""

end function

function GATitles()
it=""	
xx=""
xx="<ul type='square' dir='rtl'>"

for tt = 0 to btArt.childNodes.length-1 

if btArt.childNodes(tt).childNodes(NDX_AAuthor).text="سليمان إبراهيم العسكري"  then
			ppHref=btArt.childNodes(tt).childNodes(NDX_Afname).text
ArtName=ppHref
			xx=xx+"<li dir='rtl'>"
			xx=xx+"<A href='"+arabiserver+"/Data/"+pp+"/"+ppHref+"'>"
			xx=xx+"<font face='simplified arabic' size='3' color='navy'><b>"
			xx=xx+ btArt.childNodes(tt).childNodes(NDX_ATitle).text
			xx=xx+"</b></font>"
			xx=xx+"</A>"
			xx=xx+"</li>"
end if
if btArt.childNodes(tt).childNodes(NDX_APriority).text="1" and btArt.childNodes(tt).childNodes(NDX_Afname).text <> ArtName then
		ppHref=btArt.childNodes(tt).childNodes(NDX_Afname).text
			it=it+"<li dir='rtl'>"
			it=it+"<A href='"+arabiserver+"/Data/"+pp+"/"+ppHref+"'>"
			it=it+"<font face='simplified arabic' size='3' color='navy'><b>"
			it=it+ btArt.childNodes(tt).childNodes(NDX_ATitle).text
			it=it+"</b></font>"
			it=it+"</A>"
			it=it+"</li>"
			end if
		next
	it=xx+it+"</ul>"
	document.write(it)
	it=""
end function




















function GYTitles()
it=""	
it="<ul type='square'>"
for t = 1 to 5
	for tt = 0 to btArtY.childNodes.length-1 
	if btArtY.childNodes(tt).childNodes(NDX_YSection).text=btSecY.childNodes(t).text and btArtY.childNodes(tt).childNodes(NDX_Yfname).text <> ArtNameY then
		ppHref=btArtY.childNodes(tt).childNodes(NDX_Yfname).text
			it=it+"<li>"
			it=it+"<A href='"+YoungServer+"/Data/"+PPY+"/"+ppHref+"'>"
			it=it+"<font face='simplified arabic' size='3' color='navy'><b>"
			it=it+ btArtY.childNodes(tt).childNodes(NDX_YTitle).text
			it=it+"</b></font>"
			it=it+"</A>"
			it=it+"</li>"
			exit for
			end if
		next
	next
	it=it+"</ul>"
	document.write(it)
	it=""
end function

function GBTitles()
it=""	
it="<ul type='square'>"
if btSecB.childNodes.length-1 > 2 then
	Count=2
else
Count=btSecB.childNodes.length-1
end if

for t = 0 to Count
	for tt = 0 to btArtB.childNodes.length-1 
	if btArtB.childNodes(tt).childNodes(NDX_BSection).text=btSecB.childNodes(t).text and btArtB.childNodes(tt).childNodes(NDX_Bfname).text <> ArtNameB then
		ppHref=btArtB.childNodes(tt).childNodes(NDX_Bfname).text
		it=it+"<li>"
		it=it+"<A href='"+BookServer+"/Data/"+PPB+"/"+ppHref+"'>"
		it=it+"<font face='simplified arabic' size='3' color='navy'><b>"
		it=it+btArtB.childNodes(tt).childNodes(NDX_BTitle).text
		it=it+"</b></font>"
		it=it+"</A>"
		it=it+"</li>"
		exit for
	end if
	next
  next

it=it+"</ul>"
document.write(it)
it=""
end function


function GACover()
altvar=""
page_p=document.location.href

	for t = 0 to btArt.childNodes.length-1 
	if btArt.childNodes(t).childNodes(NDX_Aimages).childNodes.length <> 0 then 	
		if  btArt.childNodes(t).childNodes(NDX_Aimages).childNodes(0).childNodes(1).text="صورة الغلاف"  then
				
		AXFile=btArt.childNodes(t).childNodes(NDX_Afname).text
		'pppImg =btArt.childNodes(t).childNodes(NDX_Aimages).childNodes(0).childNodes(0).text
		pppImg =btArt.childNodes(t).childNodes(NDX_Aimages).childNodes(0).childNodes(2).text
				
		AMonth=p(1)
		
		if (instr(1,ucase(page_p),"EMAIN.HTM") <> 0 or instr(1,ucase(page_p),"E-INFO.HTM") or instr(1,ucase(page_p),"ENGSRCH.HTM") or instr(1,ucase(page_p),"EKUWAIT"))  then
			MonthN=EFISSUEmonth(AMonth)+" "+p(2)	
			altvar="alt='Al-arabi Magazine'"

		else
			MonthN=FISSUEmonth(AMonth)+" "+p(2)
			altvar="alt='مجلة العربي'"
		end if


		document.write("<table cellpadding='5' cellspacing='0' border='3' bordercolor='#f6d578'>")
		document.write("<th>")

		document.write("<A href='"+ArabiServer+"'>")
		document.write("<IMG height='150' width='100' border='0' src='"+ArabiServer+"/Data/"+pp+"/"+pppImg+"'"+altvar+">")
		document.write("<br><font face='simplified arabic' color='brown' size='4'><b>")
		document.write(MonthN)
		document.write("</b></font></A><br>")
		document.write("</th>")
		document.write("</table>")
		exit for
		end if
	end if
	next
end function

function GYCover()
altvar=""
page_p=document.location.href
	for t = 0 to btArtY.childNodes.length-1 
	if btArtY.childNodes(t).childNodes(NDX_YSection).text = btSecY.childNodes(0).text  then 
	
	if btArtY.childNodes(t).childNodes(NDX_Yimages).childNodes.length <> 0  then
	
		YXFile=btArtY.childNodes(t).childNodes(NDX_Yfname).text
		'pppImg =btArtY.childNodes(t).childNodes(NDX_Yimages).childNodes(0).childNodes(0).text
		pppImg =btArtY.childNodes(t).childNodes(NDX_Yimages).childNodes(0).childNodes(2).text
		
		YMonth=pY(1)

		if (instr(1,ucase(page_p),"EMAIN.HTM") <> 0 or instr(1,ucase(page_p),"E-INFO.HTM") or instr(1,ucase(page_p),"ENGSRCH.HTM") or instr(1,ucase(page_p),"EKUWAIT"))  then
			MonthN=EFISSUEmonth(YMonth)+" "+pY(2)	
			altvar="alt='Al-arabi Alsagher Magazine'"
		else
			MonthN=FISSUEmonth(YMonth)+" "+pY(2)
			altvar="alt='مجلة العربي الصغير'"
			
		end if

		document.write("<table cellpadding='5' cellspacing='0' border='3' bordercolor='5a7cb9'>")
		document.write("<th>")
		document.write("<A href='"+YoungServer+"'>")
		document.write("<IMG   height=150 width='100' border='0' src='"+YoungServer+"/Data/"+ppY+"/"+pppImg+"'"+altvar+">")
		document.write("<br><font face='simplified arabic' color='brown' size='4'><b>")
		document.write(MonthN)
		document.write("</b></font></A><br>")
		document.write("</th>")
		document.write("</table>")
		exit for
	end if
	end if
	next
end function

function GBCover()
page_p=document.location.href
	for t = 0 to btArtB.childNodes.length-1 
	if btArtB.childNodes(t).childNodes(NDX_BSection).text = btSecB.childNodes(0).text  then 
		if btArtB.childNodes(t).childNodes(NDX_Bimages).childNodes.length <> 0  then
	
		BXFile=btArtB.childNodes(t).childNodes(NDX_Bfname).text
		'pppImg =btArtB.childNodes(t).childNodes(NDX_Bimages).childNodes(0).childNodes(0).text
		pppImg =btArtB.childNodes(t).childNodes(NDX_Bimages).childNodes(0).childNodes(2).text
		
		BMonth=pB(1)
		if (instr(1,ucase(page_p),"EMAIN.HTM") <> 0 or instr(1,ucase(page_p),"E-INFO.HTM") or instr(1,ucase(page_p),"ENGSRCH.HTM") or instr(1,ucase(page_p),"EKUWAIT"))  then
			MonthN=EFISSUEmonth(BMonth)+" "+pB(2)	
			altvar="alt='Al-arabi Book'"
		else
			MonthN=FISSUEmonth(BMonth)+" "+pB(2)
			altvar="alt='كتاب العربي'"
		end if

		'document.write("<table cellpadding='5' cellspacing='0' border='3' bordercolor='ACAE81'>")
		document.write("<table cellpadding='5' cellspacing='0' border='3' bordercolor='#95b8c7'>")
		document.write("<th>")
		document.write("<A href='"+BookServer+"'>")
		document.write("<IMG  width='100' border='0' src='"+BookServer+"/Data/"+ppB+"/"+pppImg+"'"+altvar+">")
		document.write("<br><font face='simplified arabic' color='brown' size='4'><b>")
		document.write(MonthN)
		document.write("</b></font></A><br>")
		document.write("</th>")
		document.write("</table>")
		exit for
	end if
	end if
	next
end function

function FISSUEmonth(Mon)

		select case Mon
		case 1 :
			FISSUEmonth="يناير"
		case 2 :
			FISSUEmonth="فبراير"
		case 3 :
			FISSUEmonth="مارس"
		case 4 :
			FISSUEmonth="ابريل"
		case 5 :
			FISSUEmonth="مايو"
		case 6 :
			FISSUEmonth="يونيو"
		case 7 :
			FISSUEmonth="يوليو"
		case 8 :
			FISSUEmonth="أغسطس"
		case 9 :
			FISSUEmonth="سبتمبر"
		case 10 :
			FISSUEmonth="اكتوبر"
		case 11 :
			FISSUEmonth="نوفمبر"
		case 12 :
			FISSUEmonth="ديسمبر"
		end select

end function


function EFISSUEmonth(Mon)

		select case Mon
		case 1 :
			EFISSUEmonth="January"
		case 2 :
			EFISSUEmonth="February"
		case 3 :
			EFISSUEmonth="March"
		case 4 :
			EFISSUEmonth="April"
		case 5 :
			EFISSUEmonth="May"
		case 6 :
			EFISSUEmonth="June"
		case 7 :
			EFISSUEmonth="July"
		case 8 :
			EFISSUEmonth="August"
		case 9 :
			EFISSUEmonth="September"
		case 10 :
			EFISSUEmonth="October"
		case 11 :
			EFISSUEmonth="November"
		case 12 :
			EFISSUEmonth="December"
		end select

end function


function WriteVote()
	Dim xmlVote
	Set	xmlVote=CreateObject("microsoft.xmldom")
	xmlVote.async=False
if xmlVote.load(ArabiServer+"/common/Vote.xml") then

	Set Question=xmlVote.getElementsByTagName("Question")
		QueContent=Question.item(0).text

	set qryOptions=xmlVote.selectNodes("Vote/Options")
	set Options=qryOptions.nextNode()

	Set ID=xmlVote.getElementsByTagName("ID")
		VoteId=ID.item(0).text

	Set Count=xmlVote.getElementsByTagName("Count")
		OptCount=Count.item(0).text
	
	
	it=""
	'it=it+"<tr>"
	'it=it+"<TD colspan=2 width=200 valign=top align=center>"
	it=it+"<form name='voteform'>"
	it=it+"<table   cellspacing='0' cellpadding='0' border='1'  bordercolor='#444423'  align='center' >"
	it=it+"<tr>"
	it=it+"<td  align='center' colspan='3' style='border:0'>"
	it=it+"<img src='common/images/Vtitle.gif' border='0' align='middle'>"
	it=it+"</td></tr>"
	it=it+"<tr>"
	it=it+"<td  align='center' colspan='3' style='border:0;padding:5' bgcolor='#D4D4B2'>"
	it=it+"<p align='justify'><font color='black' face='simplified arabic' size='2'><b>"
	it=it+QueContent
	it=it+"</b></font></p></td></tr>"
	
	for i=0 to Options.childNodes.length-1
	 j=i+1
	 it=it+"<tr bgcolor='#BABA9A'>"
	 it=it+"<td style='border:0' width='5' valign='top'>"
	 it=it+"<input type='radio' name='vote' value='"+cstr(j)+"'></td>"
	 it=it+"<td style='border:0;padding:2' colspan='2'>"
	 it=it+"<font size='2' color='black' face='simplified arabic'><b>"
	 it=it+Options.childNodes(i).text
	 it=it+"</b></font></td></tr>"
	next
	it=it+"<tr bgcolor='#800000' ><td colspan='3'></td></tr>"
	it=it+"</table>"
	
	it=it+"<a href="+"javascript:ShowResult(1,'http://"+location.hostname+"/vote/aresult.asp?ID="+VoteId+"'"+","+OptCount+")"+">"
	it=it+"<img src='common/images/Vnew.gif' border='0' align='right' vspcae='5' valign='bottom' style='position: relative; left: 3'>"
	it=it+"</a>"

	it=it+"<a  href="+"javascript:ShowResult(0,'http://"+location.hostname+"/vote/aresult.asp?ID="+VoteId+"'"+","+OptCount+")"+">"
	it=it+"<img src='common/images/Vshow.gif' border='0' align='left' valign='bottom' hspace=9>"
	it=it+"</a></center></form>"
	
	document.write(it)
	
end if
	it=""
end function

function EWriteVote()
	Dim xmlVote
	Set	xmlVote=CreateObject("microsoft.xmldom")
	xmlVote.async=False
if xmlVote.load(ArabiServer+"/common/eVote.xml") then

	Set Question=xmlVote.getElementsByTagName("Question")
		QueContent=Question.item(0).text

	set qryOptions=xmlVote.selectNodes("Vote/Options")
	set Options=qryOptions.nextNode()

	Set ID=xmlVote.getElementsByTagName("ID")
		VoteId=ID.item(0).text

	Set Count=xmlVote.getElementsByTagName("Count")
		OptCount=Count.item(0).text
	
	
	it=""
	'it=it+"<tr>"
	'it=it+"<TD colspan=2 width=200 valign=top align=center>"
	it=it+"<form name='voteform'>"
	it=it+"<table   cellspacing='0' cellpadding='0' border='1'  bordercolor='#444423'  align='center' >"
	it=it+"<tr>"
	it=it+"<td  align='center' colspan='3' style='border:0'>"
	it=it+"<img src='common/eimages/Vtitle.gif' border='0' align='middle'>"
	it=it+"</td></tr>"
	it=it+"<tr>"
	it=it+"<td  align='left' colspan='3' style='border:0;padding:5' bgcolor='#D4D4B2'>"
	it=it+"<p align='justify'><font color='black' face='simplified arabic' size='2'><b>"
	it=it+QueContent
	it=it+"</b></font></p></td></tr>"
	
	for i=0 to Options.childNodes.length-1
	 j=i+1
	 it=it+"<tr bgcolor='#BABA9A'>"
	 it=it+"<td style='border:0' width='5' valign='top' align='left'>"
	 it=it+"<input type='radio' name='vote' value='"+cstr(j)+"'></td>"
	 it=it+"<td style='border:0;padding:2' colspan='2'>"
	 it=it+"<font size='2' color='black' face='simplified arabic'><b>"
	 it=it+Options.childNodes(i).text
	 it=it+"</b></font></td></tr>"
	next
	it=it+"<tr bgcolor='#800000' ><td colspan='3'></td></tr>"
	it=it+"</table>"
	
	it=it+"<a href="+"javascript:ShowResult(0,'http://"+location.hostname+"/vote/result.asp?ID="+VoteId+"'"+","+OptCount+")"+">"
	it=it+"<img src='common/eimages/Vshow.gif' border='0' style='position: relative; left: 3'  align='right' vspcae='5' valign='bottom'>"
	it=it+"</a>"

	it=it+"<a  href="+"javascript:ShowResult(1,'http://"+location.hostname+"/vote/result.asp?ID="+VoteId+"'"+","+OptCount+")"+">"
	it=it+"<img src='common/eimages/Vnew.gif' border='0' style='position: relative; left: -3'  align='left' valign='bottom'>"
	it=it+"</a></center></form>"
	
	document.write(it)
	
end if
	it=""
end function