Burj Al Alam - The World's Corporate District

<% Page=Request("Page") if Request("folder") <> "" then folder = cint(Request("folder")) else folder = 1 end if Sql="Select * from news order by newsid Desc" set rsalm1=server.CreateObject("adodb.recordset") 'Response.Write sql 'Response.End() rsalm1.Open Sql,conect,1,3 Page = cint(Page) if Page=0 then Page=1 rsalm1.PageSize=12 PageCount=rsalm.PageCount if rsalm1.EOF=false then rsalm1.AbsolutePage=Page %>

<% ' Do while not rsalm1.eof and rsalm1.AbsolutePage=Page%> <% ' for i=0 to 3 ' if rsalm1.eof then exit for%> <%'rsalm1.movenext ' next%> <% 'loop %>

Project Updates : Shoring work has been completed and Piling works in progress.Total Number of 253 piles has been completed till date.

construction works of piling at Burj Al Alam - 03-Novemberr-2009

Piling works in porgress	Piling works in progress	Piling works in progress

Driling for piles	Four no of Rigs Machine	Mobile Cranes
construction works at Burj Al Alam - June' 09








	Page 1 \| 2

<%call PageLinks%>

<% sub PageLinks 'TEXT BOX FOR JUMP TO PAGE START 'TEXT BOX FOR JUMP TO PAGE END response.write ("

www.arabic-media.com - Alittihad

www.arabic-media.com - Albayan

www.arabic-media.com - Alkhaleej

www.arabic-media.com - AMEINFO

www.arabic-media.com

Emaratalyoum

www.aleqt.com

") if folder > 1 then%> <% else%> <% end if %> <%if rsalm1.pagecount > folder2+1 then %> <% else%> <% end if response.write "

<% if rsalm1.PageCount > 1 then dim i Response.Write "" 'if len(intpagenum) > 2 then start = mid(intpagenum,1,1)& "00" else start = 1 end if response.write "" folder2 = folder*10 if folder <> 1 then temp = folder2 -9 else temp = 1 end if for i = temp to folder2 'Response.Write ("start+100 = " & start+100 & "rsalm1.pagecount = " & rsalm1.pagecount) if i= page then Response.Write "" ) else if i <= rsalm1.pagecount then %> <% else exit for end if end if 'if i/30 = int(i/30) then Response.Write "" 'if i/(start+100)= int(i/(start+100)) then ' Response.Write("") ' exit for 'end if next Response.Write "

Page :	" response.write (""&i&"	<%=i%>
.>>

" end if 'response.write pagecount %>

" %> <% end sub%>

Powered & Designed by IDM