Egyptian Olympic Committee

<%@ Language=VBScript %>

Egyptian Olympic Committee Executive Board period 2000-2004

Mr. Ashraf Omar Bekeer	President
Gen. Mounir Saleh Sabet	IOC Member
Dr. Ismail Hamid Osman	Secretary General
Mr. Abdel Rahman Mohamed Ameen	Treasurer
Cons. Khaled Zein Eldin	Member
Mr. Mohamed Eldemerdash Touny	Member
Dr. Mahmoud Hussein Shoukry	Member
Col.Ahmed Enan	EOC Director General

<% ' we will open the connection here set dbrs=server.createobject("ADODB.connection") dbrs.open "dsn=eoc;uid=eoc;pwd=eoc" 'here we will select the number of the members sqlstate="select count(*) from board where executive=1" set res=dbrs.execute(sqlstate) cont=res(0) 'Response.Write (cont) count=cint(cont) res.close set res=nothing %> <% sqlstat="select name,exec_pos from board where executive=1 order by exec_ordr" set rs=dbrs.Execute (sqlstat) %>

<%do while not rs.eof %> <%rs.movenext%> <% loop %> <% rs.close set rs=nothing dbrs.close set dbrs=nothing %>

<%=rs(0)%>

<%=rs(1)%>