Webhosting
U vindt hier een kort overzicht van onze hostingplans die wij aanbieden. Wenst u meer details over een bepaald pakket,
klikt dan op de 'details' link. Pakketten op maat zijn ook steeds mogelijk, contacteer ons voor de aanvraag van een
op maat gemaakt pakket.
<%
Set cn = server.Createobject("ADODB.Connection")
cn.open strConn
If cn.state=1 Then
Set rs=Server.CreateObject("ADODB.Recordset")
SQL = "SELECT Plancode, Name, Price, SetupCost, Space, Bandwidth, POP3, ASPNET FROM Plans ORDER BY Price ASC"
rs.open SQL, cn, 3, 1, 1
countEven = 0
Do Until rs.eof
If countEven = 0 Then
%>
<%
countEven = 1
Else
%>
<%
countEven = 0
End If
%>
<%=rs("Name")%>
€ <%=formatnumber(rs("Price"),2,-1,,-1)%>
- <%=rs("Space")%> MB webruimte
- <%=rs("Bandwidth")%> GB bandbreedte
- <%=rs("POP3")%> POP3 e-mailaccounts
<%
If rs("ASPNET") <> 0 Then
%>
- ASP.NET
<%
End If
%>
">Details...
<%
rs.MoveNext
Loop
rs.close
SQL = "SELECT * FROM Extras"
rs.open SQL, cn, 3, 1, 1
%>
Extra's
<%
Do Until rs.EOF
%>
- <%=rs("Description")%>: € <%=formatnumber(rs("Price"),2,-1,,-1)%>
<%
Select Case rs("Period")
case 1
%>/maand
<%
case 3
%>/kwartaal<%
case 12
%>/jaar<%
End Select
rs.MoveNext
Loop
%>
<%
rs.close
cn.close
set rs = Nothing
set cn = Nothing
End If
%>