<%@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 %> :::::::: 3 Elephants :::::::: Broadband Internet Access ::::::
3elephants Broadband Internet Access
*
* *

*
*
* *
3elephants Broadband Internet Access

We are delighted to announce the launch of Broadband, the UK's latest and best-supported high-speed Internet access service. Now you can have lightning-fast Internet access, integrated with your hosting services. Designed exclusively for our customers, this service is not available to the general public!
What's more, if you choose to pay yearly for any of your connections, the set-up is free and that monthly charge starts at just £18.99 per month. If you already have broadband, from another provider, and want to switch to 3elephants, we won't charge you a penny to transfer to us, if you pay for 3 months in advance.

As you can see, our new broadband service is great value:
Provider Monthly charge excl. VAT Monthly charge incl. VAT
3elephants £18.99 £22.31
Tiscali £21.27 £24.99
BT £23.82 £27.99
Freeserve £23.82 £27.99
AOL £23.82 £27.99

We have four broadband options, to complement your Web hosting, with speeds from 512 Kbps to 2048 Kbps. You also have the choice of providing your own hardware or taking advantage of our great value modem and router offers. And of course, our broadband service is always on without tying up your phone line, meaning you can speak and surf at the same time.

Broadband options:
Maximum speed Contention ratio Static IP address Monthly charge
512 Kbps 50:1 £3 each per month £18.99
1024 Kbps 50:1 £3 each per month £30.99
1024 Kbps 20:1 1 included £35.99
2048 Kbps 20:1 1 included £54.99
Broadband option: prices excl VAT.

Minimum contract term: 1months
Set-up fee: £50 - with a 1 month contract or free when you pay for a year in advance
Migration fee: FREE! 3 month minimum contract.
USB modem: £25 - includes two Micro-filters and one USB cable
Modem/router: £40 - includes one Ethernet Cable.

We hope you enjoy our exciting new broadband services. If you have any comments, please Contact Us or give us a call on (65) 91195668.

 


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

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