<%@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 :::::::: Virtual Web Hosting Plans ::::::
3elephants Virtual Web Hosting Plans
*
* *

*
*
* *
3elephants Virtual Web Hosting Plans

3elephants virtual hosting offers reliable, secure and affordable Web hosting solutions. We make it simple to get your business or organisation on the Net with our easy to use Web hosting plans and services. Web hosting plans start at only £65.00 per year, imagine that's only £5.41 per month.		 Fast Setup - Most Accounts Setup in 16 Hours Or Less

"Let 3elephants virtual hosting be your first choice along with inexpensive domain name registration".
Windows or Linux - you choose:
Windows or Linux - you choose Windows 2003:
Latest IIS6 web server, with ASP, PHP, Perl, compiled CGI and ASP.NET scripting.

Red Hat Enterprise Linux:
latest Apache web server, with PHP, Perl and CGI scripting, plus SSH secure shell access.
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 package.
Starter 100 MB - £65.00 per year. Range of features: More Details >>>

  • * Windows or Linux
  • 100 Megabytes Web Space
  • 10 Pop Mail Accounts
Home 500 MB - £80.00 per year Range of features: More Details >>>

  • * Windows or Linux
  • 500 Megabytes Web Space
  • 12 Pop Mail Accounts
  • Perl, CGI, ISAPI and SHTML
Business 750 MB - £145.00 per year. Range of features: More Details >>>

  • * Windows or Linux
  • 750 Megabytes Web Space
  • 50 Pop Mail Accounts
  • Personal Control Panel
  • ASP, PHP, Perl, CGI, ODBC, ISAPI and SHTML
  • Custom error pages
Business Pro 1 GB - £224.95 per year. Range of features: More Details >>>

  • * Windows or Linux
  • 1 Gigabyte Web Space
  • Unlimited Pop Mail Accounts
  • Personal Control Panel
  • ASP, PHP, Perl, CGI, ODBC, ISAPI and SHTML
  • Custom error pages
  • SSL secure web space
  • Load balancing
Developer Unlimited Space - £280.00 per year. Range of features: More Details >>>

  • * Windows or Linux
  • Unlimited Web Space
  • Unlimited Pop Mail Accounts
  • Personal Control Panel
  • ASP, PHP, Perl, CGI, ODBC, ISAPI and SHTML
  • Custom error pages
  • SSL secure web space
  • Load balancing
  • Matrix Stats
  • MySQL database
.NET Developer 3.5 GB - £680.00 per year. Range of features: More Details >>>

  • * Windows or Linux
  • 3.5 Gigabyte Web Space
  • Unlimited Pop Mail Accounts
  • Personal Control Panel
  • ASP, PHP, Perl, CGI, ODBC, ISAPI and SHTML
  • Custom error pages
  • SSL secure web space
  • Load balancing
  • Matrix Stats
  • . NET Framework
  • Microsoft SQL database
By default accounts run on the latest Microsoft's Windows 2003 IIS6 server platform. Take advantage of Microsoft's most recent technology to host sophisticated ASP and .NET Framework web sites. All the usual 3elephants web hosting features are on offer, including PHP, Perl and compiled CGI.
Alternatively, you can switch to the widely used Red Hat Enterprise Server version of Linux, with Apache's httpd web server. This is the ideal platform if you want to host web sites that make use of PHP, Perl or MySQL.

* Optional Linux hosting is an addition of Per year £16.
 


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

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