<% 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 student News====== ActSTDSQL = "select * from News where show=yes and SubjectType=6 order by SubjectID desc;" Set ActSTD_RS = Server.CreateObject("ADODB.Recordset") ActSTD_RS.Open ActSTDSQL, Newsconn, adOpenStatic, adLockReadOnly, adCmdText '===open record of student News====== StdNewSQL = "select * from News where show=yes and SubjectType=7 order by SubjectID desc;" Set StdNews_RS = Server.CreateObject("ADODB.Recordset") StdNews_RS.Open StdNewSQL , Newsconn , adOpenStatic, adLockReadOnly, adCmdText '===open record of student image ====== ImgNewsSQL = "select Small_Image from News where show=yes and SubjectType=6 AND Small_Image is not Null order by SubjectID desc;" '=open connection Set ImgNews_RS = Server.CreateObject("ADODB.Recordset") ImgNews_RS.Open ImgNewsSQL , Newsconn, adOpenStatic, adLockReadOnly, adCmdText '===open record of gallery====== vDept = Request("Dept") DeptTxt = " And Dept=" & vDept & " order by ImageID desc" ImageSQL = "select * from gallery where show=yes " & DeptTxt Set Image_RS = Server.CreateObject("ADODB.Recordset") Image_RS.Open ImageSQL , Newsconn , adOpenStatic, adLockReadOnly, adCmdText %> ==Fishery Products Department==

Language

 

 



 สถานีวิจัยกำแพงแสน
ก่อตั้งเมื่อปี พ.ศ. 2544 มีหน้าที่สนับสนุนการเรียนการสอน การฝึกงานภาคสนามของนิสิตคณะประมง และช่วยสนับสนุนงานวิจัยของอาจารย์ นักวิชาการ ตลอดจนการทำวิทยานิพนธ์ในระดับบัณฑิตศึกษาทางด้านการเพาะเลี้ยงสัตว์น้ำ รวมทั้งการทำการศึกษาวิจัยค้นคว้าเพื่อพัฒนาเทคโนโลยีใหม่ ๆ ในด้านการเพาะเลี้ยงสัตว์น้ำเศรษฐกิจชนิดต่าง ๆ เช่น การทำปลานิลแปลงเพศ การเพาะพันธุ์และอนุบาลกุ้งก้ามกราม การวิเคราะห์คุณภาพน้ำของบ่อเพาะเลี้ยงสัตว์น้ำ สถานีวิจัยประมงกำแพงแสน ตั้งอยู่ที่ 1/1138 ตำบลกำแพงแสน อำเภอกำแพงแสน จังหวัดนครปฐม 73140 โทรศัพท์และโทรสาร 034-351594

 
<% STDRowId=0 STDTotal = ActSTD_RS.RecordCount if Not ActSTD_RS.EOF then Do While (Not ActSTD_RS.EOF) and (StdRowId<3) StdRowId= StdRowId+1 %> <%ActSTD_RS.MoveNext Loop%> <%end if%>
<%if Not ImgNews_Rs.EOF then ImgCount = 0 Do While (Not ImgNews_RS.EOF) and ( ImgCount <=4) ImgCount = ImgCount +1 %> ">  <%ImgNews_RS.MoveNext%> <%Loop%> <%end if%>
 

" target="_blank"> <%if isNull(ActSTD_RS("Small_Image")) then imgNews="..\News\images\stdNews.jpg" else imgNews="..\" & ActSTD_RS("Small_Image") end if %> border="0" id="icon_sst_r11_c3" alt="" />

<%=ActSTD_RS("subject")%>
<%=ActSTD_RS("Detail")%>
<%=ActSTD_RS("SubjectDate")%> <%if Not ISNull(ActSTD_RS("Newslink")) then %> " target="_blank">[อ่านต่อ...] <%end if%>
<% ActRowId=0 ActTotal = STDNews_RS.RecordCount if Not STDNews_RS.EOF then Do While (Not STDNews_RS.EOF) and (ActRowId<=3) ActRowId= ActRowId+1 %> <%STDNews_RS.MoveNext Loop%> <%end if if (StdRowId < StdTotal) or (ActRowId< ActTotal) then %> <% end if %>
         
<%=STDNews_RS("PostDate")%> <%=STDNews_RS("subject")%>
<%=STDNews_RS("Detail")%> <%if Not ISNull(STDNews_RS("Newslink")) then %> " target="_blank">[อ่านต่อ...] <%end if%>
[อ่านข่าวนิสิตทั้งหมด....]
 


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