% Function FixQuotes(MyStr) 'hack for iol hb If TRim(Mystr) = "" Then MyStr = "~" End if FixQuotes = Replace(MyStr , "'", "''") End Function Dim CN '--- As ADO Connection Object Dim RS '--- As ADO Recordset Object Dim RSC '--- As ADO Record Count. Dim txtSQL '--- Passed Parameters Dim Keyword Dim Stepping Dim County Dim JobType Dim Keywords Dim FormCount Dim AreaArray Dim WhereClause Dim RecPos Dim RSCount Dim i Dim DatePosted Dim CompanyID, CompanyFormID RecPos = Request.QueryString("RP") CompanyID = "COOK IRELAND" CompanyFormID = cstr("COOK IRELAND") If len(CompanyFormID) > 1 Then CompanyID = CompanyFormID End If '--- Init Connection Object 'SET CN=Server.CreateObject ("ADODB.Connection") '--- Open Connection Object to DSN DBName %><% CompanyID = Replace (CompanyID, "'", "''") '--- Initialise SQL command ' txtSQL = "SELECT * FROM Jobs WHERE Company = '" & CompanyID & "'" txtSQL = "SELECT * FROM Jobs WHERE Company = '" & CompanyID & "' ORDER BY DatePosted DESC" '--- Fill ResultSet Set RS = OraDatabase.DbCreateDynaset(txtSQL, cint(0)) 'count the number of records returned Set RSC = OraDatabase.DbCreateDynaset("Select Count(JobType) From Jobs WHERE Company = '" & CompanyID & "'", cint(0)) 'assign RSCount the number of RSCount = RSC.Fields.Item(0).Value %>
ABOUT US | CONTACT US | CURRENT VACANCIES
On November
25th 2006 COOK Ireland was named as the Irish Exporters Association’s
Exporter of the Year and Life Science Exporter of the Year for 2006. The
prestigious accolades are a positive endorsement for its successful and
rapidly growing European sales, marketing, customer service and distribution
operation in Ireland. Ireland is home to manufacturing plants for 15 of
the World’s top 25 medical device companies, which were responsible
for €3.7 billion in exports over the last year.
|