<%
LITE1 = "29.95"
LITE2 = "36.95"
RES1 = "39.95"
RES2 = "36.95"
RES3 = "44.95"
TransferFee = "3.00"
BUS1 = "89.95"
BUS2 = "86.95"
BUS3 = "89.95"
FULL = "524.95"
costPCI = "145"
costUSB = "165"
costEXT = "219"
costEXTR = "219"
costIP6 = "169"
costIP10 = "129"
costIP8 = "249"
costCisco = "895.95"
costNIC10 = "13.40" 'NP0402
costNIC100 = "17" 'NP0400
costNICISA = "13.40" 'NP0404
rFactor = 1.7
repcomm = 1.05
Markup = 1.26
'PCI = FormatNumber(costPCI*1.24*repComm ,0) + 0.95
'USB = FormatNumber(costUSB*1.26*repComm ,0) + 0.95
'EXT = FormatNumber(costEXT*1.28*repComm ,0) + 0.95
'EXTr = FormatNumber(costEXTr*1.28*repComm ,0) + 0.95
'IP6 = FormatNumber(costIP6*1.26*repComm ,0) + 0.95
'IP10 = FormatNumber(costIP10*1.28*repComm ,0) + 0.95
'IP8 = FormatNumber(costIP8*1.26*repComm ,0) + 0.95
Cisco = FormatNumber("895",0) + 0.95
NIC10 = "24.95" 'NP0402
'NIC100 = "29.95" 'NP0400
'NICISA = "24.95" 'NP0404
'KIT = "44.95"
'FILTERS = "10.00"
ConnectionString = "dsn=InterPC;uid=ipc;pwd=main"
Set ConnC = Server.CreateObject("ADODB.Connection")
ConnC.Open ConnectionString
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "BB0024'")
PCI = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "BB0039'")
USB = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "BB0050'")
EXT = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "BB0055'")
EXTr = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "IP0006'")
IP6 = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "IP0008'")
IP8 = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "IP0010'")
IP10 = RScost("Amount")
' Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "BB0021'")
' Cisco = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "NP0406'")
NIC100 = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "INST001'")
KIT = RScost("Amount")
Set RScost = ConnC.Execute("SELECT * FROM [invoicelist] where sku ='"+ "BB0001'")
FILTERS = RScost("Amount")
ConnC.Close
set ConnC = nothing
set RScost = nothing
PCIrent = FormatCurrency(costPCI * rFactor/12) ' "20"
USBrent = FormatCurrency(USB * rFactor/12) ' "25"
EXTrent = FormatCurrency(EXT * rFactor/12) ' "30"
EXTRrent = FormatCurrency(EXTr * rFactor/12) ' "30"
CISCOrent = FormatCurrency(CISCO * rFactor/12) ' "30"
IP6rent = FormatCurrency(IP6 * rFactor/12) ' "26"
IP10rent = FormatCurrency(IP10 * rFactor/12) ' "20"
IP8rent = FormatCurrency(IP8 * rFactor/12) ' "20"
NIC10rent = FormatCurrency(NIC10 * rFactor/12)
NICISArent = FormatCurrency(NICISA * rFactor/12)
NIC100rent = FormatCurrency(NIC100 * rFactor/12)
KIT = "44.95"
EVALUATION = "79.95"
INSTALL1 = "89.95"
INSTALL2 = "244.95"
INSTALL3 = "699.95"
ExtraIP = "19.95"
ExtraEmail = "2.50"
ExtraFILTERS = "10.95"
descPCI = "PCI Internal DSL card', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Internal PCI Modem - $" &PCI& " "
descUSB = "USB port of your PC. For Windows98/Windows98-SE, Windows 2000, or XP, not compatible with Windows 95.', CAPTION, 'USB External DSL Modem ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"External USB Modem - $" &USB& " "
descEXT = "External DSL Modem/Router', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"External Modem/Router - $" &EXT& " "
descEXTR = "External DSL Modem/Router/4-port switch', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"External Modem/Router/4-port switch - $" &EXTr& " "
descCISCO827 = "Cico 827 Router', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"CISCO Modem/Router - $" &Cisco& " "
descIP6 = "Internet Gateway', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Gateway IP6 ...more Internet Gateway', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Gateway IP10 ...more Internet Gateway', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Gateway IP8 ...more Network Interface card', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"NIC 10-baseT - $" &NIC10& " "
descNIC100 = "NIC 10/100', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"NIC 10/100 - $" &NIC100& " "
purchase = "PCI Internal DSL card', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Purchase "
PCIrent2own = rent2 & PCIrent & ", you own this product.', CAPTION, 'PCI Internal DSL card ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own PCI Internal DSL card', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Purchase "
USBrent2own = rent2 & USBrent & ", you own this product.', CAPTION, 'USB External DSL card ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own External DSL Modem', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Purchase "
EXTrent2own = rent2 & EXTrent & ", you own this product.', CAPTION, 'External DSL modem ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own DSL Ext. modem/router ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own Cisco 827 modem/router ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own Internet Gateway-4-port ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own Internet Gateway ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own Internet Gateway-7-port ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own Network Interface Card ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own Network Interface Card ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&_
"Rent-to-Own Internal PCI DSL Modem - $" &PCI& "Includes: " &_
"Download Speed', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"128k download speed Always On, no time limit', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"Always-ON, no time limits 1 email account', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"1 email account 10 Megabytes of webspace', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"10 Megabytes of webspace Download/Upload activity', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"1 Gigabyte (GB) of download/upload activity. 10 hours Dialup per month', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"up to 10 hours/month of dialup Includes: " &_
"Download Speed', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"1.5 up to 3Mbps download speed Always On, no time limit', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"Always-ON, no time limits 1 email account', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"1 email account 10 Megabytes of webspace', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"10 Megabytes of webspace Download/Upload activity', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"10 Gigabytes (GB) of download/upload activity. 10 hours Dialup per month', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"up to 10 hours/month of dialup Includes: " &_
"Download Speed', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"3 up to 3Mbps download speed Always On, no time limit', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"Always-ON, no time limits 3 email accounts', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"2 email accounts 10 Megabytes of webspace', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"10 Megabytes of webspace Download/Upload activity', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"10 Gigabytes (GB) of download/upload activity 10 hours Dialup per month', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"up to 10 hours/month of dialup Notes: " &_
"Compatible DSL ModemCompatible DSL Modem is required DSL Line Filter', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>"&Ball&"DSL Line filter for each phone is required Minimal System Requirements ...more Rent-to-Own: " &_
"Hardware can be financed with our Rent-to-Own policy with 12 easy payments.Installion Kit: " &_
"Installation kit includes: 1 DSL Line Filter, software on CD and instructions.Rental: " &_
"You can rent a modem that is simply added to your monthly service. Rented Internal Modems are subject to a one time refundable deposit of $75. Rented External Modems are subject to a one time refundable deposit of $150. Modems must be returned in orginal packaging and in working order upon termination of service.DSL Line Filter', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>DSL Line Filters - $" &FILTERS& " eachExtra Emails Addresses', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>Extra Emails - $" &ExtraEmail& " per monthIP Addresses', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>IP Address - $" &ExtraIP& " per month ° 1 - DSL Line Filter Installation Kit ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>Installation Kit - $"&KIT&" ° 1 - DSL Line Filter PCI or ISA Installation Kit ', SNAPX, 20, SNAPY, 20)"" onMouseOut=nd()>Installation Kit - $"&KIT&"If you need more or additional hardware just give us a ring @ 905-378-1078 and we can customize a package to fit your needs."
%>
"
IncludesTXT = "