List of Cheap Web Hosting Plans With Windows
Web Hosting
| Sr
# |
Company
Name |
Plan
Name |
Cheap
Web Hosting Rating |
Disk
Space (MB) |
Bandwidth
(MB) |
Price
(USD) |
Country |
<%
ICounter = 1
sql = "select * from pmPlanMaster where pmPlanCategory Like '%shared%' and pmOperatingSystem Like '%window%' order by cmCheapRanking desc"
rs.open sql
rs.pagesize = 25
CurrPage = IIF(isEmpty(request.querystring("PageNo")), 1, Cint(request.querystring("PageNo")))
rs.AbsolutePage = CurrPage
Next25 = getNext25(CurrPage)
prev25 = getprev25(CurrPage)
if rs.recordcount > 0 then
Do Until rs.AbsolutePage <> CurrPage OR rs.Eof
rs1.open "select * from companymaster where cmReference = '" & rs("pmCompanyID") & "'"
If rs1.recordcount > 0 Then
%>
">
| <%=ICounter%> |
.html"><%=rs1("cmCompanyURL")%> |
<%=rs("pmID")%>.html"><%=rs("pmPlanName")%>  |
<%=Round(rs("cmCheapRanking"),2)%>pts
(<%=ICounter%>) |
<%=rs("pmDiskSpace")%>
MB |
<%=rs("pmBandwidthOffered")%>
GB |
$<%=Round(rs("pmMonthlyPayment"),2)%>/Month |
<%=rs1("cmCountryFull")%> |
<%
ICounter = ICounter + 1
End If
rs1.close
rs.movenext
Loop
end if
%>
<%
RSPrevPage = CurrPage -1
RSNextPage = CurrPage + 1
if Next25 > Rs.PageCount then
Next25 = Rs.PageCount
end if
if prev25 = 1 AND Next25 - 1 < 25 then
start = 1
else
start = Next25 - 25
if right(start, 1) > 0 then
start = replace(start, right(start, 1), "0")
start = start + 25
end if
end if
If Rs.PageCount > 1 then
response.write "
Pages: "
'this checks to make sure that current page isn't the only one, and if not, it prints the previous link
if next25 > 25 then
response.write("<< ")
end if
if not RSPrevPage = 0 then
response.write("< ")
end if
for P = start to next25
if not P = CurrPage then
response.write("" & P & " ")
else
response.write(" " & P & " ")
end if
Next
'this does the same as the "previous" link, but for the "next" link
if not RSNextPage > Rs.PageCount then
response.write("> ")
end if
if not next25 = Rs.PageCount then
response.write(">> ")
end if
response.write ""
end if
rs.close
function getnext25(num)
pageLen = len(num)
if pageLen = 1 then
next25 = 10
else if pageLen = 2 then
pageRem = 10
pageTen = right(num, 1)
next25 = num + pageRem - pageTen
end if
end if
getnext25 = next25
end function
function getprev25(num)
pageLen = len(num)
if pageLen = 1 then
prev25 = 1
else if pageLen = 2 then
firstDig = left(num, 1)
secondDig = right(num, 1)
prev25 = num - secondDig - 10
end if
end if
if prev25 = 0 then
prev25 = 1
end if
getprev25 = prev25
end function
%>