My Little Scripts - web-hosting-shopping-cart.asp - PHP ASP Scripts, JavaScript, HTML

<form method="get">

<%
dn = Request.QueryString("dn")
tld = Request.QueryString("tld")
d = Request.QueryString("d")
f = Request.QueryString("f")
p = Request.QueryString("p")
dk = Request.QueryString("dk")
tq = Request.QueryString("tq")
tc = Request.QueryString("tc")

if dn = "" then
   'domain type
   d="n"
   'payment frequency
   f="y"
   'taxes quebec, taxes canada
   tq="on"
   tc="on"
end if

'to catch the times when tc is off on tq is on, if tq is on the tc has to be on
if tq="on" then tc="on"
%>

<!-- DOMAIN NAME -->
<font face="tahoma,arial" size="2">
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr><td colspan="2" bgcolor="E9B0B1">
    <table width="100%" cellpading="0">
    <tr><td><b><font face="tahoma,arial" size="4" style="color:841718"><font size="5">1</font> Domain Name</font></b></td></tr>
    <tr><td colspan="2" align="right" bgcolor="FAE2E6">
    <table cellspacing=0 cellpadding=0><tr><td>
    <input type="text" size="40" name="dn" value="<%= dn %>"></td>
    <td><select name="tld">
        <option <% if tld=".com" then %>selected<% end if %>>.com</option>
        <option <% if tld=".org" then %>selected<% end if %>>.org</option>
        <option <% if tld=".net" then %>selected<% end if %>>.net</option>
        <option <% if tld=".ca" then %>selected<% end if %>>.ca</option>
        </select></td></tr>
    <tr><td colspan="2"><input type="radio" name="d" value="n" <% if d="n" then%>checked<% end if %> ><font face="tahoma,arial" size="2">$25 Purchase new domain<br/>
    <input type="radio" name="d" value="t" <% if d="t" then%>checked<% end if %> ><font face="tahoma,arial" size="2">$25 Transfer my domain<br/>
    <input type="radio" name="d" value="m" <% if d="m" then%>checked<% end if %> ><font face="tahoma,arial" size="2">$00 I will manage my own domain name</td></tr>
    </table></td></tr>
    </table>
</td></tr>

<tr><td colspan="2" height="10"></td></tr>
<!-- HOSTING PLANS -->
<tr><td colspan="2" bgcolor="D8A6E5">
    <table width="100%" cellpading="0">
    <tr><td><b><font face="tahoma,arial" size="4" style="color:430A51"><font size="5">2</font> Hosting Plans</font></b></td></tr>
    <tr><td colspan="2" bgcolor="EFDDFB">
    <table cellpadding=0 cellspacing=0 width="100%"><tr><td align="right"><font face="tahoma,arial" size="2">Plan</td>
    <td align="right"><select name="p" style="width:190px">
                      <option value="pp" <% if p="pp" then %>selected<% end if %>>Professional 200MB 10GB</option>
                      <option value="p0" <% if p="p0" then %>selected<% end if %>>No Hosting</option>
                      <option value="pb" <% if p="pb" then %>selected<% end if %>>Basic 50MB 1GB</option>
                      <option value="pr2" <% if p="pr2" then %>selected<% end if %>>Professional2 400MB 14GB</option>
                      <option value="pr5" <% if p="pr5" then %>selected<% end if %>>Reseller5 1GB 35GB</option>
                      <option value="pr20" <% if p="pr20" then %>selected<% end if %>>Reseller20 5GB 140GB</option>
                      <option value="pr50" <% if p="pr50" then %>selected<% end if %>>Reseller50 15GB 350GB</option>
                      <option value="pd" <% if p="pd" then %>selected<% end if %>>Dedicated 80GB 700GB</option>
                      </select></td></tr>
    <tr><td align="right"><font face="tahoma,arial" size="2">Additional Diskspace</td>
    <td align="right"><select name="dk" style="width:190px">
                      <option value="dk0" <% if dk="dk0" then %>selected<% end if %>>+0MB - $0</option>
                      <option value="dk100" <% if dk="dk100" then %>selected<% end if %>>+100MB - $2</option>
                      <option value="dk500" <% if dk="dk500" then %>selected<% end if %>>+500MB - $10</option>
                      <option value="dk1000" <% if dk="dk1000" then %>selected<% end if %>>+1000MB - $20</option>
                      <option value="dk4000" <% if dk="dk4000" then %>selected<% end if %>>+4000MB - $60</option>
                      </select></td></tr>
    <tr><td align="right"><font face="tahoma,arial" size="2">Additional Bandwidth</td>
    <td align="right"><select name="b" style="width:190px">
                      <option value="b0" <% if b="b0" then %>selected<% end if %>>+0GB - $0</option>
                      <option value="b1" <% if b="b1" then %>selected<% end if %>>+1GB - $2</option>
                      <option value="b5" <% if b="b5" then %>selected<% end if %>>+5GB - $10</option>
                      <option value="b25" <% if b="b25" then %>selected<% end if %>>+25GB - $50</option>
                      <option value="b75" <% if b="b75" then %>selected<% end if %>>+75GB - $100</option>
                      <option value="b200" <% if b="b200" then %>selected<% end if %>>+200GB - $200</option>
                      <option value="b500" <% if b="b500" then %>selected<% end if %>>+500GB - $400</option>
                      <option value="b1200" <% if b="b1200" then %>selected<% end if %>>+1200GB - $600</option>
                      </select></td></tr></table>
    </td></tr></table>
