My Little Scripts - web-hosting-shopping-cart.asp

Scripts.com - Get the best scripts NOW!
HotScripts.com - Over 10 web rings.
more links...
WEB-HOSTING-SHOPPING-CART.ASP

This is a modified version of Web Hosting Canada.ORG's sign-up form. Originally written by Louai Munajim. Illustrates how to interface with PaySystems and PayPal.

I rewrote the shopping cart because of the growing number of web hosting subscribers that were forgetting to type in their domain names before checking out.
<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>