<% 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 %> ==Department of Fishery Biology ===

Language

 

 



The
Khamphaengsaen Fisheries Research Station was established in 2001 to support learning and training of students and  to provide assistance to professors, researchers. The Station provides facilities for research to delvelope new technologies for freshwater aquaculture and to find solutions to problems and concerning freshwater aquaculture


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 develop new technology for the freshwater aquatic aquaculture and to search for the solutions of any problems concerning the freshwater aquaculture .

       To be a center for extension activities on  freshwater 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