KGRKJGETMRETU895U-589TY5MIGM5JGB5SDFESFREWTGR54TY
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : /domains/highlandlabs/cqi-bin/ALFA_DATA/alfasymlink/root/domains/howardbender2/jobs/schlist-1.asp
<%@ 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>&nbsp;</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-->

Anon7 - 2021