<% accessdb="Select.mdb" myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" myDSN=myDSN & "DBQ=" & server.mappath(accessdb) Set db=Server.CreateObject("ADODB.Connection") db.open myDSN dim cat cat=request("L") dim sql if request.querystring("product_id") <> "" then pid= int(request.querystring("product_id")) sql="Select * from product where p_code="&pid else sql="Select * from product where S_R like 'R' or S_R like 'SR' " end if set r2=Server.CreateObject("adodb.recordset") r2.cursortype=3 r2.cursorlocation=3 r2.open sql, db, adopenstatic %> www.selectmarketing.com -> Retail Order <% top %>

Retail Order
Welcome to the retail counter of Select Marketing.
Our HANS LARSEN and GR leather gifts-sets and wallets are available all over the country at hundreds of prestigious brick and mortar outlets at maximum retail prices. For you, our new- economy customer, we have biased ourselves with special schemes. Total One - Visit Purchases of Rs. 750.00 and above = 5% discount on MRP Rs. 1500.00 and above = 8 % discount on MRP Rs. 2500.00 and above = 10% discount on MRP Rs. 5000.00 and above = 15% discount on MRP Rs. 10000.00 and above = 20% discount on MRP Lead time - 8 - 12 days.

For Buyers outside India

For Purchases of USD 100 and above = 5% discount on M.R.P., USD 200 and above = 8% discount on M.R.P., USD 300 and above = 10% discount on M.R.P., USD 400 and above = 15% discount on M.R.P., USD 500 and above = 20% discount on M.R.P. Lead time - 8 - 12 days.
Kindly note Minimum USD purchase to be of USD 50.00
<% response.write "

Click for TERMS & CONDITIONS" response.write "

View Unsent inquiry : " H = 0 For Each Item in Request.Cookies if Request.Cookies(Item)("ARP_Code") <> "" then H = H + 1 next response.write " "&H&" Unsent Inquiry" %>

<% for i=1 to 5 response.write " " next productdisplay r2.close set r2=nothing db.close set db=nothing keywordform "Product" response.write "" %> <% Sub productdisplay if r2.recordcount=0 then response.write "

" response.write "Sorry, no products to display" exit sub end if dim j r2.pagesize=1 r2.cachesize=1 pages=r2.pagecount count=r2.recordcount if request.querystring("currpage")="" then currpage=1 if request.form("currpage")="" then currpage=1 else currpage=int(request.form("currpage")) end if else currpage=int(request.querystring("currpage")) end if r2.absolutepage=currpage start=r2.absoluteposition if currpage=pages then finish=r2.recordcount else finish=start+r2.pagesize-1 end if response.write "

" response.write "" response.write "" response.write "
" response.write "
Search Result: Products "&start&" to "&finish&" of "&count&"
Click on Products Photograph to view Product Details
" response.write "
" response.write "
To Purchase a product, select the corresponding checkbox of Colours and click to Add for Inquiry or Order Button
" dim Min , T T = 0 for i=start to finish response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
Product
Colours
Select To
Order
Qty.
Price
INR.
Price
US$
" response.write "" 'response.write "
" response.write "" response.write "" response.write r2("P_Name")&"" response.write "" response.write "
" response.write "" response.write "
" S2="select * from Colour where P_Code="&r2("P_Code") set r3=server.createobject("adodb.recordset") r3.open S2, db, 3 j = 1 For Each Item in Request.Cookies if Request.Cookies(Item)("ARP_Code") <> "" then T = Request.Cookies(Item)("ARTotal") + T Mode = Request.Cookies(Item)("ARMode") end if next if r3.recordcount <> 0 then do while not r3.eof response.write "" response.write "" response.write "" else response.write "" response.write "•  "&r3("Colour")&"" response.write "" response.write "" end if response.write "" response.write "" r3.movenext j = j + 1 loop else response.write "No Color Available" end if r3.close response.write "
" dim ADD ADD = true For Each Item in Request.Cookies if Request.Cookies(Item)("ARP_Code") <> "" then if Request.Cookies(Item)("ARColor") = r3("Colour") and int(Request.Cookies(Item)("ARP_Code")) = r2("P_Code") then ADD = False Min = Request.Cookies(Item)("ARMin") ' exit For end if end if next if ADD = False then response.write "" response.write "•  "&r3("Colour")&"
" response.write "
" response.write "" response.write "
" response.write "
" response.write "" response.write "
"&r2("RetailPrice")&"
"&r2("Prise_D")&"
" r2.movenext next response.write "
" response.write "
" response.write "Gross Amount:" if T <> 0 then if Mode = "1" then response.write "
" else X = len(formatcurrency(T,2)) response.write "
" end if else response.write "" end if response.write "" response.write "
" response.write "
Payment Mode :" response.write "INR" if Mode = "1" then response.write "    US $" else response.write "    US $" end if response.write "" response.write "" response.write "" response.write "" response.write "   OR   " response.write "
" response.write "

" if currpage

" if currpage > 1 then response.write "" response.write "Previous" end if response.write "    " dim remainder remainder=count-finish response.write "" if remainder < 1 then response.write "Next "&remainder&" " else response.write "Next " end if pagewisedisplay pages, currpage elseif pages>1 then response.write "

" response.write "Previous" pagewisedisplay pages, currpage end if End Sub %> <% Sub pagewisedisplay(pages, currpage) response.write "

" response.write "Pages: " for i=1 to pages if i=currpage then response.write i&" " else if i = 25 or i = 50 then response.write "
"&i&" " else response.write ""&i&" " end if end if next End Sub %> <% Sub keywordform(key) response.write "

" response.write "KEYWORD SEARCH" if key="Product" then response.write "
Type in the name of the Product" response.write " that you are searching for: " response.write "

" end if response.write "" response.write "" response.write "" response.write "
" End Sub %>