%@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 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
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