</td></tr>

<tr><td colspan="2" height="10"></td></tr>
<!-- PAYMENT FREQUENCY -->
<tr><td colspan="2" bgcolor="A6C0E5">
    <table width="100%" cellpading="0">
    <tr><td><b><font face="tahoma,arial" size="4" style="color:0F2D5B"><font size="5">3</font> Payment Frequency</font></b></td></tr>
    <tr><td colspan="2" bgcolor="DDECFB">
    <input type="radio" name="f" value="y" <% if f="y" then%>checked<% end if %> ><font face="tahoma,arial" size="2">Pay Yearly<br/>
    <input type="radio" name="f" value="m" <% if f="m" then%>checked<% end if %> >Pay Monthly +$1.95/month (administrative costs)</font></td></tr>
    </table></td></tr>

<tr><td colspan="2" height="10"></td></tr>
<!-- TAXES -->
<tr><td colspan="2" bgcolor="A4E39F">
    <table width="100%" cellpading="0">
    <tr><td><b><font face="tahoma,arial" size="4" style="color:0F540A"><font size="5">4</font> Taxes</font></b></td></tr>
    <tr><td colspan="2" bgcolor="DFFADA">
    <input type="checkbox" name="tq" <% if tq="on" then %>checked<% end if %> ><font face="tahoma,arial" size="2">I live in Quebec (PST)<br/>
    <input type="checkbox" name="tc" <% if tc="on" then %>checked<% end if %> ><font face="tahoma,arial" size="2">I live in Canada (GST)<br/>
    </td></tr>
    </table>
</td></tr>

<tr><td colspan="2" height="10"></td></tr>

<%
frequency = "year"
If f = "m" Then
   frequency = "month"
End If
If f = "y" Then
   frequency = "year"
End If

domain = "25"

plandesc = "Professional"
plan = "120"
If p = "p0" Then
   plan = "0"
   plandesc = "No hosting"
End If
If p = "pb" Then
   plan = "5"
   plandesc = "Basic"
End If
If p = "pp" Then
   plan = "10"
   plandesc = "Professional"
End If
If p = "pr2" Then
   plan = "14"
   plandesc = "Professional 2"
End If
If p = "pr5" Then
   plan = "35"
   plandesc = "Reseller 5"
End If
If p = "pr20" Then
   plan = "99"
   plandesc = "Reseller 20"
End If
If p = "pr50" Then
   plan = "199"
   plandesc = "Reseller 50"
End If
If p = "pd" Then
   plan = "399"
   plandesc = "Dedicated"
End If

bandwidth = "0"
If b = "b0" Then
   bandwidth = "0"
End If
If b = "b1" Then
   bandwidth = "2"
End If
If b = "b5" Then
   bandwidth = "10"
End If
If b = "b25" Then
   bandwidth = "50"
End If
If b = "b75" Then
   bandwidth = "100"
End If
If b = "b200" Then
   bandwidth = "200"
End If
If b = "b500" Then
   bandwidth = "400"
End If
If b = "b1200" Then
   bandwidth = "600"
End If

diskspace = "0"
If dk = "dk0" Then
   diskspace = "0"
End If
If dk = "dk100" Then
   diskspace = "2"
End If
If dk = "dk500" Then
   diskspace = "10"
End If
If dk = "dk1000" Then
   diskspace = "20"
End If
If dk = "dk4000" Then
   diskspace = "60"
End If

If f = "y" Then
   diskspace = (diskspace * 12)
   bandwidth = (bandwidth * 12)
   plan = (plan * 12)
End If
If f = "m" Then
   domain = "2.09"
   plan = (plan + 1.95)
End If
If d = "m" Then
   domain = "0"
End If

subtotal = domain + bandwidth + diskspace + plan
gst = "0"
pst = "0"
If tc = "on" Then
   gst = subtotal * 0.07
End If
If tq = "on" Then
   pst = (subtotal + gst) * 0.075
End If
%>

