<%Option Explicit%>
<%
'--- Declare Variables ---
Dim Rs, RsSub, strSql, sql, sql1, Num, strText, intYear, strSqlSub, strCategoryName, strSqlImage, RsImage
Dim intMaxRow, intPage, intTotalPage, bitSelectAll, intPagePerOnce, i, c
Dim intCorporateID, strClass, strSubject, strDetail, dteCorporate, intCategoryID, strCond, strColor
Dim strLargeImage, strContentSubject, strContentDetail, dteContentCorporate
Dim strThumbDefault, strThumbImage
Dim intCount, bitRegister, strLatest
Dim strImage, objFSO, f1, w, h, g, strType
Set Rs = Server.CreateObject("ADODB.RecordSet")
Set RsSub = Server.CreateObject("ADODB.RecordSet")
%>
Elite Training Institute :: --Lift up Your Standard--
