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

 

 



Samut Songkhram Fisheries Research Station
was
established in 1989 to support learning and training of students as well as to provide assistance to professors, researchers and others in their research activities. Some of the research topics are related to delveloping to new technologies for coastal aquatic breeding and finding solutions to problems and concerning coastal aquaculture.

Objectives:
     

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

       To develop new technology for the coastal aquatic breeding and protection as well as to search for the solutions of any problems concerning the coastal aquatic breeding.

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