<!-- CALCULATE -->
<tr><td colspan="2" bgcolor="D6CA0D">
    <table width="100%" cellpading="0">
    <tr><td><b><font face="tahoma,arial" size="4" style="color:605A00"><font size="5">5</font>
    <% if dn <> "" then  %>Recalculate<%  else  %>Calculate<%  end if %></font></b></td></tr>
    <tr><td colspan="2" bgcolor="F6F090">

    <table width="100%" border="0">
    <% if dn <> "" then  %>
    <tr><td><font size="1" face="tahoma,arial"><%= dn & tld %> Domain Name</td><td align="right"><font size="1" face="tahoma,arial"><%= FormatCurrency(domain) %></td>
    <tr><td><font size="1" face="tahoma,arial"><%= plandesc %> Plan</td><td align="right"><font size="1" face="tahoma,arial"><%= FormatCurrency(plan) %></td>
    <tr><td><font size="1" face="tahoma,arial">Extra Diskspace</td><td align="right"><font size="1" face="tahoma,arial"><%= FormatCurrency(diskspace) %></td>
    <tr><td><font size="1" face="tahoma,arial">Extra Bandwidth</td><td align="right"><font size="1" face="tahoma,arial"><%= FormatCurrency(bandwidth) %></td>
    <tr><td><font size="1" face="tahoma,arial">Subtotal</td><td align="right"><font size="1" face="tahoma,arial"><%= FormatCurrency(subtotal) %></td>
    <tr><td><font size="1" face="tahoma,arial">GST</td><td align="right"><font size="1" face="tahoma,arial"><%= FormatCurrency(gst) %></td>
    <tr><td><font size="1" face="tahoma,arial">PST</td><td align="right"><font size="1" face="tahoma,arial"><%= FormatCurrency(pst) %></td>
    <% total = FormatCurrency((subtotal+gst+pst))%>
    <tr><td bgcolor="958D05" colspan="2"><table width="100%"><tr><td><font size="5" face="tahoma,arial" style="color:FFFFFF">Total</td><td align="right"><font size="5" face="tahoma,arial" style="color:FFFFFF"><%= total%></td></tr></table></td>
    <tr><td colspan="2"><font size="1" face="tahoma,arial">Payable every <%= frequency %></td>
    <%  end if %>
    <tr><td colspan="2" align="right"><font size="1"></font> <input type="submit" Value="<% if dn <> "" then %>Recalculate<% else %>Calculate<% end if %>"></td></tr>
    </tr></table>

    </td></tr>
    </table>
</td></tr>

<tr><td colspan="2" height="10"></td></tr>

<% if dn <> "" then  %>
<!-- CHECKOUT -->
<tr><td colspan="2" bgcolor="DAA552">
    <table width="100%" cellpading="0" valign="center">
    <tr><td><b><font face="tahoma,arial" size="4" style="color:542410"><font size="5">6</font> Checkout</font></b></td></tr>
    <tr><td colspan="2" bgcolor="F4D7A9" align="right">

<%
days="365"
yahoof = "Y"
if f="m" then
   days="30"
   yahoof="M"
end if

company_id = ""

paysystems = "https://secure.paysystems1.com/cgi-v310/payment/onlinesale-tpppro.asp?product1=" & _
             plandesc & "-" & dn & tld & "-" & d & "-" & p & "-" & dk & "-" & b & "-" & f & "&companyid=" & company_id & "&total=" & _
             total & "&repeatamount=" & total & _
             "&formget=N&redirect=http://www.webhostingcanada.org/success.php" & _
             "&redirectfail=http://www.webhostingcanada.org/fail.php&reoccur=Y&cycle=" & _
             days & "&totalperiod=100"

business_email = ""

paypal = "https://www.paypal.com/subscriptions/business=" & business_email & "&item_number=" & _
          plandesc & "-" & dn & tld & "-" & d & "-" & p & "-" & dk & "-" & b & "-" & f & "&no_note=1¤cy_code=CAD&a3=" & _
          total & "&p3=1&t3=" & yahoof & "&src=1&sra=1"
%>
<% if dn <> "" then  %>
<a href="<%= paysystems %>"><font face="tahoma,arial" color="000000" size="3"><b>PaySystems</b></font></a>
     <b>or</b>
<a href="<%= paypal %>"><font face="tahoma,arial" color="000000" size="3"><b>PayPal</b></font></a>
<% else %>
<font face="tahoma,arial" color="000000" size="3">
Please type in your <b>Domain Name</b> in section 1 above, and then click on Recalculate.
</font>
<% end if %>
</td></tr>
</table>
</td></tr>
<% end if %>

</table>
</font>
</form>
WEB-HOSTING-SHOPPING-CART.ASP
