| Server IP : 103.6.199.200 / Your IP : 18.224.59.107 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=..\inc\StandardStyle.css type=text/css rel=stylesheet></HEAD>
<title>Course Certificate Setup</title>
<BODY>
<%docName="courseCertNew"%>
<!--#include file="../inc/checklogin.inc"-->
<!--#include file="menu.asp" -->
<!--#include file="../inc/connection.inc"-->
<!--#include file="../inc/dbOpen.inc"-->
<HR><b><%'=vBranch%> Course Certificate Setup</B><HR>
<%
dataaction = Request.Form ("dataaction")
vTempTableName = Request.QueryString ("temptableName")
vbranchCode = "CER"
if dataaction ="Generate New Course Certificate ID" then%>
<%
'vbranchCode = delQuote(Request.Form ("branchCode"))
rgch = UCase("abcdefghjklmnpqrstuvwxyz")
if vbranchCode<>"" then
'existing record
set rs= server.CreateObject ("ADODB.recordset")
sql = "select * from sysParam where branch ='" & vBranchCode & "'"
rs.Open sql, db, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
vNew = vBranchCode
vNew = vNew & rs("code") & "/"
vRunning = cstr(rs("runningNo") + 1)
vNew = vNew & string(5 - Len(vRunning), "0") & vRunning
vNew = vNew & "/"
Randomize
vNew = vNew & Int(Rnd * 10)
vNew = vNew & Mid(rgch, Int(Rnd() * Len(rgch) + 1), 1)
vNew = vNew & Int(Rnd * 10)
vNew = vNew & Int(Rnd * 10)
sql = "Insert into cert (certNo, dateCreate) values ('" & vNew &"','" & dateAdd("h",0,now) & "')"
db.execute sql
sql = "Update sysParam set runningNo='" & vRunning &"', timeUpdate='" & dateAdd("h",0,now) & "' where branch='CER' and code='A'"
db.execute sql
Response.Write "<font color=red>Enter Sucessfully.</font><BR>"
end if
end if
end if
%>
<center>
<form action=courseCertNew.asp name=f method=post onSubmit="return checkRequiredField(this)">
<TABLE cellSpacing=0 cellPadding=0 width="70%" border=0>
<TR><TD width=30%>* <%'=vBranch%> New Course Cert ID</TD><TD>:</TD><TD><input name=memoCode maxlength=50 value="<%=vNew%>" tabindex=1>
<input type=submit value="Generate New Course Certificate ID" name=dataAction tabindex=2>
</TD></TR>
<tr><td colspan=3><BR> <BR> Latest Course Certificate List</TD></TR>
<%
'existing record
set rs= server.CreateObject ("ADODB.recordset")
sql = "select top 15 * from cert where mid(certNo,1,3) ='" & vBranchCode & "' order by ID desc"
rs.Open sql, db, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
do while not rs.eof
Response.write "<tr>"
Response.write "<td>" & formatdatetime(rs("dateCreate"),0) &"</td>"
Response.write "<td colspan=2>" & rs("certNo") &"</td></tr>"
rs.MoveNext
loop
end if
set rs=nothing
If Response.IsClientConnected() Then
Response.Flush()
End If
%>
</TABLE>
</form>
</center>
<!--#include file="../inc/dbClose.inc"-->
<SCRIPT language=javascript>
<!--
function checkRequiredField(){
if (f.catCode.value==""){
alert("Required field!");
f.catCode.focus();
return false;
}
return true;
}
function validateData() {
return true;
}
-->
</SCRIPT>
</body>
</HTML>