<% CONN_STRING = "DBQ=" & Server.MapPath("..\DB\News.mdb") & ";" CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};" Set Newsconn = Server.CreateObject("ADODB.Connection") Newsconn.Open CONN_STRING '===open record of general News====== strSQL = "select * from Bulletin order by VolumeID desc;" Set Bulletin_RS = Server.CreateObject("ADODB.Recordset") Bulletin_RS.Open strSQL, Newsconn , adOpenStatic, adLockReadOnly, adCmdText '===open record of gallery====== '===vDept = Request("Dept") vDept = 1 DeptTxt = " And Dept=" & vDept & " order by ImageID desc" ImageSQL = "select * from gallery where show=yes " & DeptTxt Set Image_RS = Server.CreateObject("ADODB.Recordset") Image_RS.Open ImageSQL , Newsconn , adOpenStatic, adLockReadOnly, adCmdText %> ʶҹԨ»طʧ л Էɵʵ

Language

 

 

 

<% RowId=0 TotalVolumn = Bulletin_RS.RecordCount if Not Bulletin_RS.EOF then Do While (Not Bulletin_RS.EOF) and (RowID<3) RowID = RowID+1 %> <% '===open record of DETAIL ====== DetailSQL = "select * from Bulletin_Detail where VolumeID=" & Bulletin_RS("VolumeID") Set Detail_RS = Server.CreateObject("ADODB.Recordset") Detail_RS.Open DetailSQL, Newsconn , adOpenStatic, adLockReadOnly, adCmdText if Not Detail_RS.EOF then Do While (Not Detail_RS.EOF) %> <%Detail_RS.MoveNext%> <%Loop%> <%end if%> <%Bulletin_RS.MoveNext%> <%Loop%> <%if RowID < TotalVolumn then %> <% end if %> <%end if%>
 
Kasetsart University Fisheries Research Bulletin is a peer-reviewed journal of Faculty of Fisheries, Kasetsart University which publishes original research articles, short communication or invited reviews article on Fisheries Science and related topics. Kasetsart University Fisheries Research Bulletin is issued three times per year (January - April, May - August, September - December). Articles from researchers worldwide are welcomed.

Contributions
Kasetsart University Fisheries Research Bulletin publishes articles on problems and issues in fisheries science and related topics. Acceptable topics include ecosystem and population dynamics, resource assessment, fishing gear technology, fish processing, socioeconomics, farming systems, breeding, nutrition, fish health, pollution and aquatic resources management. Articles may be research papers, short communications or invited reviews

             <%=Bulletin_RS("VolumeText")%> : <%=Bulletin_RS("VolumeDate")%>
" target="_blank"> <%=Detail_RS("Item")%>)  <%=Detail_RS("Detail")%>
<%=Detail_RS("Authors")%>
[See all ....]
 
 
 
 
 


<% ImageRowId=0 ImageTotal= Image_RS.RecordCount if Not Image_RS.EOF then %> <% Do While (Not Image_RS.EOF) and (ImageRowId<=6) ImageRowId= ImageRowId+1 %> <% if (ImageRowId mod 3) = 1 then %> <%end if%> <% Image_RS.MoveNext if (ImageRowId mod 3) = 0 then %> <%end if%> <% Loop%>
Gallery...
" width="60" height="33">
<%end if%>

 

 

© Allright reserved by Faculty of Fisheries, Kasetsart University ,Bangkok Thailand