<%
session.lcid=7177
Dim timeNow 
timeNow = Now()
shortdate = FormatDateTime(timeNow, vbshortDate)
longtime = FormatDateTime(timeNow, vblongTime)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=win1;PORT=3306;DATABASE=articlesevenisp; USER=articlesevendb;PASSWORD=8aqEH@sTupequSpa#9s3acra;OPTION=3;"
domainurl = Request.ServerVariables("server_name")
%>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
  <channel>
   <atom:link href="http://<%= domainurl %>/index.xml" rel="self" type="application/rss+xml" />
   <title>server-admins.NET web hosting services</title>
   <link>http://<%= domainurl %>/</link>
   <description>server-admins.NET products and services</description>
   <language>en-us</language>
   <image>
   <title>server-admins.net service status</title>
   <url>http://<%= domainurl %>/rss/server-admins-logo.gif</url>
   <link>http://<%= domainurl %></link>
   </image>
    <copyright>Article Seven Internet Solutions CC 2010</copyright>

    <lastBuildDate><%= shortdate %> <%= longtime%></lastBuildDate>
    <ttl>20</ttl>



<% ' ##########################################################begin %>
<% sql11 = "select * from products where category = '49' order by cost asc"
set rs11 = conn.execute (sql11)
%>
<item>
<title>Windows Reseller Hosting South Africa</title>
<link>http://<%= domainurl %>/reseller/windows-reseller-hosting-za</link>
<description>Windows Reseller Hosting Packages hosted in South Africa allow you to host unlimited domains at discounted rates. Helm Reseller hosting is ideal for Virtual ISP's and website developers who require reliable and affordable hosting solutions
<% Do While (NOT rs11.EOF)
L11 = L11 + 1%>&lt;li&gt;<%= rs11("productname") %> Hosting Package - R<%= rs11("cost") %> PM&lt;/li&gt;

<%
rs11.MoveNext
Loop
%>
For more information on our Windows Reseller Hosting  &lt;a href=http://<%= domainurl %>/reseller/windows-reseller-hosting-za/&gt;<% = domainurl %>/reseller/windows-reseller-hosting-za/&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>
<% ' ########################################################## end %>


<% ' ##########################################################begin %>
<% sql12 = "select * from products where category = '52' order by cost asc"
set rs12 = conn.execute (sql12)
%>
<item>
<title>Coldfusion Reseller Hosting South Africa</title>
<link>http://<%= domainurl %>/reseller/coldfusion-reseller-hosting-za</link>
<description>Coldfusion Reseller Hosting Packages hosted in South Africa allow you to host unlimited Colfusion domains at discounted rates. Coldfusion Reseller hosting is ideal for Virtual ISP's and website developers who require reliable and affordable hosting solutions
<% Do While (NOT rs12.EOF)
L12 = L12 + 1%>&lt;li&gt;<%= rs12("productname") %> Hosting Package - R<%= rs12("cost") %> PM&lt;/li&gt;

<%
rs12.MoveNext
Loop
%>
For more information on our Coldfusion Reseller Hosting  &lt;a href=http://<%= domainurl %>/reseller/coldfusion-reseller-hosting-za/&gt;<% = domainurl %>/reseller/coldfusion-reseller-hosting-za/&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>
<% ' ########################################################## end %>


<% sql10 = "select * from products where category = '43' order by cost asc"
set rs10 = conn.execute (sql10)
%>
<item>
<title>Semi Managed Dedicated Servers UK - Britain</title>
<link>http://<%= domainurl %>/dedicated-servers/semi-managed-dedicated-servers-UK</link>
<description>Dedicated hosting within the United Kingdom (UK) provides our clients the ability to host high demand applications within a secure and controlled environment. Our Dedicated hosting UK solutions provide a viable alternative to United States hosting boasting faster response times and reduced latency from South Africa.
<% Do While (NOT rs10.EOF)
L10 = L10 + 1%>&lt;li&gt;<%= rs10("productname") %> UK Dedicated Server - R<%= rs10("cost") %> PM&lt;/li&gt;

<%
rs10.MoveNext
Loop
%>
For more information on our semi managed windows UK dedicated servers  &lt;a href=http://<%= domainurl %>/dedicated-servers/semi-managed-dedicated-servers-UK&gt;www.server-admins.net/dedicated-servers/semi-managed-dedicated-servers-UK&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>


