<% 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 Product ,Faculty of Fisheries , Kasetsart University

Language

 

 

 


Department of Fishery Products is responsible for the  teaching and conducting research in the area of chemistry and biochemistry , microbiology and biotechnology , post-harvest, processing , product development , engineering , quaility control and quality assurance of fishery products, fishery products utilizatins and non-food product from fishery produce.
 


 
50 Ngamwongwan RoadLadyao Chatuchark ,Bangkok 10900
Tel. +66 29428644-5
Fax +66 2942 8644-5 ext.12

 

 

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