Elite Training Institute :: --Lift up Your Standard--

<%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, intNum Set Rs = Server.CreateObject("ADODB.RecordSet") Set RsSub = Server.CreateObject("ADODB.RecordSet") Set RsImage = Server.CreateObject("ADODB.RecordSet") intCorporateID=request("corporateID") If ( IsNULL(intCorporateID)) Or (intCorporateID = "") Then strSql="select Top 1 * from TBL_CORPORATE WHERE (BIT_ENABLE = TRUE) Order by DTE_CORPORATE_DATE ASC,INT_CORPORATE_ID ASC" Rs.Open strSql,connMain,1,3 if not Rs.eof then intCorporateID=Rs("INT_CORPORATE_ID") else intCorporateID=0 end if Rs.Close End If %> Elite Training Institute :: --Lift up Your Standard--


	Sitemap

<%Call genEnewsBox%>


Contact Us

<% strSql="select * from TBL_CORPORATE WHERE (BIT_ENABLE = TRUE) Order by DTE_CORPORATE_DATE ASC,INT_CORPORATE_ID ASC" Rs.Open strSql,connMain,1,3 If Not Rs.Eof Then do while not Rs.eof %>


	•	" <%if Cint(intCorporateID) = Rs("INT_CORPORATE_ID") then%>class="Red2RedMenuO"<%Else%>class="Red2RedMenu"<%End if%>><%=Rs("STR_CORPORATE_SUBJECT")%>

<% Rs.Movenext Loop %> <% End if Rs.Close %>

<%Call genSearchAndStyleBox%>

<%if intCorporateID <> "" and intCorporateID <> 0 then%> <% strSql="SELECT * FROM TBL_CORPORATE WHERE INT_CORPORATE_ID = "&intCorporateID&"" Rs.Open strSql,connMain,1,3 if not Rs.eof then %>

<%=Rs("STR_CORPORATE_SUBJECT")%>

<% strSqlSub = "SELECT * FROM TBL_CORPORATE_FILE WHERE INT_CORPORATE_ID = "&intCorporateID&"" RsSub.Open strSqlSub, connMain, 1, 3 If Not RsSub.Eof Then %> ") %> <%if i <> 1 then%> l <%End if%>

<%=RsSub("STR_FILE_SUBJECT")%> <% End If RsSub.MoveNext If (i MOD 3)=0 then Response.Write "

" i=0 End If loop Set fso = Nothing %>

Attachment

<% Dim strFileIcon, strExten, strFileSize , strFilename, strFilePath, fso Set fso = CreateObject("Scripting.FileSystemObject") i=0 do while not RsSub.eof strFilename = RsSub("STR_FILENAME") strFilePath = server.MapPath("download/" & strFilename) If ( fso.FileExists(strFilePath) ) Then strFileName = fso.GetFileName(strFilePath) Set f1 = fso.GetFile(strFilePath) strFileSize = FormatNumber(f1.Size/1024,-1,-1,-1) & " Kb." strFileIcon = getFileIcon(strFilePath) Set f1 = Nothing i = i + 1 ' If i MOD 2 = 1 Then Response.Write("

<% End If RsSub.close %> <% strSqlSub = "SELECT * FROM TBL_CORPORATE_DETAIL WHERE INT_CORPORATE_ID = "&intCorporateID&" order by INT_ORDER ASC, INT_CORPORATE_ID DESC" RsSub.Open strSqlSub, connMain, 1, 3 If Not RsSub.Eof Then intNum = 0 Do while not RsSub.eof intNum = intNum + 1 %> <%if RsSub("STR_CORPORATE_DETAIL_PAGE") <> "" then%> <%End if%> <%if RsSub("STR_CORPORATE_DETAIL_PAGE_TH") <> "" then%> <%End if%>

	<%if RsSub("STR_CORPORATE_DETAIL_PAGE_TH") <> "" then%><%if RsSub("STR_CORPORATE_DETAIL_PAGE") <> "" then%><%if intNum <> 1 then%> <%End if%><%End if%><%Else%><%End if%>
	<%=RsSub("STR_CORPORATE_DETAIL_PAGE")%>

	<%=RsSub("STR_CORPORATE_DETAIL_PAGE_TH")%>

<% strSqlImage = "SELECT * FROM TBL_CORPORATE_IMAGE WHERE INT_CORPORATE_ID = "&intCorporateID&" AND INT_CORPORATE_DETAIL_ID = "&RsSub("INT_CORPORATE_DETAIL_ID")&"" RsImage.Open strSqlImage, connMain, 1, 3 If Not RsImage.Eof Then intCount = RsImage.Recordcount c=0 %> <% do while not RsImage.eof c = c + 1 If c MOD 2 = 1 Then Response.Write("") %> <% RsImage.Movenext if intCount=c Then if (c MOD 2)=1 then Response.Write( "") End If End if If (c MOD 2)=0 then if intCount=c Then Response.Write "" Else Response.Write "" End if End If loop %>


<% if RsImage("STR_IMAGE_THUMB_FILENAME") <> "" and RsImage("STR_IMAGE_THUMB_FILENAME") <> "0" then Set objFSO = CreateObject("Scripting.FileSystemObject") Set f1 = objFSO.GetFile(Server.Mappath("imgUpload/"&RsImage("STR_IMAGE_THUMB_FILENAME")&"")) if gfxSpex(f1.Path, w, h, g, strType) = true then if (w <= 200) then strImage="" else strImage="" end if end if End if %> <%if RsImage("STR_IMAGE_LARGE_FILENAME") <>"" and RsImage("STR_IMAGE_LARGE_FILENAME") <> "0" then%> <% Set objFSO = CreateObject("Scripting.FileSystemObject") Set f1 = objFSO.GetFile(Server.Mappath("imgUpload/"&RsImage("STR_IMAGE_LARGE_FILENAME")&"")) if gfxSpex(f1.Path, w, h, g, strType) = true then %> ','Popup','width=<%=w+25%>,height=<%=h+45%>')"><%=strImage%> <% end if set f1 = nothing set objFSO = nothing Else %> <%=strImage%> <% End if %>

<% End If RsImage.close %> <% RsSub.Movenext Loop End If RsSub.close %>

<% End If Rs.Close %> <%Else%> Coming Soon... <% End if %>


	© Elite Training Institute 2002 - 2006 Elite Training Institute 2nd Floor Kongboonma Bldg., 699 Silom Rd., Bangrak, Bangkok 10500, Tel.02 635 3356-61