<%
Response.Buffer = true

vCertNo = Request.QueryString("certno")

Response.ContentType = "application/json"

vSuccess = 0

If Trim(vCertNo) <> "" then
	If LEFT(vCertNo, 1) = "C" then vFolderName = "imagesCert"
	If LEFT(vCertNo, 1) = "M" then vFolderName = "imagesMemo"
%>
	<!--#include file="../inc/connection.inc"-->
	<!--#include file="../inc/dbOpen.inc"-->
<%
	Set rs = server.CreateObject ("ADODB.Recordset")
	sql = "Select item, weight, color, shape, clarity, origin, measurement, remarks, dateCreate from log where reportNo = '" & vCertNo &"'"

	rs.Open sql,db, adOpenStatic,adLockReadOnly
	If not rs.eof then
		vItem = rs("item")
		vWeight = rs("weight")
		vColor = rs("color")
		vShape = rs("shape")
		vClarity = rs("clarity")

		vOrigin = rs("origin")
		vMeasurement = rs("measurement")

		vRemarks = rs("remarks")
		vDateCreate = rs("dateCreate")

		dim Filesys
		Set Filesys = CreateObject("Scripting.FileSystemObject") 

		vMemoStoneFile = Server.MapPath ("/upload/" & vFolderName &"/" & replace(vCertNo, "/", "-") &".jpg")

		If Filesys.FileExists(vMemoStoneFile) then vImage ="./upload/" & vFolderName & "/" & replace(vCertNo, "/", "-") &".jpg" else vImage = ""

		vSuccess = 1
	end if
	rs.Close
%>
	<!--#include file="../inc/dbClose.inc"-->
<%
end if

Response.Write("{ ""token"": """&vSuccess&""", ""certno"": """&vCertNo&""", ""item"": """&vItem&""", ""weight"": """&vWeight&""", ""color"": """&vColor&""", ""shape"": """&vShape&""", ""clarity"": """&vClarity&""", ""origin"": """&vOrigin&""", ""measurement"": """&vMeasurement&""", ""remarks"": """&vRemarks&""", ""dateCreate"": """&vDateCreate&""", ""image"": """&vImage&""" }")
%>