<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("public_conn") Set RS = Server.CreateObject("ADODB.Recordset") Const adOpenKeyset = 1 sql = "SELECT title, id, deadline FROM Jobs WHERE deadline >= '" & Date & "' ORDER BY title" RS.Open sql, Conn, adOpenKeyset 'PAGES STUFF If NOT RS.EOF Then If Request.QueryString("page") <> "" Then page = Int(Request.QueryString("page")) Else page = 1 End If totalRecs = RS.RecordCount RS.PageSize = 15 RS.AbsolutePage = page cur_rec = (page - 1) * RS.PageSize If totalRecs - cur_rec > RS.PageSize Then max_rec = cur_rec + RS.PageSize Else max_rec = totalRecs End If End If %> Brass Eagle - Join Our Team

  Download a JT Sports LLC application here.
(Word format)

Right click the link above and save it to your computer. Open the document in Word, fill it out then save it again, then e-mail it back to jobs@brasseagle.com.
Click on job title for full description.

<% If RS.EOF Then %>

Sorry, no job listings currently available.
<% Else %> <% Do WHILE cnt < RS.PageSize AND NOT RS.EOF %> > <% RS.MoveNext cnt = cnt + 1 Loop RS.Close %>
JOB TITLE DEADLINE
"><%=RS("title")%> <%=RS("deadline")%>
<% End If %>

<% Set RS = nothing Conn.Close Set Conn = nothing %>