<%Option Explicit%>
<%
'--- Define Variables ---
Dim Rs, strSql, intYear
Dim intMaxRow, intPage, intTotalPage, bitSelectAll, intPagePerOnce, i,c, intTotalRow
Dim intCategoryID, strClass, strCategorySubject
Dim strThumbImage, strRandom, intRandom, strSubject, bitNew, intNewNewsDate
Dim intCol, iCol, intRow, intTotalRow2
Dim strThumbNewsDefault, strDetail, dteNewsDate
Dim strFileSubject, strFilename, intID, intID2
Dim strClass1, strClass2, strClass3
'--- Receive Variables ---
intPage =Request.QueryString("page")
'--- Config Variables ---
Set Rs = Server.CreateObject("ADODB.RecordSet")
set RsSub = Server.CreateObject("ADODB.RecordSet")
intMaxRow = 10
intPagePerOnce = 5
intNewNewsDate = 3
intCol = 2
strThumbNewsDefault = "noPicture.jpg"
intPage = "all"
If (Isnull(intPage)) Or (intPage = "") Then
intPage = 1
End If
'=== File ===
Dim strFileIcon, strExten, strFileSize , strFilePath, fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
%>
:: Phatra Securities Public Company Limited ::
+
+
<%
Dim strReturePage
'---- find return page when swap language ------
strReturePage = Request.ServerVariables("PATH_INFO")
strReturePage = mid(strReturePage,instrrev(strReturePage,"/")+1)
'---- go to listing page instead of detail page
strReturePage = replace(strReturePage,"Detail","")
%>
Quickest Way to view Annual Report
For users with lower bandwidth (56k), the easiest and
quickest way to view Annual Report is to download them
onto your computer and then view them off-line.
To download and view off-line:
Right click the specific Annual Report and select "Save Target As.."
<%
'strSql = "SELECT * FROM TBL_NEWS AS N WHERE (N.BIT_ENABLE = TRUE) ORDER BY DTE_NEWS_DATE DESC, INT_NEWS_ID DESC"
'strSql = "SELECT N.STR_IMAGE_THUMB_FILENAME, N.STR_NEWS_SUBJECT, N.STR_NEWS_DETAIL, N.DTE_NEWS_DATE, F.STR_FILE_SUBJECT, F.STR_FILENAME FROM TBL_ANNUAL AS N INNER JOIN TBL_ANNUAL_FILE AS F ON N.INT_NEWS_ID = F.INT_NEWS_ID WHERE (N.BIT_ENABLE = 1) ORDER BY N.DTE_NEWS_DATE DESC, N.INT_NEWS_ID DESC"
'strSql = "SELECT TBL_ANNUAL.INT_NEWS_ID, TBL_ANNUAL.STR_IMAGE_THUMB_FILENAME, TBL_ANNUAL.STR_NEWS_SUBJECT, TBL_ANNUAL.STR_NEWS_DETAIL, TBL_ANNUAL.DTE_NEWS_DATE FROM TBL_ANNUAL inner JOIN TBL_ANNUAL_FILE ON TBL_ANNUAL.INT_NEWS_ID = TBL_ANNUAL_FILE.INT_NEWS_ID WHERE (TBL_ANNUAL.BIT_ENABLE = 1) ORDER BY TBL_ANNUAL.DTE_NEWS_DATE DESC, TBL_ANNUAL.INT_NEWS_ID DESC"
strSql = "SELECT TBL_ANNUAL.INT_NEWS_ID, TBL_ANNUAL.STR_NEWS_SUBJECT, TBL_ANNUAL.STR_NEWS_DETAIL, TBL_ANNUAL.DTE_NEWS_DATE FROM TBL_ANNUAL WHERE (TBL_ANNUAL.INT_NEWS_ID IN ( SELECT DISTINCT TBL_ANNUAL.INT_NEWS_ID FROM TBL_ANNUAL inner JOIN TBL_ANNUAL_FILE ON TBL_ANNUAL.INT_NEWS_ID = TBL_ANNUAL_FILE.INT_NEWS_ID WHERE (TBL_ANNUAL.BIT_ENABLE = 1) AND (INT_LANG = 1) ) ) ORDER BY TBL_ANNUAL.DTE_NEWS_DATE DESC, TBL_ANNUAL.INT_NEWS_ID DESC"
'strSql = "SELECT TBL_ANNUAL.INT_NEWS_ID, TBL_ANNUAL.STR_IMAGE_THUMB_FILENAME, TBL_ANNUAL.STR_NEWS_SUBJECT, TBL_ANNUAL.STR_NEWS_DETAIL, TBL_ANNUAL.DTE_NEWS_DATE FROM TBL_ANNUAL WHERE (TBL_ANNUAL.BIT_ENABLE = 1) ORDER BY TBL_ANNUAL.DTE_NEWS_DATE DESC, TBL_ANNUAL.INT_NEWS_ID DESC"
'response.Write(strSql)
Rs.Open strSql,conn,1,2
If Not Rs.Eof Then
'== if have data ===
'Dim c, intTotalRow
intTotalRow = Rs.RecordCount
Rs.PageSize= intMaxRow
If intPage = "all" Then
Rs.AbsolutePage = 1
intPage = 1
intMaxRow = Rs.RecordCount
bitSelectAll = true
Else
Rs.AbsolutePage = intPage
bitSelectAll = false
End If
intTotalPage = Rs.PageCount
c = 0
i = (( intPage - 1 ) * intMaxRow )+1
%>
Print
Restructuring Plan