<%Option Explicit dim img, i, j, FO, fname, fpath, kind, bg img = request.querystring("img") kind = request.querystring("kind") bg = request.querystring("bg") if bg = "" then bg = "ffffff" if img="" then img = 1 set FO= Server.CreateObject("Scripting.FileSystemObject") if img="" then img = 1 fpath = FO.GetParentFolderName(Request.ServerVariables.Item("PATH_TRANSLATED")) & "/" dim sk sk = 0 if kind = "onyx" then sk=100 if kind = "marble" then sk=200 if kind = "travertine" then sk=300 if kind = "fireplace" then sk=400 dim name(500) name(1)="Pink-Zanjan (FG-01)" name(2)="Green-Piranshahr-A (FG-02)" name(3)="Snake-Skin (FG-03)" name(4)="Black-Orumieh (FG-04)" name(5)="Cream-Orumieh (FG-05)" name(6)="White-Natanz (FG-06)" name(7)="Black-Chayan (FG-07)" name(8)="Ekbatan (FG-08)" name(9)="Green-Piranshahr-B (FG-09)" name(10)="Green-Zanjan (FG-10)" name(11)="Green-Piranshahr-C (FG-11)" name(12)="Beige-Zanjan (FG-12)" name(13)="Horand (FG-13)" name(14)="Chocolate-Zanjan (FG-14)" name(15)="Red-Yazd (FG-15)" name(16)="Persian black granite (FG-16)" name(101)="Green onyx F (FO-01)" name(102)="White onyx (FO-02)" name(103)="Orang onyx (FO-03)" name(104)="Pink onyx (FO-04)" name(105)="Green Onyx F2 (FO-05)" name(106)="Brown Onyx (FO-06)" name(107)="" name(108)="" name(109)="" name(201)="Persian red (FM-01)" name(202)="Botticino Sa (FM-02)" name(203)="Golden Classic (FM-03)" name(204)="Tulip Botticino (FM-04)" name(205)="Pink Sara (FM-05)" name(206)="Damascata (FM-06)" name(207)="Tea Rose (FM-07)" name(208)="Antique Green (FM-08)" name(209)="Pink Kerman (FM-09)" name(210)="Spring Yellow (FM-10)" name(211)="Light Filetto Rosso (FM-11)" name(212)="Red Fossil (FM-12)" name(213)="Spring Rose (FM-13)" name(214)="Dark Filetto Rosso (FM-14)" name(215)="Black Type m (FM-15)" name(216)="Beige Limestone  (Gohara) (FM-16)" name(217)="Dotted Ivory (FM-17)" name(218)="Pink Desert (FM-18)" name(219)="N.S Perlato (FM-19)" name(220)="Red Kish (FM-20)" name(221)="Botticino (FM-21)" name(222)="Persian Perlato (FM-22)" name(223)="Black Marquina (FM-23)" name(224)="Red Ropaz (FM-24)" name(225)="Dream on Pink" name(226)="" name(301)="Caspian (FT-01)" name(302)="Red travertine (FT-02)" name(303)="Light Beige travertine (FT-03)" name(304)="Dark Beige travertine (FT-04)" name(305)="Yellow travertine azarshahr a (FT-11)" name(306)="Red travertine (Type B) (FT-06)" name(307)="Rosa travertine (FT-07)" name(308)="Rosso travertine (FT-08)" name(309)="Brown travertine (FT-09)" name(310)="Beige travertine (FT-10)" name(311)="Yellow travertine azarshahr b (FT-05)" name(312)="White travertine (FT-12)" name(313)="Brown Azarshahr (FT-13)" name(314)="Gray travertine (FT-14)" name(315)="" name(316)="" name(317)="Light Cream Travertine (FT-17)" name(401)="Miconose" name(402)="Elegant Venus" name(403)="Palace" name(404)="Mars 1" name(405)="Mars 2" name(406)="Regency Rybun" name(407)="Vitorian Corbel" name(408)="Regency Randel" name(409)="Luise Shell" name(410)="Pompadour" name(411)="Apolon" name(412)="Buckingham" name(413)="Carved" name(414)="Diana" name(415)="" %> Large view

Home

|

Stone Map

|

Iran

|

General Info

|

Contact FRS

 

<%=kind%> gallery

<%=name(sk + img)%>

<%if FO.FileExists(fpath & "images/stones/"& kind &"/" & img-1 & ".jpg") then %> <%else%> <%end if%> <%if kind="travertine" then%> B A C K <%end if%> <%if kind="marble" then%> B A C K <%end if%> <%if kind="onyx" then%> B A C K <%end if%> <%if FO.FileExists(fpath & "images/stones/"& kind &"/" & img+1 & ".jpg") then %> <%else%> <%end if%>