<%@ Language=VBScript %>Silver Ottoman Wholesale
 EVIL EYES DOWNLOAD SECTION - 49 pages catalog
What just download the catalog pages which interests you?
This way you can just analyse the catalog items on your computer or with just a print-out without a need for internet connection. 

PLEASE CALL MIKE FOR MORE INFO ABOUT MANUFACTURING AND WHOLESALE DETAILS AT

(917) 865 7658

URETIM VE TOPTAN SATIS ICIN (917) 865 7658 NO LU TELEFONDAN MUHITTIN BEY DEN DETAYLI BILGI ALABILIRSINIZ.

NEW CATALOG (49 SEPERATE PAGES)
PAGE1
PAGE2
PAGE3
PAGE4
PAGE5
PAGE6
PAGE7
PAGE8
PAGE9
PAGE10
PAGE11
PAGE12
PAGE13
PAGE14
PAGE15
PAGE16
PAGE17
PAGE18
PAGE19
PAGE20
PAGE21
PAGE22
PAGE23
PAGE24
PAGE25
PAGE26
PAGE27
PAGE28
PAGE29
PAGE30
PAGE31
PAGE32
PAGE33
PAGE34
PAGE35
PAGE36
PAGE37
PAGE38
PAGE39
PAGE40
PAGE41
PAGE42
PAGE43
PAGE44
PAGE45
PAGE46
PAGE47
PAGE48
PAGE49
   

  <% srch=request("srch") srchsel=request("srchsel") if srch <> "" then Select Case srchsel Case "cnumber" fndtext= "[COD] LIKE '" Case "desc" fndtext= "[ACIKLAMA] LIKE '" End Select adOpenStatic=3 adLockReadOnly=1 adCmdText=1 adSearchForward = 1 count = 0 Set rs= server.CreateObject("Adodb.Recordset") Set conn = server.CreateObject("ADODB.Connection") connstr= "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DBQ=" & server.MapPath("siparis.xls") & ";Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"";User Id=admin;" conn.Open connstr rs.Open "SELECT * FROM products", conn, _ adOpenStatic, adLockReadOnly, adCmdText rs.Find fndtext & srch & "%'" Do While rs.EOF <> True 'Continue if last find succeeded. Response.Write "" count = count + 1 mark = rs.Bookmark rs.Find fndtext & srch & "%'", 1, adSearchForward, mark Loop rs.Close conn.Close if count = 0 then Response.Write "" end if Response.Write "
 " Response.Write "" Response.Write "" & rs("COD") & " " & rs("ACIKLAMA") & "
" Response.Write "
 " Response.Write "Sorry, but your query did not return any hits." Response.Write "
" Set rs = Nothing Set conn = Nothing end if %>