<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% ' get date x days ago numDays = 14 theDate = DateAdd("d",-numDays,Now) theDate = FormatDateTime(theDate,2) dateArray = Split(theDate, "/") myDate = dateArray(2) & dateArray(1) & dateArray(0) %> <% set rsVacancies = Server.CreateObject("ADODB.Recordset") rsVacancies.ActiveConnection = MM_news_STRING 'rsVacancies.Source = "SELECT * FROM tblNM_News WHERE DateAdded >= CONVERT(DATETIME, '" + myDate + "',102) ORDER BY ItemID ASC" rsVacancies.Source = "SELECT * FROM tblNM_News WHERE DateAdded BETWEEN Date() and DateAdd(""d"",-14,date())" rsVacancies.CursorType = 0 rsVacancies.CursorLocation = 2 rsVacancies.LockType = 3 rsVacancies.Open() %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsVacancies_numRows = rsVacancies_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' 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 %> Seacurus - About us


HOME | CONTACT US  
 

Seacurus aim to provide the industry with innovative solutions to modern day industry problems whilst also providing a broad range of traditional services including:

  • Policy drafting
  • Ship arrest
  • Ship sale and purchase
  • Ship financing
  • Financial credit risk insurance
  • Marine insurance and reinsurance
  • Claims management services
  • Risk management services
  • Legal services
  • Consultative and advisory work with flag/port state administrations on regulatory matters
  

LATEST NEWS HEADLINES
 

<% While ((Repeat1__numRows <> 0) AND (NOT rsVacancies.EOF)) %> " class="menuwh"><%=(rsVacancies.Fields.Item("ItemName").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsVacancies.MoveNext() Wend %>

 

Seacurus was formally incorporated as a UK registered company in September 2004.

After 18 months of preparatory work and research the company was formed by a group of like minded professional practitioners with seafaring, P&I, legal and insurance backgrounds.

Seacurus are headquartered in Gateshead in the North East of England and also benefit from the use of well appointed office space in the heart of the City of London for client meetings.

Seacurus is a member of the Newstead Group, a worldwide network of specialist credit insurance broking firms working in support of international business and finance.

Seacurus is authorised and regulated by the Financial Services Authority as an insurance intermediary - FSA No. 435893

Additional Information:

Seacurus Terms of Business