% OpenDB Dim WillShow,MessageSuccess MessageSuccess=False WillShow=False if Request.QueryString("Action")="Transaction" then If Add()=True Then Response.Redirect("ShoppingCart.asp?Message=SuccessAdd") End if End if if Request.QueryString("Action")="Save" then AddtoCart() End if If Request.QueryString("Message")="SuccessAdd" then MessageSuccess=True End if If Request.QueryString("Action")="Delete" then RemoveCartItem(request.QueryString("ItemId")) End if If Request.Querystring("Action")="Update" Then UpdateCartItem(request.QueryString("ItemId")) End if If Request.QueryString("Action")="CheckOut" then WillShow=True End if %>
| <%if Session("first_name")="" then %> <%End if%> <%if Session("first_name")<>"" then %> <%End if%> |
<% if MessageSuccess=True then %>
|
||||