<% 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 willShow=True Then %> <%End if %>   <%if MessageSuccess=False Then%> Shopping   <%End If%> <% CheckCart() %> <%if MessageSuccess=False Then%> <% if not rsview.eof then %> <% dim b b="#e7e7e7" tot_amt = 0 counter=1 do while not rsview.eof dim count1 if count1 mod 2 = 0 then bgcolor=Oddcolor else bgcolor=EvenColor End if count1=count1+1 If TransactionStatus=1 then TransactionStatus1="Not Deliverd" Elseif TransactionStatus=2 then TransactionStatus1="Delivered" End if %> <% counter = counter + 1 tot_amt = tot_amt + (rsview("v_price")*rsview("qty")) rsview.movenext loop %> No. Product No Item Name Available Unit Price Quantity Ext. Price Remove <%=Counter%> <%= rsview("v_codenumber") %> " title="Click Here To See More Info About This Product" class="sidemenulink"><%=rsview("p_name")%> Yes <%=rsview("v_price")%> " class="formtextfield" value="<%=rsview("qty")%>" size="3" maxsize="3" onBlur="JavaScript:isQuantityInt(this);"> " value="<%=rsview(0)%>"> " value="<%=rsview("p_id")%>"> <%=rsview("v_price")*rsview("qty")%> Remove    TAX & SHIPPING WILL BE CALCULATED DURING CHECKOUT   SUB TOTAL : <% =tot_amt %>   <% If Request.QueryString("Action")<>"CheckOut" then%> >  > <%End if%> <%else%> Your shopping cart is empty !!! <% end if %> <%End if%>   <% If Session("user_name")="" then%> <%End if%> <%IF Session("User_Name")= "" then %>Allready registered with Chemmed? >Login here. <%End if%> User Information First Name : maxlength="50"> Last Name : maxlength="50"> Address : maxlength="255"> Email : onBlur="JavaScript:validateemail(this)" maxlength="100"> City : maxlength="50" value="<%=Session("user_City")%>"> State : <%SelectList "States", "*", "order by Statename" , "Statename", "State_id", "user_State" , false, 0, Session("user_State"), " class='formTextField' ","---Non-USA---"%> Province : maxlength="50" value="<%=Session("user_Province")%>"> Country : <%SelectList "Countries", "*", "order by CountryName" , "CountryName", "CountryID", "user_Country" , false,0, Session("user_Country"), " class='formTextField' ","" %> Zip Code : onBlur="return validateZip(this)" maxlength="20" value="<%=Session("user_ZipCode")%>"> Delivery Address: ><%=Session("user_address")%>     Credit Card Information     Credit Card : <%SelectList "CreditCards", "*", "order by CreditCardName" , "CreditCardName", "CreditCardID", "User_CreditCard" , false, 0,User_CreditCard, " class='formTextField' ",""%> Card Number : > Expiry Date : onBlur="javascript:validateDate(this);" > (mm/dd/yyyy)       >   > <% if MessageSuccess=True then %> Succesful Message   Transaction Successfuly completed. Return <%End if%>