<%response.buffer="true"%>
<%
on error resume next
dep=cint(request.querystring("dep"))
Response.Buffer=true
dim Depart
dim Facul
dim Fac
Depart="Faculties"
select case dep
case 1
dept="Computer Engineering"
case 2
dept="Electronics Engineering"
case 3
dept="Biomedical Engineering"
case 4
dept="Civil Engineering"
case 5
dept="Computer Science"
End Select
if dept = "Computer Science" then
Fac = "Faculty of Computer Science"
else
Fac="Faculty of Engineering"
end if
set rs = server.createobject("adodb.recordset")
set rs = obj.execute ("select * from Members where Department='"& UCase(Depart)&"' and Faculty='"& UCase(Fac)&"' and Engg_Depart='"& UCase(dept)&"' ORDER BY Priority ASC ")
' Session("FileName") = "Computer_Engg.htm"
if err then
Session("ErrMsg") = "Please try later..."
Response.Redirect "mesg.asp"
end if
if not rs.EOF then
%>
Sir Syed University of Engineering & Technology
<%end if%>
<%if rs("Engg_Depart")= "Computer Engineering" then %>
<%end if%>
<%if rs("Engg_Depart")= "Electronics Engineering" then %>
<%end if%>
<%if rs("Engg_Depart")= "Civil Engineering" then %>
<%end if%>
<%if rs("Engg_Depart")= "Biomedical Engineering" then %>
<%end if%>