<% sql11 = "select * from products where category = '42' order by cost asc"
set rs11 = conn.execute (sql11)
%>
<item>
<title>Fully Managed Dedicated Servers USA - Texas, Seattle, Washington DC</title>
<link>http://<%= domainurl %>/dedicated-servers/fully-managed-dedicated-servers</link>
<description>Fully managed servers are ideal for companies and individuals that require high demand and resource intensive online applications without the skills or resources associated with managing servers. Fully managed servers mean that you tell us what you want on your server, and how you want it and the rest is handled by ourselves.
<% Do While (NOT rs11.EOF)
L11 = L11 + 1%>&lt;li&gt;<%= rs11("productname") %> Server USA - R<%= rs11("cost") %> PM&lt;/li&gt;

<%
rs11.MoveNext
Loop
%>
For more information on our fully managed windows USA dedicated servers  &lt;a href=http://<%= domainurl %>/dedicated-servers/fully-managed-dedicated-servers&gt;www.server-admins.net/dedicated-servers/fully-managed-dedicated-servers&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>



<% sql2 = "select * from products where category = '34' order by cost asc"
set rs2 = conn.execute (sql2)
%>
<item>
<title>Reseller web hosting packages</title>
<link>http://<%= domainurl %>/reseller</link>
<description>Windows reseller web hosting packages starting from R80 per month. All of our Windows Reseller Web Hosting Packages include our Award winning Helm Control Panel, allowing you to easily manage your reseller web hosting. Transfer your reseller web hosting from another ISP and get 50% off all reseller marked prices for 6 months*.
<% Do While (NOT rs2.EOF)
L2 = L2 + 1%>&lt;li&gt;<%= rs2("productname") %> windows web hosting package - R<%= rs2("cost") %> PM&lt;/li&gt;

<%
rs2.MoveNext
Loop
%>
For more information on our reseller web hosting packages &lt;a href=http://<%= domainurl %>/reseller/web-hosting/reseller-web-hosting-packages.asp&gt;www.server-admins.net/reseller/web-hosting/reseller-web-hosting-packages.asp&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>


<% sql3 = "select * from products where category = '29' order by cost asc"
set rs3 = conn.execute (sql3)
%>
<item>
<title>Business web hosting packages</title>
<link>http://<%= domainurl %>/hosting/business-windows-web-hosting-packages</link>
<description>Shared Windows business web hosting packages provide cost effective and robust solutions to businesses requiring an online presence. Our state of the art infrastructure allow us to provide reliable services within a secure environment and guarantee up time of 99%. Business web hosting packages are further complimented by our array of automated software solutions that allow you to conduct business with minimal support. Our award winning HELM control panel gives you access to those every day administration tasks through the use of a web interface without relying on support to attend to your queries. Includes 30 day money back guarentee
<% Do While (NOT rs3.EOF) 
L3 = L3 + 1%>&lt;li&gt;<%= rs3("productname") %> web hosting package - R<%= rs3("cost") %> PM&lt;/li&gt;

<%
rs3.MoveNext
Loop 
%>
View all our business web hosting features &lt;a href=http://<%= domainurl %>/hosting/business-windows-web-hosting-packages&gt;www.server-admins.net/hosting/business-windows-web-hosting-packages&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>

<% sql4 = "select * from products where category = '28' order by cost asc"
set rs4 = conn.execute (sql4)
%>
<item>
<title>Personal web hosting packages</title>
<link>http://<%= domainurl %>/hosting</link>
<description>Our personal Windows web hosting packages are designed for individuals that require web hosting at affordable rates without compromise to the services and facilities available to them. All personal web hosting packages include our award winning HELM control panel which allows you to manage your domain and email without any assistance from support, thus reducing the delays caused requesting new email accounts, changing passwords and creating ftp accounts. Includes 30 day money back guarentee
<% Do While (NOT rs4.EOF) 
L4 = L4 + 1%>&lt;li&gt;Personal <%= rs4("productname") %>  web hosting package - R<%= rs4("cost") %> PM&lt;/li&gt;

<%
rs4.MoveNext
Loop 
%>
View all available personal web hosting offerings &lt;a href=http://<%= domainurl %>/hosting/personal-windows-web-hosting-packages&gt;www.server-admins.net/hosting/personal-windows-web-hosting-packages&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>

