India
Nepal
Bhutan
Sri Lanka
Maldives
Signature Journeys
Special Departures
Meeting & Conferences
Newsletter
<% Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 3 rs.CursorLocation = 3 SQL = "Select Top 1 * From tbl_Newsletter Where Archive = False Order By NewsDated Desc" rs.open SQL, conn if (rs.Recordcount > 0 )then %>
<% counter = 1 while not rs.EOF UpFile = trim(rs("UpFile")) %>
•
<%= trim(rs("Title"))%>
<% rs.MoveNext counter = counter + 1 wend %>
<% else%>
There are no records at present
<% end if %>
Archived
Newsletter
Select Year
<% Counter = Year (Date()) while (Counter => 2010 And Counter <= Year (Date())) %>
selected="selected" <%end if%>><%=Counter%>
<% Counter = Counter - 1 wend %>
<% 'if (Request.Form("drpYear")="Submit") then if (Request.QueryString("Year")<>"") then YearN = Request.QueryString("Year") else YearN = Year(Date) end if Set rsL = Server.CreateObject("ADODB.Recordset") rsL.CursorType = 3 rsL.CursorLocation = 3 SQLL = "Select * From tbl_Newsletter Where Year(NewsDated) = '"& YearN &"' And Archive = true " 'Response.Write(SQLL) rsL.open SQLL, conn if (rsL.Recordcount > 0 )then %>
<% counter = 1 while not rsL.EOF %>
•
" target="_blank" class="arr">
<%= trim(rsL("Title"))%>
<% rsL.MoveNext counter = counter + 1 wend %>
<% else %>
<% if (Request.QueryString("Year")<>"") then %>There are no records in archive for <%= YearN %><% end if%>
<% 'end if end if %>
Home
Why Us
Meet the Team
Destination Facts
From Our News Rack
Pay Online
Terms & Conditions
Site Map
Client's Speak
Contact Us
Privacy
Disclaimer
© 2018, Peirce & Leslie. All Rights Reserved.