<%@LANGUAGE="VBSCRIPT"%> <% set rsBanner = Server.CreateObject("ADODB.Recordset") rsBanner.ActiveConnection = MM_ELEDATA_STRING rsBanner.Source = "SELECT * FROM BANNERS " rsBanner.CursorType = 3 rsBanner.CursorLocation = 2 rsBanner.LockType = 1 rsBanner.Open() rsBanner_numRows = 0 'the following codes are added to rotate the banners: Dim rndMax rndMax = CInt(rsBanner.RecordCount) rsBanner.MoveFirst Dim rndNumber Randomize Timer rndNumber = Int(RND * rndMax) rsBanner.Move rndNumber 'end of codes. %> <% set RsHeadlines = Server.CreateObject("ADODB.Recordset") RsHeadlines.ActiveConnection = MM_ELEDATA_STRING RsHeadlines.Source = "SELECT * FROM Headlines WHERE archive =0 ORDER BY Headline_ID DESC" RsHeadlines.CursorType = 0 RsHeadlines.CursorLocation = 2 RsHeadlines.LockType = 3 RsHeadlines.Open() RsHeadlines_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 6 Dim Repeat1__index Repeat1__index = 0 RsHeadlines_numRows = RsHeadlines_numRows + Repeat1__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' 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 %>

3elephants Company Info - Providing Internet Solutions Since 1999. 3elephants Company Info Providing Internet solutions since 1999: 3Elephants.com CPwebmagic.com 3elephants virtual office has been providing professional, high quality, effective Web site designs and solutions since 1999, operating with our sister company CP Web magic. Established in London and now operating from Asia we are not your typical dot.com that exploited the short-lived opportunity as a get-rich-quick scheme. Whilst a number of large and small Web design and hosting firms will be unable to raise another round of financing, leaving their value customer base up for bid, we continue to grow in the market. We are known as the new economy home based company that operates on a decidedly old-economy business model. As a new economy company we don’t carry huge overheads and can provide professional and stylish magnificently designed Web sites at an affordable price that bring you results and help market your business, at a fraction of the cost of larger design organisations. Whether you are planning a simple Website or a sophisticated e-commerce application, 3elephants can provide a quality managed hosting service dedicated to ensuring the effectiveness of your Web presence. For as little as £10.00 per year in registration fees, you can secure your own virtual domain name (www.whatevername.co.uk) and receive a free "Parked with 3elephants virtual hosting" page identifying your new domain name until you select a hosting plan. 3elephants have the experience and expertise for the complete e-commerce solution from shopping trolley applications, enabling selection of various products and automatic price tally, through to setting up a facility for secure transactions on our SSL server or by using selected payment providers such as Pay Pal & World Pay. “Be assured we will not leave you stranded on the information superhighway”.   Latest News <% While ((Repeat1__numRows <> 0) AND (NOT RsHeadlines.EOF)) %> " class="mainmenulinks"><%=(RsHeadlines.Fields.Item("Title").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RsHeadlines.MoveNext() Wend %>

<% rsBanner.Close() %> <% RsHeadlines.Close() %>