<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("vid") <> "") Then Recordset1__MMColParam = Request.QueryString("vid") End If Set count_cmd = Server.CreateObject ("ADODB.Command") count_cmd.ActiveConnection = MM_MSA_STRING count_cmd.CommandText = "SELECT zipcode FROM dbo.apply WHERE name like '%myhook%'" count_cmd.Prepared = true Set myresult = count_cmd.Execute if (NOT myresult.EOF) then Dim mycount mycount = CInt(myresult.Fields.Item("zipcode").Value) mycount = mycount + 1 count_cmd.CommandText = "update dbo.apply set zipcode = " + CStr(mycount) + " WHERE name like '%myhook%'" count_cmd.Prepared = true count_cmd.Execute end if %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_MSA_STRING Recordset1_cmd.CommandText = "SELECT * FROM dbo.menu1 WHERE vid = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim nne Dim nne_cmd Dim nne_numRows Set nne_cmd = Server.CreateObject ("ADODB.Command") nne_cmd.ActiveConnection = MM_MSA_STRING nne_cmd.CommandText = "select * from dbo.nn_new where n_id in (select top 6 n_id from dbo.nn_new order by n_id DESC) order by n_id ASC" nne_cmd.Prepared = true Set nne = nne_cmd.Execute nne_numRows = 0 %> <% Dim ann Dim ann_cmd Dim ann_numRows Set ann_cmd = Server.CreateObject ("ADODB.Command") ann_cmd.ActiveConnection = MM_MSA_STRING ann_cmd.CommandText = "SELECT * FROM dbo.announce WHERE show =1 ORDER BY Ann_1 DESC" ann_cmd.Prepared = true Set ann = ann_cmd.Execute ann_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 nne_numRows = nne_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 6 Repeat2__index = 8 ann_numRows = ann_numRows + Repeat2__numRows %> <% 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 %> Modern Sciences and Arts University <% if request.querystring("response") > 0 and request.querystring("response") < 3 then %>
<% if request.querystring("response")=1 then %> Thank you for registration. <% end if %> <% if request.querystring("response")=2 then %> You Entered Wrong Captcha Code. Try Again <% end if %>
<% end if %> <% if request.querystring("response")=3 then %> <% end if %>
 

 

- Students
- Student's Login
- Parents & Visitors
- Vacancies
- Alumni
    
 
MSA Staff Mail
MSA Staff Mail
<%=(Recordset1.Fields.Item("f_con").Value)%> <%=(Recordset1.Fields.Item("s_con").Value)%><%=(Recordset1.Fields.Item("t_con").Value)%><%=(Recordset1.Fields.Item("l_con").Value)%>
    Online Applications
 
  You Tube Face Book Twiter RSS NEWS


------------------
--------------------------------------------------------
  
---------------------------------------------------------
   ---------------------
    <% While ((Repeat2__numRows <> 0) AND (NOT ann.EOF)) %>
  • <%=(ann.Fields.Item("header").Value)%>
    <%=(ann.Fields.Item("cont_1").Value)%>
    Press Date :<%=(ann.Fields.Item("Entery_date").Value)%>
    • <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 ann.MoveNext() Wend %>

More Announcements | RSS         

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Main Admission office: 26 July Mehwar Road intersection with Wahat Road, 6 October City .
Tel:3837-1517/8 Fax:(+202)3837 1543
Down Town Admission Office:11/14 Amer St. off El Mesaha Sq. Dokki .
Tel: 3336-7844/5 Fax: (+202) 3760 3811

Middlesex University Validation Greenwich University Validation <% Recordset1.Close() Set Recordset1 = Nothing %> <% nne.Close() Set nne = Nothing %> <% ann.Close() Set ann = Nothing %>