<% sql5 = "select * from products where category = '31' order by cost asc"
set rs5 = conn.execute (sql5)
%>
<item>
<title>PHP web hosting packages</title>
<link>http://<%= domainurl %>/hosting</link>
<description>PHP Windows web hosting packages are designed for those that require both a Windows server environment and PHP functionality. All PHP web hosting packages include our award winning HELM control panel which allows you to manage your domain and email without any assistance from support, thus reducing the delays caused by requesting every day domain administrations tasks. Includes helm and 30 day money back guarentee
<% Do While (NOT rs5.EOF) 
L5 = L5 + 1%>&lt;li&gt;Personal <%= rs5("productname") %>  web hosting package - R<%= rs5("cost") %> PM&lt;/li&gt;

<%
rs5.MoveNext
Loop 
%>
More information regarding our PHP web hosting packages available at &lt;a href=http://<%= domainurl %>/hosting/windows-php-web-hosting-packages&gt;www.server-admins.net/hosting/windows-php-web-hosting-packages&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>




<% sql1 = "select * from products where category = '100' order by cost asc"
set rs1 = conn.execute (sql1)
%>
<item>
<title>Domain registration</title>
<link>http://<%= domainurl %>/domains</link>
<description>Register your domain name and benifit from our Helm DNS Management features.<%= vbcrlf %><%= vbcrlf %>
<% Do While (NOT rs1.EOF) 
L1 = L1 + 1%>&lt;li&gt;<%= rs1("productname") %> Domain Registration - R<%= rs1("cost") %>&lt;/li&gt;<%= vbcrlf %>
<%
rs1.MoveNext
Loop 
%>
</description>
<pubDate><%= shortdate %></pubDate>
</item>

<% sql6 = "select * from products where category = '35' order by cost asc"
set rs6 = conn.execute (sql6)
%>
<item>
<title>SmarterMail 5 Windows Mail Server Software</title>
<link>http://<%= domainurl %>/smartertools_products/smartermail5</link>
<description>SmarterMail 5.x is a feature-rich Windows mail server that brings the power of enterprise-level functionality to small businesses and hosting environments. Reduce your IT costs and administration by using SmarterMail 5. SmarterMail 5 intergrates into Helm 3 and Helm 4!
<% Do While (NOT rs6.EOF)
L6 = L6 + 1%>&lt;li&gt;<%= rs6("productname") %>  - R<%= FormatNumber((rs6("cost").Value), 2, -2, -2, -2) %> (includes free installation)&lt;/li&gt;

<%
rs6.MoveNext
Loop
%>
View more information and pricing models at  &lt;a href=http://<%= domainurl %>/smartertools_products/smartermail5&gt;www.server-admins.net/smartertools_products/smartermail5&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>

<% sql7 = "select * from products where category = '40' order by cost asc"
set rs7 = conn.execute (sql7)
%>
<item>
<title>Virtual Server Solutions (NEW)</title>
<link>http://<%= domainurl %>/virtual-server-hosting</link>
<description>Virtual server solutions - ideal for Internet Service Providers - web developers - small to medium sized businesses
<% Do While (NOT rs7.EOF)
L7 = L7 + 1%>&lt;li&gt;<%= rs7("productname") %>  - R<%= FormatNumber((rs7("cost").Value), 2, -2, -2, -2) %> (Includes Windows 2003 - Firewall - Smartertools Bundled Software valued at over R4000)&lt;/li&gt;

<%
rs7.MoveNext
Loop
%>
View more information on our Virtual Server options visit  &lt;a href=http://<%= domainurl %>/virtual-server-hosting&gt;www.server-admins.net/virtual-server-hosting&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>

<% sql8 = "select * from products where category = '41' and availabletopurchase = '1' order by cost asc"
set rs9 = conn.execute (sql8)
%>
<item>
<title>Host Monitoring (NEW)</title>
<link>http://<%= domainurl %>/web-host-monitoring</link>
<description>Our web site monitoring service allows you to be informed of outages, slow response times and resolutions to issues via email notifications, msn notifications and sms notifications.Automated monthly reports sent through via email allow you to report on total uptime and provide proof of availability of services. Live graphs allow you to review actual response times in real time in order to report on issues.
<% Do While (NOT rs9.EOF)
L8 = L8 + 1%>&lt;li&gt;<%= rs9("productname") %>  - R<%= FormatNumber((rs9("cost").Value), 2, -2, -2, -2) %> &lt;/li&gt;

<%
rs9.MoveNext
Loop
%>
View more information on our host monitoring solutions at  &lt;a href=http://<%= domainurl %>/web-host-monitoring&gt;www.server-admins.net/web-host-monitoring&lt;/a&gt;<%= vbcrlf %>
</description>
<pubDate><%= shortdate %></pubDate>
</item>

  </channel>
</rss>
<%
conn.close
%>
