|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/highlandlabs/cqi-bin/ALFA_DATA/alfasymlink/root/domains/howardbender2/jobs/ |
Upload File : |
<%@ 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-->
<%
Dim objConn 'Connection Object
Dim rsSchools 'Recordset Object
'create the connection object
Set objConn = Server.CreateObject("ADODB.Connection")
'and open it
objConn.Open sConnect
'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 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> </td>
</tr>
<tr>
<td>
<table width=100% cellspacing=0 cellpadding=5 border=0>
<tr>
<td align=center><a href="schmenu.asp?userid=<%=sUserID%>">Menu</a></td>
<td align=center><a href="register.asp?userid=<%=sUserID%>">Register another School</a></td>
<td align=center><a href="listjobs.asp?userid=<%=sUserID%>">List Jobs</a></td>
<td align=center><a href="default.asp">Home</a></td>
<td align=center><a href="checkout.asp?userid=<%=sUserID%>">Checkout</a></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<%
end if
%>
<!--#include file=bottom.asp-->
<!--#include file=footer.asp-->