<%@ Language=VBScript %> TRANS MISR shipping, clearing and trading <% ' The following is the code for the scrolling news ticker. Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, strSQL,sMarquee Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 1 RsGuestList.Open "select * from news ORDER BY Date DESC" sHtml1 = "

" sHtml2 = "" sHtml4 = "

" sTxt = "" if not RsGuestList.eof then RsGuestList.movefirst do while not RsGuestList.eof sHtmlDate = MonthName(Month(RsGuestList("Date")),1)&" "&Day(RsGuestList("Date"))&", "&Year(RsGuestList("Date")) sTxt = sTxt & sHtml1 & sHtmlDate & "
" & sHtml2 & _ RsGuestList("NewsID") & sHtml3 & RsGuestList("Title") & sHtml4 RsGuestList.movenext loop iSpeed = 40 ' Speed of Marquee (higher = slower) iTop = 0 ' Y Location Within Object iLeft = 0 ' X Location"""" iWidth = 140 ' Width iHeight = 235 ' Height sMarquee="" & sTxt & "" end if %>

  Date:

  About Us | Services | Rate Query | Shipment Tracking | FAQ | Careers | Contact Us
 
<%if ((session("username")="") or (session("password")="")) then %> <%else%> <%end if%>
 

 

 

User Name:

Password:

 
 

  Welcome to Tans Misr

<%=sMarquee%> 

PAGE TOP Terms and Conditions l Privacy Statement l Sitemap