<%@ language=VBscript codepage = "1256"%> <%dp=Request.QueryString("dep")%> الاقسام العلمية
 
الصفحة الرئيسية   | موقع الجامعة التكنولوجية   | مصممو الموقع   | أتصل بنا


<% if dp="macdep" then %> <%else if dp="csedep" then %> <% else if dp="cengdep" then %> <% else if dp="appdep" then %> <%else if dp="condep" then %> <%else if dp="prodep" then %> <%else if dp="chmdep" then %> <%else if dp="artdep" then %> <% else if dp="matdep" then %> <% else if dp="lazdep" then %> <%else if dp="oildep" then %> <%else if dp="elcdep" then %> <%else if dp="buldep" then %> <% else if dp="chrdep" then %> <%end if end if end if end if end if end if end if end if end if end if end if end if end if end if %>

<% dim ado dim rs1 dim rs dim SSQL Set ado = Server.CreateObject("ADODB.Connection") ado.Provider = "Microsoft.Jet.OLEDB.4.0" ado.ConnectionString = "Data Source=" & Server.MapPath ("FmailAccountsDB.mdb") ado.Open v=1 SSQL="Select * from table1 where depname= '" &dp& "' and activision= '" &v& "' order by firstname" set rs=ADO.execute(SSQL) %>

 

<%do while not rs.eof%> <% rs.movenext loop %>
<% if rs("sex")="male" then %> <% else %> <% end if %> "> <%response.write rs("firstname")%> <%response.write rs("midname")%> <%response.write rs("lastname")%>
<% ado.close set rs = nothing set ADO= nothing %>