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

Domain Registration Domain Registration Any business considering Internet activity requires its own digital address, known as a domain name. The domain name is your Internet business brand - it will appear above your Website in the address bar, in links, in search engines, and on every email you send. In the eyes of your customer it is the sign outside your office and your business card all rolled into one. The domain name is therefore the single most important ingredient in your Internet marketing strategy. Domain names are sold on a first-come first-serve basis - many thousands are being registered every day so make this a number 1 priority and register now. Simply follow these steps to register your Domain Names: First make sure your name is available with our Whois search engine Enter the domain name you are searching for in the search box provided. Select the suffix you require or select all. Then click the check name button. Wait for your results. For as little as £10.00 per year in registration fees, you can secure your own virtual protected domain name (www.whatevername.co.uk) and receive a free “Parked with 3elephants virtual hosting” page identifying your new domain name and two free pop email accounts until you select a hosting plan. What extensions can I register? Through 3elephants you can register the following domain extensions: .com .net .biz .org .info .co.uk .org.uk .ltd.uk .me.uk .plc.uk .name .eu .co .name .me.uk   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() %>