Web Wiz - Green Windows Web Hosting
Web Wiz Homepage Search Web Wiz

  New Posts New Posts RSS Feed - asp cart prob
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

asp cart prob
 Post Reply Post Reply
Author
  Topic Search Topic Search  Topic Options Topic Options
ainsworth14 View Drop Down
Groupie
Groupie


Joined: 05 August 2003
Location: United Kingdom
Status: Offline
Points: 62 		Post Options Post Options   Thanks (0) Thanks(0)   Quote ainsworth14 Quote  Post ReplyReply Direct Link To This Post Topic: asp cart prob
    Posted: 19 July 2005 at 4:18pm

hi all

i have built this cart using a well known asp help book, but i am having trouble changing a few things about to customise it more.
 
Could some please tell me why i need the '2' in the following:
 
FOR i = 0 TO UBOUND (localCart, 2)
 
is it purely because it is the second time i have referenced it in the code?
 
also i want to pass hidden fields for each column in my array (id, artist, title etc) it works as it is but if i leave the line as
 
FOR tq = 0 TO UBOUND( localCart, 2 )
 
i and up sending across about 50 lots of empty hidden fields
and if i change to
 
FOR tq = 0 TO UBOUND( localCart, 1 )
 
i send about 5 lots of hidden fields, obviousdly this is better but all i want is to send across only the amount that is in the shaopping basket?!
 
can anyone help - code is below, sorry for the lengh, i have tried to cut out any useless html for this post.
 
thanks
mark
 
 
<%

'define constants
CONST CARTPID = 0
CONST CARTPARTIST = 1
CONST CARTPPRICE = 2
CONST CARTPQUANTITY = 3
CONST CARTPTITLE = 4
CONST CARTPFORMAT = 5

'get the shopping cart
IF NOT isArray (Session("cart")) THEN
DIM localCart(5,20)
ELSE
localCart = Session("cart")
END IF


'get product information
productID = TRIM(request("pid"))
catID = TRIM(request("catID"))
artist = TRIM(request("artist"))
title = TRIM(request("title"))
format = TRIM(request("format"))
price = TRIM(request("price"))

'add to cart
IF productID <> "" THEN
foundIT = FALSE
FOR i = 0 TO UBOUND (localCart, 2)
IF localCart( CARTPID, i ) = productID THEN
localCart ( CARTPQUANTITY, i ) = localCart (CARTPQUANTITY, i) + 1
foundIT = TRUE
EXIT FOR
END IF
NEXT
IF NOT foundIT THEN
FOR i = 0 TO UBOUND (localCart, 2)
If localCart(CARTPID, i ) = "" THEN
localCart (CARTPID, i) = productID
localCart (CARTPARTIST, i) = artist
localCart (CARTPTITLE, i) = title
localCart (CARTPFORMAT, i) = format
localCart (CARTPPRICE, i) = price
localCart (CARTPQUANTITY, i) = 1
EXIT FOR
END IF
NEXT
END IF
END IF

' Update Shopping Cart Quantities
IF Request( "updateQ" ) <> "" THEN
  FOR i = 0 TO UBOUND( localCart, 2 )
    newQ = TRIM( Request( "pq" & localCart( CARTPID, i ) ) )
 deleteProduct = TRIM(Request("pd" & localCart (CARTPID,i)))
 IF newQ = "" or newQ = "0" or deleteProduct <> "" THEN
      localCart( CARTPID, i ) = ""
 ELSE
      IF isNumeric( newQ ) THEN
        localCart( CARTPQUANTITY, i ) = newQ
   END IF
 END IF
  NEXT
END IF


'update Session variable with array
Session ("cart") = localCart


%>

