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 intSolutionsID, strClass, strSubject, strDetail, dteSolutions, intCategoryID, strCond, strColor Dim strLargeImage, strContentSubject, strContentDetail, dteContentSolutions 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") Set RsImage = Server.CreateObject("ADODB.RecordSet") intSolutionsID=request("solutionsID") If ( IsNULL(intSolutionsID)) Or (intSolutionsID = "") Then strSql="select Top 1 * from TBL_SOLUTIONS WHERE (BIT_ENABLE = TRUE) Order by DTE_SOLUTIONS_DATE ASC,INT_SOLUTIONS_ID ASC" Rs.Open strSql,connMain,1,3 if not Rs.eof then intSolutionsID=Rs("INT_SOLUTIONS_ID") else intSolutionsID=0 end if Rs.Close End If %> Elite Training Institute :: --Lift up Your Standard--


	Sitemap

<%Call genEnewsBox%>


Contact Us

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


	•	" <%if Cint(intSolutionsID) = Rs("INT_SOLUTIONS_ID") then%>class="Red2RedMenuO"<%Else%>class="Red2RedMenu"<%End if%>><%=Rs("STR_SOLUTIONS_SUBJECT")%>

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

<%Call genSearchAndStyleBox%>

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

<%=Rs("STR_SOLUTIONS_SUBJECT")%>

<% strSqlSub = "SELECT * FROM TBL_SOLUTIONS_FILE WHERE INT_SOLUTIONS_ID = "&intSolutionsID&"" 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_SOLUTIONS_DETAIL WHERE INT_SOLUTIONS_ID = "&intSolutionsID&" order by INT_ORDER ASC, INT_SOLUTIONS_ID DESC" RsSub.Open strSqlSub, connMain, 1, 3 If Not RsSub.Eof Then Do while not RsSub.eof %>


	<%=RsSub("STR_SOLUTIONS_DETAIL_PAGE")%>

<% strSqlImage = "SELECT * FROM TBL_SOLUTIONS_IMAGE WHERE INT_SOLUTIONS_ID = "&intSolutionsID&" AND INT_SOLUTIONS_DETAIL_ID = "&RsSub("INT_SOLUTIONS_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-6