<%@ Language=VBScript %> <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <% Set Rsnews = Server.CreateObject ("ADODB.Recordset") Rsnews.ActiveConnection = OBJdbConnection Rsnews.CursorType = 1 Rsnews.LockType = 3 if Request.QueryString("NewsID")<>"" then sqlstring="SELECT news.*, news.NewsID FROM news WHERE (((news.NewsID)="&request.QueryString("NewsID")&"));" else sqlstring="SELECT news.NewsID, news.* FROM news ORDER BY news.NewsID DESC;" end if Rsnews.Open sqlstring %> Falcon Freight Group
 
top_link  
 
Home
About Us
Services
Agents
Sailing Schedules
Shipment Tracking
News
Quotation
Resources
Careers
Contact US
Spacer
Spacer
 
<%if Request.QueryString("NewsID")<>"" then%> <%else dim is_news is_news=0 while not Rsnews.EOF is_news=is_news+1 %> <%Rsnews.MoveNext wend if is_news=0 then %> <% end if end if %>

News

 
<%=Rsnews("NewsTitle")%>

<%if Rsnews("NewsPic1")<>"" then%>" width="160" align="right" /><%end if%> <%=Rsnews("NewsText")%>

<%if Rsnews("NewsPic2")<>"" then%>" width="215" /><%end if%> <%if Rsnews("NewsPic3")<>"" then%>  " width="215" /><%end if%> <%if Rsnews("NewsPic4")<>"" then%>  " width="215" /><%end if%>
 
- " style="text-decoration: none"><%=Rsnews("NewsTitle")%>
- There is no current news in the system