<% Call MakePageHeader("MyRemoteIP.com Price Comparison","MyRemoteIP.com Price Comparison")%> <% '************************************************************************************************************* 'GetPackages '************************************************************************************************************* ' Dim pRS, lFlag, nCtr If Not lConnected Then lFlag = True Call conOpen End If sSQL = "SELECT * FROM `myip_package` WHERE `package_visible` = " & MYSQL_TRUE Set pRS = oConn.Execute ( sSQL ) IF Not (pRS.EOF And pRS.BOF) Then %> <% nCtr = 0 While Not pRS.EOF nCtr = nCtr + 1 Response.Write "" Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write "" pRS.MoveNext Wend %>
#Package NamePeriodPriceMachines
" & nCtr & "" & pRS("package_name").Value & "" & formatCurrency(pRS("package_price").Value,2) & "" & pRS("package_valid").Value & " days" & pRS("package_machines").Value & "
 

Register Now

  
<% Else %>

Sorry, package information is not available this time

<% End If %> <% If lFlag Then Call ConClose End If ' '************************************************************************************************************* %> <% Call MakePageFooter %>