| Server IP : 103.6.199.200 / Your IP : 3.149.251.26 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/lab/ |
Upload File : |
<%Response.Buffer =true%>
<HTML>
<HEAD><Link href="..\css\Style.css" type="text/css" rel="stylesheet"></HEAD>
<title>Certificate Setup</title>
<BODY>
<%
docName="certList"
%>
<!--#include file="../inc/checklogin.inc"-->
<!--#include file="../inc/connection.inc"-->
<%
Dim dataAction
dataAction = Request.Form ("dataAction")
If dataAction = "Del" Then
Dim delRec, i, sql, arrDel
delRec = Request.Form ("delRec")
%>
<!--#include file="../inc/dbOpen.inc"-->
<%
arrDel = split(delRec, ",")
For i = 0 To ubound(arrDel)
sql = "Update Log Set Status = 'N' where ID = " & trim(arrDel(i))
db.execute (sql)
Next
%>
<!--#include file="../inc/dbClose.inc"--><%
End If
%>
<!-- #include file="menu.asp" -->
<!-- #include file="../inc/DataGridClass.asp" -->
<%
'session.Abandon
Dim myDataGrid
Set myDataGrid = New clsDataGrid
Status = "Y"
myDataGrid.SQL = "Select ID, left(reportNo, 10) as [Report No], item as [Item], " &_
"dateCreate as [Date], reportNo as [Cert Code] from Log " &_
"where mid(reportNo, 1, 3) = 'CKL' And " &_
"[Status] = '" & Status & "' order by ID desc"
myDataGrid.Conn = connectionString
myDataGrid.RowColor1 = "#ffffff"
myDataGrid.RowColor2 = "lightblue"
myDataGrid.Mode = "Edit"
myDataGrid.ProcessPage = "certNew.asp"
myDataGrid.EditPage = "certUpdate.asp"
myDataGrid.Title = "Certificate Setup"
myDataGrid.RSName = "Grid"
myDataGrid.FindFields = Array("Report No")
myDataGrid.ShowDataGrid
Set myDataGrid = Nothing
%>