<%@ Language=VBScript %>
<% option explicit %>
<% 
	Dim sTitle 
	sTitle = "List of Registered Schools"
%>
<%
	
	Dim sUserID
	if Request("userid") = "" then
		Response.Redirect "default.asp"
	else
		sUserID = Request("userid")
	end if
%>

<!--#include file=DataStore.asp-->
<!--#include file=header.asp-->
<!--#include file=top.asp-->
<div align="center">
	<table width="600" cellspacing="0" cellpadding="0" border="0" bgcolor="#FFFFFF">
	<tr>
		<td width="240" valign="top">
			<img src="images/myschools.jpg" border="0" WIDTH="240" HEIGHT="50">
			<font face=arial><b>Click on the update you want to<br>make to your school<b>
		</td>
		<td width="180" valign="top">
			<table width="100%" cellspacing="0" cellpadding="0" border="0">
				<tr>
					<td bgcolor="#003399">
						<table bgcolor="#003399" width="100%" cellspacing="2" cellpadding="2" border="0">
							<tr bgcolor="#003399"><td bgcolor="lightgreen" align="center"><a href="research.asp?userid=<%=request("userid")%>"><font color="brown">Search Resumes</a></td></tr>
							<tr><td bgcolor="lightgreen" align="center"><b>Post New Jobs</b></td></tr>
							<tr><td bgcolor="lightgreen" align="center"><a href="listjobs.asp?userid=<%=request("userid")%>"><font color="brown">List My Jobs</font></a></td></tr>
							<tr><td bgcolor="lightgreen" align="center"><b>Edit My Registration</b></td></tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
		<td width="180" valign="top">
			<table width="100%" cellspacing="0" cellpadding="0" border="0">
				<tr>
					<td bgcolor="#003399">
						<table bgcolor="#003399" width="100%" cellspacing="2" cellpadding="2" border="0">
							<tr><td bgcolor="#6699FF" align="center"><a href="default.asp">Job Search</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="login.asp?menu=teacher">My Resume</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="login.asp?menu=school">For Schools</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="faqs.asp">FAQs</a></td></tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
	</table>	
</div>


<%

Dim objConn 'Connection Object
Dim rsSchools   'Recordset Object

'create the connection object
Set objConn = Server.CreateObject("ADODB.Connection")

'and open it
	if objConn.State = 0 then	'only open if the connection is closed
		objConn.Open sConnect
	end if

'Create the recordset object
Set rsSchools = Server.CreateObject("ADODB.Recordset")

'and open the SCHOOL table
rsSchools.Open "SCHOOL", objConn, 0, 3

'Filter the recordset
rsSchools.Filter = "manager_id = '" & sUserID & "'"

'and verify if information has already been saved with this email
if rsSchools.EOF then
%>
	<p align=center><font face="verdana, arial, helvetica" size="4">No schools found in database</font>
	<p align=center><font face="verdana, arial, helvetica" size=2>You first need to register a school in order to post jobs. <a href="register.asp?userid=<%=sUserID%>">Click here.</a></font>
<%
else
	Response.Write "<h2 align=center><font color=""blue"" face=""verdana, arial, helvetica"">List of Registered Schools</font></h2>"
%>


<div align="center">
<table width="600" border="0">
<tr>
<td>
<table width="100%" border="1" cellspacing="0" cellpadding="5">
<%
While Not rsSchools.EOF
%>
	<tr>
		<td><%=rsSchools("name")%></td>
		<td align=center><a href="editsch.asp?userid=<%=sUserID%>&schoolid=<%=rsSchools("schoolid")%>">Edit Information</a></td>
		<td align=center><a href="postjob.asp?userid=<%=request("userid")%>&action=addnew&schoolid=<%=rsSchools("schoolid")%>">Post a Job</a></td>
		<td align=center><a href="delsch.asp?userid=<%=sUserID%>&schoolid=<%=rsSchools("schoolid")%>">Delete</a></td>
	</tr>
<%
rsSchools.MoveNext
Wend
%>
</table>

</td>
</tr>
<tr>
	<td align=center>&nbsp;</td>
</tr>
<tr>
	<td>
	<table width=100% cellspacing=0 cellpadding=5 border=0>
		<tr>
			<td align=center><a href="register.asp?userid=<%=sUserID%>">Register Another School</a></td>
		</tr>
	</table>
	</td>
</tr>
</table>
</div>

<%
end if

%>

<!--#include file=bottom.asp-->
<!--#include file=footer.asp-->