Server IP : 103.6.199.200 / Your IP : 18.225.56.78 Web Server : Microsoft-IIS/10.0 System : Windows NT EMPUSA 10.0 build 20348 (Windows Server 2016) i586 User : EMPUSA$ ( 0) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Domains/asiageml/asiagemlab.com/wwwroot/OldWebsite_V1/ |
Upload File : |
<!DOCTYPE html> <html lang="en"> <head> <meta charset="utf-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <meta name="description" content=""> <meta name="author" content=""> <title>AGL - Asia Gemological Laboratory</title> <link href="css/bootstrap.min.css" rel="stylesheet"> <link href="css/font-awesome.min.css" rel="stylesheet"> <link href="css/animate.min.css" rel="stylesheet"> <link href="css/lightbox.css" rel="stylesheet"> <link href="css/main.css" rel="stylesheet"> <link href="css/responsive.css" rel="stylesheet"> <!--[if lt IE 9]> <script src="js/html5shiv.js"></script> <script src="js/respond.min.js"></script> <![endif]--> <link rel="shortcut icon" href="images/ico/favicon.ico"> <link rel="apple-touch-icon-precomposed" sizes="144x144" href="images/ico/apple-touch-icon-144-precomposed.png"> <link rel="apple-touch-icon-precomposed" sizes="114x114" href="images/ico/apple-touch-icon-114-precomposed.png"> <link rel="apple-touch-icon-precomposed" sizes="72x72" href="images/ico/apple-touch-icon-72-precomposed.png"> <link rel="apple-touch-icon-precomposed" href="images/ico/apple-touch-icon-57-precomposed.png"> </head> <!--/head--> <body> <!--#include file="menuMain.asp" --> <!--/#header--> <!-- Main Content --> <Center> <% uNo = delQuote(Request.Form ("uNo")) 'upass = delQuote(Request.Form ("upass")) dataaction = Request.Form ("dataaction") repID = Request.QueryString ("repID") if repID<>"" or dataaction="Enter" then %> <!--#include file="inc/connection.inc"--> <!--#include file="inc/dbOpen.inc"--> <% if repID<>"" then uNo = repID set rs = server.CreateObject ("ADODB.Recordset") sql = "Select item,weight,color, shape, clarity, origin, measurement, remarks, dateCreate from log where reportNo='" & uNo &"'" 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") Response.Write "<Table> <TR><TD width='30%'>Report No: </TD><TD><font color=blue> " & uNo &"</TD></TR>" Response.Write " <TR><TD>Date: </TD><TD> <font color=blue>" & formatdatetime(vDateCreate, 1) &"</TD></TR>" if vItem="" then Response.Write " <TR><TD colspan=2>This report will be updated soon.</TD></TR>" else '*********** display stone pictures ************** dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") vFolderName = LEFT(uNo,1) if LEFT(uNo,1)="C" then vFolderName = "imagesCert" if LEFT(uNo,1)="M" then vFolderName = "imagesMemo" vMemoStoneFile = Server.MapPath ("/upload/" & vFolderName &"/" & replace(uNo,"/","-") &".jpg") If filesys.FileExists(vMemoStoneFile) Then 'Response.Write("File location: " & vQRCodeFile) Response.write "<TR><TD colspan=2 align=center><img src='/upload/" & vFolderName & "/" & replace(uNo,"/","-") &".jpg' width=250></TD></TR>" else 'Response.write "<img src='/upload/imagesCert/NA.jpg'>" End If Response.Write " <TR><TD>Identity: </TD><TD> <font color=blue>" & vItem &"</TD></TR>" end if Response.Write " <TR><TD>Color: </TD><TD> <font color=blue>" & vColor &"</TD></TR>" Response.Write " <TR><TD>Shape & Cut: </TD><TD> <font color=blue>" & vShape &"</TD></TR>" if vWeight <>"" then Response.Write " <TR><TD>Weight: </TD><TD> <font color=blue>" & vWeight &"</TD></TR>" if vClarity <>"" then Response.Write " <TR><TD>Clarity: </TD><TD> <font color=blue>" & vClarity &"</TD></TR>" Response.Write " <TR><TD>Measurement: </TD><TD> <font color=blue>" & vMeasurement &"</TD></TR>" if vOrigin<>"" then Response.Write " <TR><TD>Origin: </TD><TD> <font color=blue>" & vOrigin &"</TD></TR>" Response.Write " <TR><TD>Comments: </TD><TD> <font color=blue>" & vRemarks &"</TD></TR>" Response.Write "</Table>" else %> <span> The validity of the corresponding report cannot be confirmed. Possible reasons include the following: <BR> i) invalid AGL Report No <br> ii) the report is outdated, old format, <br> iii) the Online Report Verification database contains only the data for reports issued after 2017, and does not include memo. </span> <BR><BR> <% end if rs.Close set rs=nothing %><!--#include file="inc/dbClose.inc"--><% end if %> <BR> <center> <form action=verification.asp name=f method=post> <TABLE cellSpacing=0 cellPadding=5 width="50%" border=1 borderColor=RED> <TR><TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <% if msg=1 then Response.Write "<TR><TD colspan=3>Invalid password.</TD></TR>" if msg=2 then Response.Write "<TR><TD colspan=3>No User Right!</TD></TR>" %> <TR><TD colspan=3 ALIGN=CENTER><b>AGL Report Verification</B></TD></TR> <TR><TD>Report No</TD><TD>:</TD><TD><input name=uNo value="<%=repID%>"></TD></TR> <TR><TD colspan=3 align=right>Sample: CPGA/00000/2A01 <BR><input type=submit value="Enter" name=dataAction></TD></TR> </TABLE> </TD></TR> </TABLE> </form> </center> <BR><BR><BR> <!-- End Main Content --> <footer id="footer"> <div class="container"> <div class="row"> <div class="col-sm-12 text-center bottom-separator"> <img src="images/home/under01.png" class="img-responsive inline" alt=""> </div> <div class="col-sm-12"> <div class="copyright-text text-center"> <p>Asia Gemological Laboratory 2016. All Rights Reserved.</p> </div> </div> </div> </div> </footer> <!--/#footer--> <script type="text/javascript" src="js/jquery.js"></script> <script type="text/javascript" src="js/bootstrap.min.js"></script> <script type="text/javascript" src="http://maps.google.com/maps/api/js?sensor=true"></script> <script type="text/javascript" src="js/gmaps.js"></script> <script type="text/javascript" src="js/wow.min.js"></script> <script type="text/javascript" src="js/main.js"></script> </body> </html>