<% 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 gallery====== '==vDept = 3 vDept = Request("Dept") DeptTxt = " And Dept=" & vDept & " order by ImageID desc" ImageSQL = "select * from gallery where show=yes " & DeptTxt '==response.write("ImageSQL : " &ImageSQL) Set Image_RS = Server.CreateObject("ADODB.Recordset") Image_RS.Open ImageSQL , Newsconn , adOpenStatic, adLockReadOnly, adCmdText %> Klongwan Fisheries Research Station , Faculty of Fisheries , Kasersart University

Language

 

 



The Klongwan Fisheries Research Station
was established in 1961 to support teaching, research and field training of students. In addition, the Station also conducts research in the field of economic coastal aquaculture such as blue swimming crab, white sea bass etc., as well as research in the field of plankton culture for aquatic animals larvae nursing and marine science.

Objectives:
     

        To support the learning and field training of students as well as to provide assistance to professors, researchers and others for their research activities.

       To conducts research in the field of economic coastal aquaculture and  plankton culture for aquatic animals larvae nursing and marine science.

       To be a center for extension activities on  economic coastal aquaculture  for farmers and others.

 


<% 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