<%response.buffer = true%>
<%
response.buffer = true
'const pagesize=10
if request("pageno")<>"" and isnumeric(request("pageno")) then pageno=cint(request("pageno")) else pageno=1
%>
Siam Winery Company Limited.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&application("SW_DBPath_en")&"; Jet OLEDB:DataBase Password="&DBpwd
Sql="Select * from press where lang = 'en' and fg_show=true order by news_id desc"
' Sql="Select news_id, fg_show, title, content, post_date, modify_date, lang, pic1, pic from news where lang = 'en' order by post_date desc"
' response.write(sql)
Set rs =Server.CreateObject("ADODB.Recordset")
rs.open Sql,Conn,1,3,&H0001
'total=rs.Recordcount
'if total>0 then
' totalpage=total\pagesize
' if (total mod pagesize) <> 0 then totalpage= totalpage+1
' if pageno>totalpage then pageno=totalpage
' rs.Move pagesize*(pageno-1)
'end if
%>
<%if not rs.eof then%>
<%do while not rs.eof%>
