<%@ LANGUAGE="VBScript" %> <% Option Explicit %> <% Set objConn = getConnection() objConn.Open "naba" strDomain = Request.ServerVariables("HTTP_HOST") Call chapterAssignments(strDomain) %> The Boston Chapter of NABA
<%= strChName %>

<%= isLoggedIn() %>




Jobs
<% If blnLoggedIn Then strSQL = "SELECT jobID, jobTitle, jobCompany, jobDesc FROM tblJobs WHERE jobChapter = " & intChapterID & " AND " & _ "(jobExpire IS NULL OR jobExpire >= """ & formatDateMySQL(Date()) & """) ORDER BY jobPosted DESC;" Set rsInfo = objConn.Execute(strSQL) %> <% If Not rsInfo.EOF Then %> <% Do While Not rsInfo.EOF %> <% rsInfo.MoveNext: Loop %>
<%= rsInfo(1) %> - <%= rsInfo(2) %>
<%= Left(Replace(rsInfo(3),"
"," "),150) %>...



<% Else %>



There are no job listings at this time. Please check back soon








<% End If %> <% Else %>



You must be signed in to view job listings. Please sign in.







<% End If %>
<%= showSponsors() %>
<% objConn.Close: Set objConn = Nothing Set rsInfo = Nothing %>