<%
FOR i = 0 TO UBOUND( localCart, 2 )
IF localCart( CARTPID, i ) <> "" THEN
orderTotal = orderTotal + ( localCart( CARTPPRICE, i ) * localCart( CARTPQUANTITY, i ) )
%>
<TR></TR>
<TD align="left" class="bottom_border">
<span class="page-nav-strong"><%=emptycart_msg%><%=Server.HTMLEncode(localCart(CARTPARTIST, i))%></span>
</TD>
<TD align="left" class="bottom_border">
<span class="page-nav-strong"><%=Server.HTMLEncode(localCart(CARTPTITLE, i))%></span>
</TD>
<TD align="left" class="bottom_border">
<span class="page-nav-strong">£<%=FormatNumber(localCart(CARTPPRICE, i))%></span>
</TD>
<TD align="left" class="bottom_border">
<input name="pq<%=localCart(CARTPID, i )%>" type="text" size="4" value="<%=localCart(CARTPQUANTITY, i )%>">
</td>
<TD align="left" class="bottom_border">
<input name="pd<%=localCart(CARTPID, i )%>" type="checkbox" value="1">
<span class="page-nav-strong">Delete Item</span>
<BR><div align="right"><a href="productpage.asp?category=<%=catID%>&productdetail=<%=localCart( CARTPID, i )%>" class="recent_searches">view item....</a></div>
</td>
</TR>
<%
END IF
NEXT
%>
<TR bgcolor="#F4F7FD">
<TD colspan="2" align="right" class="td-top-bottom_border">
<span class="activeCategory"><B>Total:</B></span>
</TD>
<TD align="left" colspan="2" class="td-top-bottom_border">
<span class="page-nav-strong">£<%=FormatNumber(orderTotal)%> + shipping</span>
</TD>
<TD align="left" bgcolor="#ffffff" class="td-top-bottom_border">
<input type="image" img src="assets/images/updatecart.gif">
</form></TD>
</TR>
<TR>
<TD colspan="5"><hr color="#F4F7FD"></td>
</tr>
<TR class="row-top-bottom_border">
<TD align="center">
<a href="default.asp" class="main_nav"><< previous page</a>
</TD>
<td>&nbsp;

</td>
<td>&nbsp;</td>
<%
totalquantity = 0
%>
<%
FOR tq = 0 TO UBOUND( localCart, 2 )
IF localCart( CARTPPID, tq ) <> "" THEN
totalquantity = totalquantity + localCart( CARTPQUANTITY, tq)
END IF
NEXT
%>

<td align="center">
<a href="clearcart.asp" class="main_nav">empty cart</a></td>
<TD>
  <div align="center">
 
  <FORM METHOD="post" action="checkout.asp" style="margin-bottom:0;">
  <input type="image" img src="assets/images/checkout.gif">
   <%FOR i = 0 TO UBOUND( localCart, 1)%>
  <input type="hidden" name="idlist" value="<%=Server.HTMLEncode(localCart(CARTPID, i))%>">
  <input type="hidden" name="artistlist" value="<%=Server.HTMLEncode(localCart(CARTPARTIST, i))%>">
  <input type="hidden" name="titlelist" value="<%=Server.HTMLEncode(localCart(CARTPTITLE, i))%>">
  <input type="hidden" name="formatlist" value="<%=Server.HTMLEncode(localCart(CARTPFORMAT, i))%>">
  <input type="hidden" name="quantity" value="<%=Server.HTMLEncode(localCart(CARTPQUANTITY, i))%>">
  <%NEXT%>
  <input type="hidden" name="ordertotal" value="<%=orderTotal%>">
  <input type="hidden" name="totalquantity" value="<%=totalquantity%>">
    </div></td>
  </tr>
  <tr>
  <td bgcolor="#F4F7FD" valign="top" class="td-top-bottom_border" colspan="5"><span class="activeCategory">You may also like:</span></td></tr>
