Hi all....this page used to work on my NT server, but now getting errors on Win2000.
Type mismatch: 'ubound'
/classythemes.com2001/_asp
store/shop
cart.asp, line 5
Here's the code....tia to anyone who can help!
<!--#INCLUDE FILE="adovbs.inc"-->
<%
sCartItemNums = session("cartitemnumarray"
)
nCartItemQtys = session("cartitemqtyarray"
)
nNumCartItems = ubound(sCartItemNums)
'Determine the mode of this page's operation. If we got here from a
' link that had a "mode" querystring of "add", mode is add:
sMode = request.querystring("mode"
)
'Or, we could have gotten here from a form:
select case request.form("cmdSubmit")
case "Proceed to Checkout"
sMode = "checkout"
case "Recalculate Order"
sMode = "recalc"
case "Continue Shopping"
sMode = "continue"
end select
if sMode = "add" then
nThisItemIndex = 0
sItemNo = ucase(request.querystring(
"itemno"))
if nNumCartItems > 0 then
for i = 1 to nNumCartItems
if ucase(scartitemnums(i)) = sItemNo then
nThisItemIndex = i
exit for
end if
next
end if
if nThisItemIndex = 0 then
nThisItemIndex = nNumCartItems + 1
redim Preserve sCartItemNums(nThisItemInd
ex)
redim Preserve nCartItemQtys(nThisItemInd
ex)
sCartItemNums(nThisItemInd
ex) = sItemNo
nCartItemQtys(nThisItemInd
ex) = 1
else
nCartItemQtys(nThisItemInd
ex) = nCartItemQtys(nThisItemInd
ex) + 1
end if
session("cartitemnumarray"
) = sCartItemNums
session("cartitemqtyarray"
) = nCartItemQtys
nNumCartItems = ubound(sCartItemNums)
end if
if sMode = "recalc" or sMode = "checkout" or sMode = "continue" then
for i = 1 to nNumCartItems
nThisQty = int(request.form("txtItemQ
ty" & i))
nCartItemQtys(i) = nThisQty
next
session("cartitemnumarray"
) = sCartItemNums
session("cartitemqtyarray"
) = nCartItemQtys
end if
'Move to another page based on mode.
' If mode is "add" or "recalc", we stay here.
' If mode is "continue", we move back to the main page so the user
' can shop more.
' If mode is "checkout", we stay here but change the mode the
select case sMode
case "continue"
response.redirect("../defa
ult.asp")
end select
set dbMain = server.createobject("ADODB
.Connectio
n")
dbMain.ConnectionString="D
river={Mic
rosoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/classythe
mes.com200
1/database
/classythe
mesdb.mdb"
)&";"
dbMain.open session("dblogin")
if sMode = "checkout" then
sPageHead = "ClassyThemes Checkout"
sPageCaption = "Checkout"
else
sPageHead = "ClassyThemes Shopping Cart"
sPageCaption = "Shopping Cart"
end if
%>
<html>
<head>
<title><% =sPageHead%></title>
<link href="/classythemes.com200
1/ClassyTh
emes.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../top.inc"-->
<p align="center">
<font color="#000000">
<% if sMode = "checkout" then%>
<form action="submitorder.asp" method="POST">
<% else %>
<form action="shopcart.asp" method="POST">
<% end if %>
<%
if nNumCartItems = 0 then
response.write "There are no themes in your shopping cart.<br>"
else
if sMode = "checkout" then
%>
Your order is ready to submit. Please provide the following information
and click the "Submit Order" button.
<br>
<table align="center" border="0">
<tr bgcolor="#c0c0c0">
<th colspan="2" align="center"><font color="#000000">
Customer Information</font>
</tr>
<tr>
<td colspan="2" align="center">Billing Details:</td>
</tr>
<tr>
<td>Title:</td>
<td><input type="text" name="bill_customer_title"
size="3"> </td>
</tr>
<tr>
<td><font color="#FF0000">First Name:</font></td>
<td><input type="text" name="bill_first_name" size="40"> </td>
</tr>
<tr>
<td><font color="#FF0000">Last Name:</font></td>
<td><input type="text" name="bill_last_name" size="40"> </td>
</tr>
<tr>
<td>Company Name:</td>
<td><input type="text" name="bill_company" size="40"> </td>
</tr>
<tr>
<td>Street Address:</td>
<td><input type="text" name="bill_address_one" size="40"> </td>
</tr>
<tr>
<td></td>
<td><input type="text" name="bill_address_two" size="40"> </td>
</tr>
<tr>
<td>City:</td>
<td><input type="text" name="bill_city" size="40"> </td>
</tr>
<tr>
<td>State / Province:</td>
<td><input type="text" name="bill_state_or_provin
ce" size="40"> </td>
</tr>
<tr>
<td>Zip / Postal Code:</td>
<td><input type="text" name="bill_postal_code" size="40"> </td>
</tr>
<tr>
<td>Country:</td>
<td><select name="bill_country">
<option value="AF">AFGHANISTAN</op
tion>
<option value="AL">ALBANIA</option
>
<option value="DZ">ALGERIA</option
>
<option value="INT">ALL_COUNTRIES_
EXCEPT_THE
_US</optio
n>
<option value="AS">AMERICAN_SAMOA<
/option>
<option value="AD">ANDORRA</option
>
<option value="AI">ANGUILLA</optio
n>
<option value="AQ">ANTARCTICA</opt
ion>
<option value="AG">ANTIGUA_AND_BAR
BUDA</opti
on>
<option value="AR">ARGENTINA</opti
on>
<option value="AM">ARMENIA</option
>
<option value="AW">ARUBA</option>
<option value="AU">AUSTRALIA</opti
on>
<option value="AT">AUSTRIA</option
>
<option value="AZ">AZERBAIJAN</opt
ion>
<option value="BS">BAHAMAS</option
>
<option value="BH">BAHRAIN</option
>
<option value="BD">BANGLADESH</opt
ion>
<option value="BB">BARBADOS</optio
n>
<option value="BY">BELARUS</option
>
<option value="BE">BELGIUM</option
>
<option value="BZ">BELIZE</option>
<option value="BJ">BENIN</option>
<option value="BM">BERMUDA</option
>
<option value="BT">BHUTAN</option>
<option value="BO">BOLIVIA</option
>
<option value="BW">BOTSWANA</optio
n>
<option value="BV">BOUVET_ISLANDS<
/option>
<option value="BR">BRAZIL</option>
<option value="IO">BRITISH_INDIAN_
OCEAN_TERR
ITORY</opt
ion>
<option value="BN">BRUNEI</option>
<option value="BG">BULGARIA</optio
n>
<option value="BF">BURKINA_FASO</o
ption>
<option value="BI">BURUNDI</option
>
<option value="CM">CAMBODIA</optio
n>
<option value="CM">CAMEROON</optio
n>
<option value="CA" selected>CANADA</option>
<option value="CV">CAPE_VERDE</opt
ion>
<option value="KY">CAYMAN_ISLANDS<
/option>
<option value="CF">CENTRAL_AFRICAN
_REPUBLIC<
/option>
<option value="TD">CHAD</option>
<option value="CL">CHILE</option>
<option value="CN">CHINA</option>
<option value="CX">CHRISTMAS_ISLAN
DS</option
>
<option value="CC">COCOS_KEELING_I
SLANDS</op
tion>
<option value="CO">COLOMBIA</optio
n>
<option value="KM">COMOROS</option
>
<option value="CG">CONGO</option>
<option value="CK">COOK_ISLAND</op
tion>
<option value="CR">COSTA_RICA</opt
ion>
<option value="CI">COTE_DIVOIRE</o
ption>
<option value="HR">CROATIA</option
>
<option value="CY">CYPRUS</option>
<option value="CZ">CZECH_REPUBLIC<
/option>
<option value="DK">DENMARK</option
>
<option value="DJ">DJIBOUTI</optio
n>
<option value="DM">DOMINICA</optio
n>
<option value="DO">DOMINICAN_REPUB
LIC</optio
n>
<option value="TP">EAST_TIMOR</opt
ion>
<option value="EG">EGYPT</option>
<option value="SV">EL_SALVADOR</op
tion>
<option value="EC">EQUADOR</option
>
<option value="GQ">EQUATORIAL_GUIN
EA</option
>
<option value="ER">ERITREA</option
>
<option value="EE">ESTONIA</option
>
<option value="ET">ETHIOPIA</optio
n>
<option value="FK">FALKLAND_ISLAND
S</option>
<option value="FO">FAROE_ISLANDS</
option>
<option value="FM">FEDERATED_STATE
S_OF_MICRO
NESIA</opt
ion>
<option value="FJ">FIJI</option>
<option value="FI">FINLAND</option
>
<option value="FR">FRANCE</option>
<option value="GF">FRENCH_GUIANA</
option>
<option value="PF">FRENCH_POLYNESI
A</option>
<option value="TF">FRENCH_SOUTHERN
_TERRITORI
ES</option
>
<option value="GA">GABON</option>
<option value="GM">GAMBIA</option>
<option value="GE">GEORGIA</option
>
<option value="DE">GERMANY</option
>
<option value="GA">GHANA</option>
<option value="BI">GIBRALTAR</opti
on>
<option value="GR">GREECE</option>
<option value="GL">GREENLAND</opti
on>
<option value="GD">GRENADA</option
>
<option value="GP">GUADELOUPE</opt
ion>
<option value="GU">GUAM</option>
<option value="GT">GUATEMALA</opti
on>
<option value="GN">GUINEA</option>
<option value="GW">GUINEA_BISSAU</
option>
<option value="GY">GUYANA</option>
<option value="HT">HAITI</option>
<option value="HM">HEARD_AND_MCDON
ALD_ISLAND
S</option>
<option value="HN">HONDURAS</optio
n>
<option value="HK">HONG_KONG</opti
on>
<option value="HU">HUNGARY</option
>
<option value="IS">ICELAND</option
>
<option value="IN">INDIA</option>
<option value="ID">INDONESIA</opti
on>
<option value="IE">IRELAND</option
>
<option value="IL">ISRAEL</option>
<option value="IT">ITALY</option>
<option value="JM">JAMAICA</option
>
<option value="JP">JAPAN</option>
<option value="JO">JORDAN</option>
<option value="KZ">KAZAKHSTAN</opt
ion>
<option value="KE">KENYA</option>
<option value="KI">KIRIBATI</optio
n>
<option value="KW">KUWAIT</option>
<option value="KG">KYRGYZSTAN</opt
ion>
<option value="LA">LAOS</option>
<option value="LV">LATVIA</option>
<option value="LB">LEBANON</option
>
<option value="LS">LESOTHO</option
>
<option value="LR">LIBERIA</option
>
<option value="LI">LIECHTENSTEIN</
option>
<option value="LT">LITHUANIA</opti
on>
<option value="LU">LUXEMBOURG</opt
ion>
<option value="MO">MACAU</option>
<option value="MG">MADAGASCAR</opt
ion>
<option value="MW">MALAWI</option>
<option value="MY">MALAYSIA</optio
n>
<option value="MV">MALDIVES</optio
n>
<option value="ML">MALI</option>
<option value="MT">MALTA</option>
<option value="MH">MARSHALL_ISLAND
S</option>
<option value="MQ">MARTINIQUE</opt
ion>
<option value="MR">MAURITANIA</opt
ion>
<option value="MU">MAURITIUS</opti
on>
<option value="YT">MAYOTTE</option
>
<option value="FX">METROPOLITAN_FR
ANCE</opti
on>
<option value="MX">MEXICO</option>
<option value="MD">MOLDOVA</option
>
<option value="MC">MONACO</option>
<option value="MN">MONGOLIA</optio
n>
<option value="MS">MONTSERRAT</opt
ion>
<option value="MA">MOROCCO</option
>
<option value="MZ">MOZAMBIQUE</opt
ion>
<option value="MM">MYANMAR</option
>
<option value="NA">NAMIBIA</option
>
<option value="NR">NAURU</option>
<option value="NP">NEPAL</option>
<option value="NL">NETHERLANDS</op
tion>
<option value="AN">NETHERLANDS_ANT
ILLES</opt
ion>
<option value="NC">NEW_CALEDONIA</
option>
<option value="NZ">NEW_ZEALAND</op
tion>
<option value="NI">NICARAGUA</opti
on>
<option value="NE">NIGER</option>
<option value="NG">NIGERIA</option
>
<option value="NU">NIUE</option>
<option value="NF">NORFOLK_ISLAND<
/option>
<option value="MP">NORTHERN_MARIAN
A_ISLANDS<
/option>
<option value="NO">NORWAY</option>
<option value="OM">OMAN</option>
<option value="PK">PAKISTAN</optio
n>
<option value="PW">PALAU</option>
<option value="PA">PANAMA</option>
<option value="PG">PAPUA_NEW_GUINE
A</option>
<option value="PY">PARAGUAY</optio
n>
<option value="PE">PERU</option>
<option value="PH">PHILIPPINES</op
tion>
<option value="PN">PITCAIRN</optio
n>
<option value="PL">POLAND</option>
<option value="PT">PORTUGAL</optio
n>
<option value="PR">PUERTO_RICO</op
tion>
<option value="QA">QATAR</option>
<option value="KR">REPUBLIC_OF_KOR
EA</option
>
<option value="MK">REPUBLIC_OF_MAC
EDONIA</op
tion>
<option value="RE">REUNION</option
>
<option value="RO">ROMANIA</option
>
<option value="RU">RUSSIA</option>
<option value="WS">SAMOA</option>
<option value="SM">SAN_MARINO</opt
ion>
<option value="ST">SAO_TOME_AND_PR
INCIPE</op
tion>
<option value="SA">SAUDI_ARABIA</o
ption>
<option value="SN">SENEGAL</option
>
<option value="SC">SEYCHELLES</opt
ion>
<option value="SL">SIERRA_LEONE</o
ption>
<option value="SG">SINGAPORE</opti
on>
<option value="DK">SLOVAKIA</optio
n>
<option value="SI">SLOVENIA</optio
n>
<option value="SB">SOLOMON_ISLANDS
</option>
<option value="SO">SOMALIA</option
>
<option value="ZA">SOUTH_AFRICA</o
ption>
<option value="ES">SPAIN</option>
<option value="LK">SRI_LANKA</opti
on>
<option value="SH">ST_HELENA</opti
on>
<option value="KN">ST_KITTS_AND_NE
VIS</optio
n>
<option value="LC">ST_LUCIA</optio
n>
<option value="PM">ST_PIERRE_AND_M
IQUELON</o
ption>
<option value="VC">ST_VINCENT_AND_
THE_GRENAD
INES</opti
on>
<option value="SD">SUDAN</option>
<option value="SR">SURINAME</optio
n>
<option value="SJ">SVALBARD_AND_JA
N_MAYEN_IS
LANDS</opt
ion>
<option value="SZ">SWAZILAND</opti
on>
<option value="SE">SWEDEN</option>
<option value="CH">SWITZERLAND</op
tion>
<option value="SY">SYRIA</option>
<option value="TW">TAIWAN</option>
<option value="TJ">TAJIKISTAN</opt
ion>
<option value="TZ">TANZANIA</optio
n>
<option value="TH">THAILAND</optio
n>
<option value="TG">TOGO</option>
<option value="TK">TOKELAU</option
>
<option value="TO">TONGA</option>
<option value="TT">TRINIDAD_AND_TO
BAGO</opti
on>
<option value="TN">TUNISIA</option
>
<option value="TR">TURKEY</option>
<option value="TM">TURKMENISTAN</o
ption>
<option value="TC">TURKS_AND_CAICO
S_ISLANDS<
/option>
<option value="TV">TUVALU</option>
<option value="UG">UGANDA</option>
<option value="UA">UKRAINE</option
>
<option value="AE">UNITED_ARAB_EMI
RATES</opt
ion>
<option value="GB">UNITED_KINGDOM<
/option>
<option value="US">UNITED_STATES</
option>
<option value="UM">UNITED_STATES_M
INOR_OUTLY
ING_ISLAND
S</option>
<option value="UY">URUGUAY</option
>
<option value="UZ">UZBEKISTAN</opt
ion>
<option value="VU">VANUATU</option
>
<option value="VA">VATICAN_CITY</o
ption>
<option value="VE">VENEZUELA</opti
on>
<option value="VN">VIETNAM</option
>
<option value="VG">VIRGIN_ISLANDS_
BRITISH</o
ption>
<option value="VI">VIRGIN_ISLANDS_
USA</optio
n>
<option value="WF">WALLIS_AND_FUTU
NA_ISLANDS
</option>
<option value="EH">WESTERN_SAHARA<
/option>
<option value="YE">YEMEN</option>
<option value="YU">YUGOSLAVIA</opt
ion>
<option value="ZR">ZAIRE</option>
<option value="ZM">ZAMBIA</option>
<option value="ZW">ZIMBABWE</optio
n>
</select> </td>
</tr>
<tr>
<td>Phone #:</td>
<td><input type="text" name="bill_phone" size="40"> </td>
</tr>
<tr>
<td><font color="#FF0000">Email address:</font></td>
<td><input type="text" name="bill_email" size="40"> </td>
</tr>
<tr>
<td colspan="2">
<hr>
</td>
</tr>
<tr>
<td colspan="2" align="center">Credit Card Details:</td>
</tr>
<tr>
<td>Credit Card Number:</td>
<td><input type="text" name="credit_card_number" size="20"> </td>
</tr>
<tr>
<td>Expiry Month:</td>
<td><select size="1" name="expire_month">
<option selected>Expiry Date (Month)</option>
<option value="01">January (01)</option>
<option value="02">February (02)</option>
<option value="03">March (03)</option>
<option value="04">April (04)</option>
<option value="05">May (05)</option>
<option value="06">June (06)</option>
<option value="07">July (07)</option>
<option value="08">August (08)</option>
<option value="09">September (09)</option>
<option value="10">October (10)</option>
<option value="11">November (11)</option>
<option value="12">December (12)</option>
</select> </td>
</tr>
<tr>
<td>Expiry Year:</td>
<td><select size="1" name="expire_year">
<option selected>Expiry Date (Year)</option>
<option value="2000">2000</option>
<option value="2001">2001</option>
<option value="2002">2002</option>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
</select></td>
</tr>
<tr>
<td colspan="2">
<hr>
</td>
</tr>
</table>
<font color="#000000">
<%
else
response.write "Your shopping cart currently contains these themes:"
end if
%>
</font>
<table align="center" border="1" cellspacing="1" cellpadding="6">
<tr>
<td height="25">
<p align="center"><font color="#000000">Quantity</
font></p>
</td>
<td height="25">
<p align="center"><font color="#000000">Item No.</font></p>
</td>
<td height="25">
<p align="center"><font color="#000000">Item Name</font></p>
</td>
<td height="25">
<p align="center"><font color="#000000">Price</fon
t></p>
</td>
<td height="25">
<p align="center"><font color="#000000">Extension<
/font></p>
</td>
</tr>
<font color="#000000" size="-1">
<%
cSubTotal = 0
nNumItems = 0
for i = 1 to nNumCartItems
Set rsProducts = Server.CreateObject("ADODB
.Recordset
")
sSQL = "SELECT * FROM products WHERE itemproductnumber = '" & _
sCartItemNums(i) & "'"
rsProducts.open sSQL, dbMain, adopenstatic, _
adlockpessimistic, adcmdtext%>
<tr>
<%
sTemp = "<input type='Text' name='txtItemQty" & i & "' value='" & _
nCartItemQtys(i) & "' size='3'>"
%>
<td align="center" height="22" valign="top"><font color="#000000"><% = sTemp %>
</font></td>
<td align="center" height="22" valign="top"><font color="#000000"><% = rsProducts("itemproductnum
ber") %>
</font></td>
<td height="22" valign="top" align="center"><font color="#FF0000"><% = rsProducts("itemname") %></font></td>
<%
if rsProducts("itemsaleprice"
) > 0 then
cPrice = rsProducts("ItemSalePrice"
)
else
cPrice = rsProducts("ItemRegularPri
ce")
end if
%>
<td align="center" height="22" valign="top"><font color="#000000"><% = cPrice%></font></td>
<font color="#008000" size="-1">
<%
cExtension = nCartItemQtys(i) * cPrice
cSubTotal = cSubTotal + cExtension
%>
</font>
<td align="center" height="22" valign="top"><font color="#000000">
<p align="right"><% = formatcurrency(cExtension)
%>
</font></td>
</tr><% next %>
<font color="#008000" size="-1">
</font>
<tr>
<td align="right" colspan="4" height="25"><font color="#000000">Subtotal</
font></td>
<td align="right" height="25"><font color="#000000"><% = formatcurrency(cSubTotal) %>
</font></td>
</tr>
<font color="#008000" size="-1"><% cShipping = 0.00 + (0.00 * nNumItems) %>
</font>
<tr>
<td align="right" colspan="4" height="25"><font color="#000000">Shipping
& Handling</font></td>
<td align="right" height="25"><font color="#000000"><% = formatcurrency(cShipping) %>
</font></td>
</tr>
<font color="#008000" size="-1"><% cTotal = cSubTotal + cShipping %>
</font>
<tr>
<td align="right" colspan="4" height="25"><font color="#000000">Grand Total</font></td>
<td align="right" height="25"><font color="#000000"><img src="images/canada2.gif" alt="Canadian $" align="absmiddle" border="0">
<input type="hidden" value="<%=formatcurrency(c
Total)%>" name="charge_total"><% = formatcurrency(cTotal) %>
</font></td>
</tr>
</table>
</font>
</center>
<font color="#000000" size="-1">
<center>
<hr>
<table border="1" width="100%">
<tr>
<td width="100%">
<p align="center">
<font color="#000000">
If you would like to convert this amount of Canadian Dollars to your
currency to see the approximate charge to your credit card, <a href="samp-ucc.asp?convert
amount=<% = (cTotal) %>" target="_blank">click
here.</a></font></td>
</tr>
</table>
<div align="center">
<hr>
<font color="#008000">
<input type="Submit" name="cmdSubmit" value="Continue Shopping">
<input type="Submit" name="cmdSubmit" value="Recalculate Order">
<br><br>
<% if sMode = "checkout" then %>
<input type="Submit" name="cmdSubmit" value="Submit Order">
<% else %>
<input type="Submit" name="cmdSubmit" value="Proceed to Checkout"><br>
</font>
<font color="#000000">
<% end if %>
</font>
</div></form>
<font color="#008000" size="-1">
<% end if %>
</font>
</center>
</font>
</font>
<!--#include file="../bottom.inc"-->
</body>
</html>