AyurvedasBeautyCare.Com

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if request.QueryString("checkout")="yes" then response.Redirect("https/checkout.asp?uid="&request.Cookies("sessionid")&"&totalweight="&session("weight")&"&totalamount="&session("totamt")&"&cartid=ZZYY00HHSBEERIF&PFOLDE=yes&catid=actual=visual%2Byes") end if %> <% on error resume next %> AyurvedasBeautyCare.Com <% sub sendMail(productname) Set jmail = Server.CreateObject("JMail.Message") jmail.From = "info@ayurvedasbeautycare.com" jmail.AddRecipient "info@ayurvedasbeautycare.com","Administrator" 'jmail.AddRecipient "nirav@designofficials.com","Nirav Oza" jmail.Subject = "Item/Product "&productname&" rechead below re-order level." jmail.Body = " " jmail.HTMLBody = "To Administrator,

The quantity of "&productname&" is below Mininmum stock level.
So increase the closing stock. At present Closing stock may show negative value.
If the closing stock of a product is below minimum stock level then customer will not be able to see that product at MehndiArt.com.

Auto generated email." jmail.Send("designofficials.com") end sub %> <% 'update qty from cart 'response.End() if len(request.QueryString("upcart"))<>0 then qty = trim(request.Form("qty")) proid = request.Form("proid") cartid = request.Form("cartid") qtyarr = split(qty,",") proidarr = split(proid,",") cartidarr = split(cartid,",") set qtyrs=server.CreateObject("adodb.recordset") for i = 0 to ubound(qtyarr) ' response.Write(i)&"
" qtyrs.open "select CLOSING_STOCK,MIN_STOCK,PNAME from PRODUCT_MASTER where ID="& proidarr(i),con AVAILABLE_STOCK=qtyrs.fields(0) if (qtyrs.fields(0)-qtyarr(i))0 then cartid = request.QueryString("cartid") delprosql = "delete * from Cart where ID="& cartid &" AND SESSION_ID='"& request.Cookies("sessionid") &"'" con.execute delprosql end if 'Back to shopping if len(request.QueryString("contshp"))<>0 then response.Redirect(session("pgref")) end if %>

<% 'viewcartsql = "select * from cart where SESSION_ID='"& session.SessionID &"' AND ISWISH="& 0 viewcartsql = "select * from cart where SESSION_ID='"& request.Cookies("sessionid") &"' and iswish=0" set viewrec = server.CreateObject("ADODB.RECORDSET") viewrec.open viewcartsql,con,3,3 cartot = viewrec.recordcount %> <% if cartot <> 0 then%>

&cartid=Fd00ffvoNNonto&PFOLDE=yes&catid=visual+no&upcart=true&contshop=yes">

<% dim totamt,subamt while not viewrec.eof %> <% weight=(FormatNumber(viewrec.fields(10),2))*(viewrec.fields(7)) totweight = round(totweight+(weight*16)) session("weight")=totweight totamt = totamt + subamt viewrec.movenext wend set viewrec = nothing set prorec = nothing %> <% if request.QueryString("mg")="yes" then %> <% end if %>

Remove Wish List Qty. Description Price

Delete

&proid=<%=viewrec.fields(3)%>&wishlst=true&cartid=<%=viewrec.fields(0)%>&catni=FFEE00OO322&woke=yes&frmcrt=true" class="toplink">Add to wish List

<%=viewrec.fields(5)%> (<%=viewrec.fields(4)%>)
	<%=viewrec.fields(8)%>
	Our Price: $<%=formatnumber(viewrec.fields(6),2)%>

$<%=formatnumber(viewrec.fields(6)*viewrec.fields(7),2)%> <% subamt = (FormatNumber(viewrec.fields(6),2))*(viewrec.fields(7))%>

We are unable to fulfill the total quantity that yo have requested. Please review the adjusted quantity as shown above.

Sub Total: $<%=formatnumber(totamt,2)%> <%session("totamt")=totamt%>

Your Wish List

&wishlst=true&catni=FFEE00OO322&woke=yes&frmcrt=true" class="toplink">See Your Complete Wish List

Cart Help

How do I remove items from my cart?
Click "Delete Item" next to the item you wish to remove. If you would like to save the item for a later purchase, click "Add to Wish List".

How do I change the quantity of an item in my shopping cart?
Change the number in the box next to that item and click "Update Quantity".

<% else %>

Want to add items to your cart? Shopping is easy -- We'll keep items in your cart for 6 hours in case you have to leave your computer.

Your Wish List

&wishlst=true&catni=FFEE00OO322&woke=yes&frmcrt=true" class="toplink">See Your Complete Wish List

<% end if %>