<% Dim cn Dim rs dim RecCount dim LoopCount Dim frmQuery dim x x = 0 On error resume next frmQuery = Request.form("QueryName") LoopCount = 0 set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") cn.Open "irie" rs.CursorLocation = 3 if Request("SearchType") = "" Then 'Response.Write "Select * from qryInternetVacancies" rs.Open "Select * from qryInternetVacancies" ,cn, 2 'adOpenDynamic ', adLockOptimistic 'Response.Write "Select * from qryInternetVacancies " rs.MoveLast rs.MoveFirst if Request("SoFar") = "" Then else if request("MoveDir") = "F" then do until LoopCount = Cint(Request("SoFar")) if not rs.EOF then rs.MoveNext end if loopCount = LoopCount + 1 loop elseif request("MoveDir") = "P" then If rs.EOF then do until LoopCount = (Cint(Request("SoFar")) - 10) Response.Write loopcount rs.MoveNext loopCount = LoopCount + 1 loop end if end if end if Response.Write "" elseif Request("SearchType") = "S" Then rs.Open "Select * from qryInternetVacancies where JobTitle Like '%" & Request("JobTitleSearch") & "%'", cn, 2 'adOpenDynamic ', adLockOptimistic If not rs.EOF then rs.MoveLast rs.MoveFirst if Request("SoFar") = "" Then else if request("MoveDir") = "F" then do until LoopCount = Cint(Request("SoFar")) if not rs.Eof then rs.MoveNext end if loopCount = LoopCount + 1 loop elseif request("MoveDir") = "P" then If rs.EOF then do until LoopCount = (Cint(Request("SoFar")) - 10) rs.MoveNext loopCount = LoopCount + 1 loop end If end if end if end if Response.Write "" end if RecCount = rs.RecordCount %>

<% Dim cn2 Dim rs2 dim Y Y = 0 On error resume next set cn2 = server.CreateObject("ADODB.Connection") set rs2 = server.CreateObject("ADODB.Recordset") cn2.Open "irie" rs2.CursorLocation = 3 rs2.Open "SELECT qryInternetVacancies.Category, Count(qryInternetVacancies.Category) AS CountOfCategory, qryInternetVacancies.CategoryID FROM qryInternetVacancies GROUP BY qryInternetVacancies.Category, qryInternetVacancies.CategoryID ORDER BY qryInternetVacancies.Category" ,cn2, 2 'adOpenDynamic ', adLockOptimistic rs2.MoveLast rs2.MoveFirst Do until rs2.eof Response.write ""%> <% rs2.MoveNext Y = Y + 1 loop cn2.close set cn2 = nothing %>  EMPLOYMENT  " Response.write "" & rs2("Category") & " (" & rs2("CountOfCategory") & ")" & " [Back to Employment Homepage]   All vacancies are checked by our office before going live.  To add a vacancy please fill in the form below JobTitle: Company: Description: Position: Salary: Advertise your vacancy for one month £50.00 + vat Phone:   Contact Name: Submit your vacancy and we will contact you to discuss your requirements. Website:   Email:   Closing Date:      EMPLOYMENT Add Vacancy Careers Advice Government Offices Recruitment   To advertise here contact Us

| Home | About Us | Services | Members | Contact Us | | Business Web | Employment | Whats on | Classifieds | History | Website Designed & Maintained by Powered by Irie Computers