%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsCourses
Dim rsCourses_numRows
Set rsCourses = Server.CreateObject("ADODB.Recordset")
rsCourses.ActiveConnection = MM_dotmajix_STRING
If request.QueryString("cat")="" Then
rsCourses.Source = "SELECT * FROM tbCourses"
Else
rsCourses.Source = "SELECT * FROM tbCourses Where cat='" & request.QueryString("cat") & "';"
End If
rsCourses.CursorType = 0
rsCourses.CursorLocation = 2
rsCourses.LockType = 1
rsCourses.Open()
rsCourses_numRows = 0
%>
<% If request.QueryString("sno")<>"" Then %>
<%
Dim rsEdCse
Dim rsEdCse_numRows
Set rsEdCse = Server.CreateObject("ADODB.Recordset")
rsEdCse.ActiveConnection = MM_dotmajix_STRING
rsEdCse.Source = "SELECT * FROM tbCourses Where sno=" & request.QueryString("sno")
rsEdCse.CursorType = 0
rsEdCse.CursorLocation = 2
rsEdCse.LockType = 1
rsEdCse.Open()
rsEdCse_numRows = 0
%>
<% End If %>
<% If cmd<>"addcat" Or cmd<>"delcse" Then %>
<%
Dim rsCat
Dim rsCat_numRows
Set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.ActiveConnection = MM_dotmajix_STRING
rsCat.Source = "SELECT * FROM tbCseCat"
rsCat.CursorType = 0
rsCat.CursorLocation = 2
rsCat.LockType = 1
rsCat.Open()
rsCat_numRows = 0
%>
<% End If %>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsCourses_numRows = rsCourses_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
rsEdCse_numRows = rsEdCse_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = -1
Repeat3__index = 0
rsCat_numRows = rsCat_numRows + Repeat3__numRows
%>
<%
uname=session("username")
seclvl=session("seclvl")
fname=session("fname")
lname=session("lname")
%>
Assyafaah Mosque
<% If cmd="addcse" Or cmd="editcse" Then %>
<% End If %>
|
|
| Madrasah |
 |
|
|
|
|
| |
|
 |
|
|
|