%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--
<%
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 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
%>
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("
")
%>
<%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
%>
<%
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("
")
%>
<%
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
%>
<%
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
%>
<%
End If
RsImage.close
%>
<%
RsSub.Movenext
Loop
End If
RsSub.close
%>
<%
End If
Rs.Close
%>
<%Else%>
Coming Soon...
<%
End if
%>