| Server IP : 103.6.199.200 / Your IP : 3.146.206.246 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>Memo Setup</title>
<BODY>
<%
docName = "memoList"
%>
<!--#include file="../inc/checklogin.inc"-->
<!--#include file="../inc/connection.inc"-->
<%
vbranchCode = "M" & vBranch
Dim dataAction
dataAction = Request.Form ("dataAction")
If dataAction = "Del" Then
Dim delRec, i, sql, arrDel
strSrcName = "D:\Websites\DemoAGL\Web\Current\Adb2023Nov8.mdb"
strDstName = "D:\Websites\DemoAGL\Web\Current\Adb.mdb"
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 [Memo Code] from Log " &_
"Where mid(reportNo, 1, 3) = '" & vbranchCode & "' And " &_
"[Status] = '" & Status & "' order by ID desc"
myDataGrid.Conn = connectionString
myDataGrid.RowColor1 = "#ffffff"
myDataGrid.RowColor2 = "lightblue"
myDataGrid.Mode = "Edit"
myDataGrid.ProcessPage = "memoNew.asp"
myDataGrid.EditPage = "memoUpdate.asp"
myDataGrid.Title = "Memo Setup"
myDataGrid.RSName = "Grid"
myDataGrid.FindFields = Array("Report No")
myDataGrid.ShowDataGrid
Set myDataGrid = Nothing
%>