<%@LANGUAGE="VBSCRIPT"%> <% Dim Downloads_RS__MMColParam Downloads_RS__MMColParam = "prof" if (Request("MM_EmptyValue") <> "") then Downloads_RS__MMColParam = Request("MM_EmptyValue") %> <% set Downloads_RS = Server.CreateObject("ADODB.Recordset") Downloads_RS.ActiveConnection = MM_Download_VB_Conn_STRING Downloads_RS.Source = "SELECT * FROM downloads WHERE Type = '" + Replace(Downloads_RS__MMColParam, "'", "''") + "' ORDER BY Name ASC" Downloads_RS.CursorType = 0 Downloads_RS.CursorLocation = 2 Downloads_RS.LockType = 3 Downloads_RS.Open() Downloads_RS_numRows = 0 %> <% set Authority_month_name_RS = Server.CreateObject("ADODB.Recordset") Authority_month_name_RS.ActiveConnection = MM_Authority_VB_Conn_STRING Authority_month_name_RS.Source = "SELECT * FROM 3_month_query ORDER BY date DESC" Authority_month_name_RS.CursorType = 0 Authority_month_name_RS.CursorLocation = 2 Authority_month_name_RS.LockType = 3 Authority_month_name_RS.Open() Authority_month_name_RS_numRows = 0 %> <% set Top_Stories_RS = Server.CreateObject("ADODB.Recordset") Top_Stories_RS.ActiveConnection = MM_Authority_VB_Conn_STRING Top_Stories_RS.Source = "SELECT * FROM authority_main_current_month_query ORDER BY article_title ASC" Top_Stories_RS.CursorType = 0 Top_Stories_RS.CursorLocation = 2 Top_Stories_RS.LockType = 3 Top_Stories_RS.Open() Top_Stories_RS_numRows = 0 %> <% Dim Instructions_RS__MMColParam Instructions_RS__MMColParam = "aid professionals" if (Request("MM_EmptyValue") <> "") then Instructions_RS__MMColParam = Request("MM_EmptyValue") %> <% set Instructions_RS = Server.CreateObject("ADODB.Recordset") Instructions_RS.ActiveConnection = MM_Instructions_VB_Conn_STRING Instructions_RS.Source = "SELECT * FROM manuals WHERE Manual_Type = '" + Replace(Instructions_RS__MMColParam, "'", "''") + "' ORDER BY Manual_Name ASC" Instructions_RS.CursorType = 0 Instructions_RS.CursorLocation = 2 Instructions_RS.LockType = 3 Instructions_RS.Open() Instructions_RS_numRows = 0 %> <% set Software_RS = Server.CreateObject("ADODB.Recordset") Software_RS.ActiveConnection = MM_Software_VB_Conn_STRING Software_RS.Source = "SELECT * FROM software ORDER BY software_name ASC" Software_RS.CursorType = 0 Software_RS.CursorLocation = 2 Software_RS.LockType = 3 Software_RS.Open() Software_RS_numRows = 0 %> <% set Calendar_RS = Server.CreateObject("ADODB.Recordset") Calendar_RS.ActiveConnection = MM_Calendar_VB_Conn_STRING Calendar_RS.Source = "SELECT events.eventid, events.event, events.location, events.date_time FROM events WHERE (((events.date_time)>=Now())) ORDER BY events.date_time;" Calendar_RS.CursorType = 0 Calendar_RS.CursorLocation = 2 Calendar_RS.LockType = 3 Calendar_RS.Open() Calendar_RS_numRows = 0 %> <% set PR_RS = Server.CreateObject("ADODB.Recordset") PR_RS.ActiveConnection = MM_Authority_VB_Conn_STRING PR_RS.Source = "SELECT press_release_title, press_release_text, press_release_location, press_release_date, contact_phone, contact_name, press_release_id FROM press_releases ORDER BY press_release_date DESC" PR_RS.CursorType = 0 PR_RS.CursorLocation = 2 PR_RS.LockType = 3 PR_RS.Open() PR_RS_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 3 Dim Repeat1__index Repeat1__index = 0 Downloads_RS_numRows = Downloads_RS_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 3 Dim Repeat2__index Repeat2__index = 0 Authority_month_name_RS_numRows = Authority_month_name_RS_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = 3 Dim Repeat3__index Repeat3__index = 0 Top_Stories_RS_numRows = Top_Stories_RS_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Repeat4__numRows = 4 Dim Repeat4__index Repeat4__index = 0 Instructions_RS_numRows = Instructions_RS_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Repeat5__numRows = 3 Dim Repeat5__index Repeat5__index = 0 Software_RS_numRows = Software_RS_numRows + Repeat5__numRows %> <% Dim Repeat6__numRows Repeat6__numRows = 3 Dim Repeat6__index Repeat6__index = 0 Calendar_RS_numRows = Calendar_RS_numRows + Repeat6__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> NJ Higher Education Student Assistance Authority
HESAA Logo Higher Education Student Assistance Authority Blank Image
WebLink Button E-Administrator Button Aid Links blank image
spacer image
Aid Programs Button
spacer image
Downloads Button
spacer image
Authority Button
spacer image
Top Stories Button
spacer image
Instruction Manual Button
spacer image
Site Software Button
spacer image
Search HESAA Button
 
   
<% If Not Calendar_RS.EOF Or Not Calendar_RS.BOF Then %> <% While ((Repeat6__numRows <> 0) AND (NOT Calendar_RS.EOF)) %> <% Repeat6__index=Repeat6__index+1 Repeat6__numRows=Repeat6__numRows-1 Calendar_RS.MoveNext() Wend %>
  Calendar of Events
    " class="calendar_event"><%=(Calendar_RS.Fields.Item("event").Value)%>
<% End If ' end Not Calendar_RS.EOF Or NOT Calendar_RS.BOF %>
 
 
Help Button  

 

  

 

 

spacer image
{count}

 

 

 

  
©1995-2001 HESAA  
  Disclaimer Privacy  
quikcalc image
   

Please read:

The New Jersey Eligibility Index (NJEI) determined by the NJEI Calculator is only an estimate and may differ from the official index computed by the New Jersey Higher Education Student Assistance Authority (HESAA).

The Expected Family Contribution (EFC) determined by the NJEI Calculator is only an estimate and may differ from the official results computed by the Central Processor.
   
QuikCalc On The Web for Dependent Students QuikCalc On The Web for Independent Students
 
NJEI Calculator/QuikCalc is still available for download to your computer.

1. Please read NJEI Calculator/QuikCalc Instructions in .pdf format

2. Click here to start the NJEI Calculator/QuikCalc download process.
3. You will need an unzipping program called winzip to decompress

 

 

<% Downloads_RS.Close() %> <% Authority_month_name_RS.Close() %> <% Top_Stories_RS.Close() %> <% Instructions_RS.Close() %> <% Software_RS.Close() %> <% Calendar_RS.Close() %> <% PR_RS.Close() %>