<% response.buffer = true %> Regal Imports Ltd. - Home
<% ua = Request.ServerVariables("HTTP_USER_AGENT") i = instr(ua,"MSIE") j = instr(ua,"Chrome") k = instr(ua,"Firefox") if i>0 then browser = "IE" if j>0 then browser = "Chrome" if k>0 then browser="Firefox" %>


Only Properly Graded Diamonds






  ·  NEW ITEMS  · 



<% Dim vfile, vfname, vfextn, nid, xfile, min, max, cid, yfile path = Server.MapPath("latestnews.txt") Set fs = Server.CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(path) newsdate = f.readline vfile = f.readline yfile = f.readline yfile = "http://youtu.be/" & yfile vfname = left(vfile, 8) vfextn = right(vfile,4) f.Close Set f=Nothing Set fs=Nothing %>

<% if browser<>"IE" then response.write "


" end if %>  ·  DIAMOND PRICES  · 

 HISTORY   ·   NEWS   ·   CANADIAN DIAMOND   ·   QUESTIONS & ANSWERS   ·   CONTACT   



Follow us on Twitter   Join us on LinkedIn