<%if session("custname")<>"" then%>
My Profile
Change Password
View Cart
Sign Out
<%else%>
Click Here to Register
<%end if%>
<%if request.QueryString("curr")="" then%>
Click here to get Price in US Dollars
<%else%>
Click here to get Price in Indian Currency
<%End if%>
Remove Item
($)
Item Name ($)
Qty
Price
<% dim rs set rs=server.CreateObject("Adodb.recordset") set rs1=server.CreateObject("Adodb.recordset") set rs2=server.CreateObject("Adodb.recordset") rs.open "select * from temp_cart where session_id="&session.SessionID &" order by card_id desc",con,1,2 if rs.recordcount<>0 then while not rs.eof rs1.open "select * from products where prodid="&rs(1),con,1,2 'inr_dol=rs1("curr") while not rs1.eof ind=ind + rs1("shipindia") usd=usd + rs1("shipother") rs1.movenext wend rs1.close %>
<%=rs(3)%>
" onBlur="return chkstock(this)" size=3 maxlength="3">
<% if request.QueryString("curr")="" then dim a a=trim(rs("price")*rs("qty")) c=a+ind Response.Write(formatnumber(a)) else rs2.open "select * from products where prodid="&rs("prodid_fk"),con,1,2 while not rs2.eof a=trim(rs2("priceusd")*rs("qty")) Response.Write(formatnumber(a)) b=a+usd rs2.movenext wend rs2.close end if %>
<%if request.QueryString("curr")="usd" then Response.Write("USD") else Response.Write("INR") End if %>
<% rs.movenext wend %>
<%if request.QueryString("curr")="usd" then%> Shipping Price for Others <%else%> Shipping Price for India <%end if%>
:
<% if request.QueryString("curr")="usd" then Response.Write(usd) else Response.Write(ind) end if %>
<%if request.QueryString("curr")="usd" then Response.Write("USD") else Response.Write("INR") End if %>
Total Amount
:
<% if request.QueryString("curr")="usd" then Response.Write("
"&formatnumber(b)&"
") else Response.Write("
"&formatnumber(c)&"
") end if %>
<%if request.QueryString("curr")="usd" then Response.Write("
"&"USD"&"
") else Response.Write("
"&"INR"&"
") End if %>
<%else%>
Your Cart is Empty.
<%end if%>
<%if rs.recordcount <> 0 then%>
<%else%>
<%End if%>
© 2006 Swayam Prakash All Rights Reserved
