<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%> <% session("count")=session("count")+1 if (session("count")=1) then Dim count_view Dim count_view_numRows Set count_view = Server.CreateObject("ADODB.Recordset") count_view.ActiveConnection = MM_tansik_conn_STRING count_view.Source = "SELECT * FROM dbo.variables_table WHERE id =1" count_view.CursorType = 0 count_view.CursorLocation = 2 count_view.LockType = 1 count_view.Open() count_view_numRows = 0 application("x")=count_view.Fields.Item("counter").Value application("x")=application("x")+1 set conn=Server.CreateObject("ADODB.Connection") conn.open MM_tansik_conn_STRING sql="UPDATE variables_table SET counter=" & application("x") & "where id=1" on error resume next conn.Execute sql,recaffected conn.close end if If (Session("max_newsid") = "") Then Response.Redirect("home.asp") End If Dim intro Dim intro_numRows Set intro = Server.CreateObject("ADODB.Recordset") intro.ActiveConnection = MM_tansik_conn_STRING intro.Source = "SELECT short_text, image, image_width, image_hight, image_alt FROM dbo.en_introduction" intro.CursorType = 0 intro.CursorLocation = 2 intro.LockType = 1 intro.Open() intro_numRows = 0 %> <% Dim news_1__MMColParam news_1__MMColParam = "1" If (Session("max_newsid") <> "") Then news_1__MMColParam = Session("max_newsid") End If %> <% Dim news_1 Dim news_1_numRows Set news_1 = Server.CreateObject("ADODB.Recordset") news_1.ActiveConnection = MM_tansik_conn_STRING news_1.Source = "SELECT * FROM dbo.en_news WHERE news_id = " + Replace(news_1__MMColParam, "'", "''") + "" news_1.CursorType = 0 news_1.CursorLocation = 2 news_1.LockType = 1 news_1.Open() news_1_numRows = 0 %> <% Dim news_2__MMColParam news_2__MMColParam = "1" If (Session("max_newsid")-1 <> "") Then news_2__MMColParam = Session("max_newsid")-1 End If %> <% Dim news_2 Dim news_2_numRows Set news_2 = Server.CreateObject("ADODB.Recordset") news_2.ActiveConnection = MM_tansik_conn_STRING news_2.Source = "SELECT * FROM dbo.en_news WHERE news_id = " + Replace(news_2__MMColParam, "'", "''") + "" news_2.CursorType = 0 news_2.CursorLocation = 2 news_2.LockType = 1 news_2.Open() news_2_numRows = 0 %> <% Dim news_3__MMColParam news_3__MMColParam = "1" If (Session("max_newsid")-2 <> "") Then news_3__MMColParam = Session("max_newsid")-2 End If %> <% Dim news_3 Dim news_3_numRows Set news_3 = Server.CreateObject("ADODB.Recordset") news_3.ActiveConnection = MM_tansik_conn_STRING news_3.Source = "SELECT * FROM dbo.en_news WHERE news_id = " + Replace(news_3__MMColParam, "'", "''") + "" news_3.CursorType = 0 news_3.CursorLocation = 2 news_3.LockType = 1 news_3.Open() news_3_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> ÇáÌåÇÒ ÇáÞæãì ááÊäÓíÞ ÇáÍÖÇÑì
 

Search in Website

Search in

    

Targets of the Authority:

The Authority aims at applying the values of beauty to  the exterior image of buildings, urban and monumental spaces, the bases of visual texture of cities and villages and all the civilized areas of the country including the new urban societies. 

To achieve these targets, NOUH is authorized to make all required decisions and recommendations in accordance with the current rules of law and legislation. Hence, NOUH is responsible in particular for the following: 

1. Reformulating the visual beauty of the all areas all over the country and eliminating actual ugliness.

2. Preparing a database comprising all buildings with special architectural features all over the country and setting the necessary rules to preserve this patrimony.

3. Setting the norms that guarantee the occurrence of no alteration to the current architectural image and prohibiting the addition of any annexes to the currently existing buildings that may deform the whole image.

4. Setting the bases of dealing with architectural spaces such as gardens, streets, pavements, lighting and colors.  Both the particularity of every zone and the international criteria must be taken into consideration.  These rules must also respect the movement of pedestrians and disabled citizens. Thus, materials and colors must conform with the architectural features of every area.

5. Setting the conditions tackling the form of advertisements and signs appearing in streets, squares and on buildings’ facades. The regulation must define the dimensions of the advertisement, its height, colors and its suitable location.

6. Re-organizing public squares  within an architectural & visual framework. This must conform with the specific features of every area and must preserve the original old form of every square.

7. Discussing draft laws and pointing out every remark that helps to achieve urban harmony. 

      

 

Cairo in the morning

 

Cairo at Night

 

Building on Talaat Harb SQ.-
  ( formerly Suleiman Pasha SQ.)
 Cairo



Montazah palace

 

Building on Abdeen SQ-Cairo

 

 

 
 

Home Page  |  Contact Us  |  Site map

        All copyrights reserved for the National Organization for Urban Harmony in accordance with the law
<% intro.Close() Set intro = Nothing %> <% news_1.Close() Set news_1 = Nothing %> <% news_2.Close() Set news_2 = Nothing %> <% news_3.Close() Set news_3 = Nothing %>