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

 

 



Fish Feed Technology Development Center (FFTDC)
is dedicated to increasing knowledge in aquactic animal nutrition and aquatic animal feed production technology, and disseminating this knowledge to improve feed efficiency, reduce production costs and minimize environmental impact. Research include both live food and formulated feed. The center is equipped with both analytical laboratories and a wet laboratory. 

 
 


 

 

 

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