<%FOR a = 1 TO y%>
  <tr>
  <td bgcolor="#F4F7FD" valign="top" class="td-top-bottom_border" colspan="1"><%=recommend_image(a)%></td>
  <td bgcolor="#F4F7FD" class="td-top-bottom_border" colspan="4"><a href="productpage.asp?category=<%=recommend_catid(a)%>&productdetail=<%=recommend_id(a) %>" class="category1"><%=recommend_artist(a)%>  - 
      <span class="category2"><%=recommend_title(a)%></span></a><P>
   <span class="category3"><%=recommend_description(a)%>...</span>[<a href="productpage.asp?category=<%=r

Back to Top
dpyers View Drop Down
Senior Member
Senior Member


Joined: 12 May 2003
Status: Offline
Points: 3937 		Post Options Post Options   Thanks (0) Thanks(0)   Quote dpyers Quote  Post ReplyReply Direct Link To This Post Posted: 19 July 2005 at 9:57pm
localCart(5,20) indicates it's a multi dimensional array - think of it as 5 rows with 20 columns in each row.

UBOUND( localCart, 2 ) gives you the total number of columns in the second dimension (20 columns x 5 rows) of the array.

UBOUND( localCart, 1 ) gives you the total number of rows in the first dimension (5 rows) of the array. This is the default for Ubound and you don't have to specify ",1"

You're seeing blanks because some elements of the array are not populated or have unprintable characters in them.

EDIT:
Remember when working with arrays, counting starts at 0, not at 1 so in the statement:
x = Ubound(localCart)
x will contain a value of 4, not of 5.



Edited by dpyers - 19 July 2005 at 10:08pm

Lead me not into temptation... I know the short cut, follow me.
Back to Top
ainsworth14 View Drop Down
Groupie
Groupie


Joined: 05 August 2003
Location: United Kingdom
Status: Offline
Points: 62 		Post Options Post Options   Thanks (0) Thanks(0)   Quote ainsworth14 Quote  Post ReplyReply Direct Link To This Post Posted: 20 July 2005 at 5:28pm
okay, thanks a lot - i think i am getting to grips with,
 
as for the empty values (not populated) will these always be there?
Back to Top
dpyers View Drop Down
Senior Member
Senior Member


Joined: 12 May 2003
Status: Offline
Points: 3937 		Post Options Post Options   Thanks (0) Thanks(0)   Quote dpyers Quote  Post ReplyReply Direct Link To This Post Posted: 20 July 2005 at 6:34pm
It's the DIM localCart(5,20) that sets the size/number of fields in the array. Probably something generic for a shopping cart. You could change that to suite your own requirements.

When you check for empty elements in the array, they'll contain a NULL value which is different from a value of "" (empty string).
e.g.
If you set x = "" there's actually invisible end of string characters similar to the invisible line feed/carriage return characters at the end of a line of text.

If you set x = NULL there's no end-of-string characters.

A NULL will sort before an empty string in an ascending sort.
So when checking a database field or an element of an array to see if it's empty a good idea is not to check if it's equal "" or NULL but to check if it's greater than an empty string (If x > "").
That way you don't have to worry about if you're dealing with raw data or with a string.

EDIT: Some people initialize an array before loading it with data by looping through it and setting all the elements to ""
e.g.  - MyArray (index1, index2) = ""


Edited by dpyers - 20 July 2005 at 6:38pm

Lead me not into temptation... I know the short cut, follow me.
Back to Top
ainsworth14 View Drop Down
Groupie
Groupie


Joined: 05 August 2003
Location: United Kingdom
Status: Offline
Points: 62 		Post Options Post Options   Thanks (0) Thanks(0)   Quote ainsworth14 Quote  Post ReplyReply Direct Link To This Post Posted: 20 July 2005 at 6:44pm
thanks very much - i have managed to get quite a lot done tonight with your guidance!
 
my other main problem with this cart is calculating postage.
 
what i need is someway to have a flat fee for 1 item then to increment the postage by a smaller amount depending on a variable - localcart(CARTPFORMAT,i)
 
like this:
 
first item = 12inch so postage will be £2.50 then the second item is a "2x12inch" so i would want the postage to go up another £1.00 but if another "12inch" was added it will go up by £0.50
 
do you see what i mean?
 
i have tried endless calcualtions but have not fathomed it out, if anyone knows you probably save my life, if not i'll keep trying.
 
thanks for you time
mark
Back to Top
dj air View Drop Down
Senior Member
Senior Member
Avatar

Joined: 05 April 2002
Location: United Kingdom
Status: Offline
Points: 3627 		Post Options Post Options   Thanks (0) Thanks(0)   Quote dj air Quote  Post ReplyReply Direct Link To This Post Posted: 20 July 2005 at 7:30pm
if items > 1 then

postage = 1.00/number of items

END IF

if postage = 2.50 + Postage

i take it it devides by 2 each time ie 1,.50, 25?

what ammounts does it stop at
Back to Top
ainsworth14 View Drop Down
Groupie
Groupie


Joined: 05 August 2003
Location: United Kingdom
Status: Offline
Points: 62 		Post Options Post Options   Thanks (0) Thanks(0)   Quote ainsworth14 Quote  Post ReplyReply Direct Link To This Post Posted: 21 July 2005 at 2:18pm
the basic amounts are
 
£2.50 for the first item then £0.50 for each additional item BUT
the additional items could be a different format (2x12inch) so then i want the additional charge to be £1.00 instead of £0.50
and so on
 
is this clear? i really appreciate your help
thanks
mark
Back to Top
dj air View Drop Down
Senior Member
Senior Member
Avatar

Joined: 05 April 2002
Location: United Kingdom
Status: Offline
Points: 3627 		Post Options Post Options   Thanks (0) Thanks(0)   Quote dj air Quote  Post ReplyReply Direct Link To This Post Posted: 22 July 2005 at 7:50am
ok

postage = 2.50

if item = "12 inch" then

strPostageextra = 1.00

elseif item = "other item"

strPostage = "0.50"

END IF

postage = postage + (itemCount -1 *strPostageextra)

hope that gives an idea, if its a stict cart then you can do it code wise using elseif

i am working on a cart system, but not had time lately to work on it Cry
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.08
Copyright ©2001-2026 Web Wiz Ltd.

Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Notice

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT at 20% unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2026 Web Wiz Ltd. All rights reserved.