%@ LANGUAGE="VBSCRIPT" %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=Mira;DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;" Set cmdTemp = Server.CreateObject("ADODB.Command") Set rsJobType = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT * FROM JobType" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = Conn rsJobtype.Open cmdTemp, ,1,3 %>
|
|
||||||||
|
|
Following are positions that are currently available. Please Contact Us if you want to know more about a position, or complete the Online Resume and indicate which position you are interested in. Check back often. We constantly add new opportunities. <% rsJobType.movefirst do until rsJobType.eof Set rsJobs = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT * FROM Jobs WHERE JobType = '"& rsJobType("Id") &"' ORDER by PositionNumber" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = Conn rsJobs.Open cmdTemp, ,1,3 'Check for jobs under a Job Category. If none, don't display Job Category if rsJobs.eof then else %> <%=rsJobType("JobType")%>
|
|||||||
|
Home
| About Mira Consulting, Inc. |
Career
Opportunities Copyright Mira Consulting, Inc.
|
||||||||