<% 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 vDept = request("Dept") 'vDept = 0 NewsImg = "images/News_0" & vSubjectType & ".gif" DeptTxt = "" if vDept <> 0 then DeptTxt = " And Dept=" & vDept end if select case vDept case 0 : vDeptName= "คณะประมง" case 1 : vDeptName= "ภาควิชาการจัดการประมง" case 2 : vDeptName= "ภาควิชาเพาะเลี้ยงสัตว์น้ำ" case 3 : vDeptName= "ภาควิชาชีววิยาประมง" case 4 : vDeptName= "ภาควิชาผลิตภัณฑ์ประมง" case 5 : vDeptName= "ภาควิชาวิทยาศาสตร์ทางทะเล" end select OrderTxt =" order by ImageID desc;" '===open record of gallery====== ImageSQL = "select * from gallery where show=yes " & DeptTxt & OrderTxt '==response.write("ImageSQL : " & ImageSQL ) Set Image_RS = Server.CreateObject("ADODB.Recordset") Image_RS.Open ImageSQL , Newsconn , adOpenStatic, adLockReadOnly, adCmdText %> สถานีวิจัยประมงสมุทรสงคราม คณะประมง มหาวิทยาลัยเกษตรศาสตร์

Language

 

 

 
     

 

<% ImageRowId=0 ImageTotal= Image_RS.RecordCount if Not Image_RS.EOF then %> <%Do While (Not Image_RS.EOF) ImageRowId= ImageRowId+1 %> <% if (ImageRowId mod 8) = 1 then %> <%end if%> <% Image_RS.MoveNext if (ImageRowId mod 8) = 0 then %> <%end if%> <% Loop%>

  <%=vDeptName%>

','<%=Image_RS("detail").value%>')"> " width="60" height="33" style="border: 1px solid #FF6600" onmouseOver="ShowMsg('<%=Image_RS("detail").value%>')" onmouseOut="ClearMsg()" >

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