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

*
*
* *
3elephants Virtual Hosting Services

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. For as little as £5.41 per month, you can get an affordable and dependable Web hosting service.

”Let 3elephants virtual hosting be your first choice along with inexpensive domain name registration”.

We have been in business for over 5 years and continue to grow every day providing world-class commercial grade supported Internet hosting. 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.

3elephants virtual hosting & its partners provide the best Web hosting services and are the world's largest Windows 2003 Web hosts. With over 23,000 clients in over 150 countries worldwide entrust 3elephants virtual hosting & its partners with their Web presence.

With thousands of hosts on the Web why choose 3elephants?

  • Total freedom to choose the operating system that suits you best.
  • Microsoft's Windows 2003 IIS6 server platform.
  • Red Hat Enterprise server version of Linux, with Apache's httpd Web server.
  • 99.9 % network uptime guarantee.
  • Envisage shared hosting architecture.
  • High-speed Web space and E-mail accounts that you know you can rely on.
  • Network firewall & Internal firewall protects the hosting network.
  • A redundant Web server ensures delivery of site contents if a server fails.
  • Load balancers efficiently distribute traffic across server clusters.
  • Network storage independent storage optimising server performance.
  • SSL secure server.
  • MYSQL server.
  • MSSQL server.
  • Support for ASP, PHP, Perl, CGI, ODBC, ASP.NET, ISAPI and SHTML scripting.
  • Personal control panel.
  • Password protection on a domain name.
  • Virus scanning.
  • FrontPage 2000 extensions.
  • Matrix statistics.
  • FTP so you can upload files to your domain.
  • CGI bin. your domain own cgi-bin.
  • Each domain also supports custom error pages.
 


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