<! version 2.25July46 by burin rujjanapan from yonok.ac.th>
<%
dim connect, rs, sql, tots, i, j, k, l, nextl, max
set connect = server.createobject("ADODB.Connection")
%><!--#include file="connectinfo.asp"--><!--#include file="header.asp"--><%
if len(request.querystring("tumbon")) > 2 and len(request.querystring("menu")) = 3 then
  sql = "select * from tb where tbid = '" & request.querystring("tumbon") &"' order by tbid"
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount  
  if tots > 0 then
    i = 1  
	max = rs("linenews")
    response.write("<table width=100% border=0 cellpadding=1 cellspacing=1")
	response.write("><td width=200 valign=top bgcolor=black align=center><table border=0 cellpadding=1 cellspacing=1 bgcolor=black width=200>")
    do while not rs.eof and i < 16
      response.write("<tr><td bgcolor=#ffffdd align=center><font size=4>")
	  response.write("<a href=tb.asp?tumbon=" &request.querystring("tumbon") &"&menu=m00>"&rs("name")&"</a>")
      if len(rs("url"))>0 then
        response.write(" [<a href='"& rs("url")&"' style=TEXT-DECORATION:none;>web</a>]")
      end if
      response.write("</font></td></tr>")      
      for j = 1 to 20
        if j < 10 then
           l = "m0" & j
           k = rs("m0"& j)		
        else
           l = "m" & j
           k = rs("m"& j)		           
        end if
        if not isnull(k) and len(k) > 2  then
          response.write("<tr><td>")
		  keeptmp = "tb.asp?tumbon="&request.querystring("tumbon")& "&menu="&l
%>
<applet code="fphover.class" codebase="" width="200" height="20">
<param name="text" value="<%= k %>">
<param name="color" value="#000000">
<param name="hovercolor" value="#0000ff">
<param name="textcolor" value="#FFFFFF">
<param name="effect" value="glow">
<param name="url" value="<%= keeptmp %>" valuetype="ref">
<param name="target" value="_top">
<param name="bgcolor" value="#FFFFFF">
</applet>		  
<%
          response.write("</td></tr>")
        end if
        if l = request.querystring("menu") then
          nextl = k
        end if
	  next
      rs.movenext
      i = i + 1
    loop    
    response.write("</table></td><td valign=top>")
    response.write("<center><font size=6>" & nextl &"</font></center><hr color=blue>")
	if (request.querystring("menu") = "m00") then
      sql = "select * from tb where tbid = '" & request.querystring("tumbon") &"'"
	else
	  sql = "select * from tbm where tbid = '" & request.querystring("tumbon") &"' and m ='" &request.querystring("menu")&"'"
	end if
    set rs = server.createobject("ADODB.recordset")
    rs.open sql,connect,1,3
    tots = rs.recordcount
    if tots > 0 then
	  if (request.querystring("menu") = "m00") then
	    response.write(rs("m00"))
	  else
	    response.write(rs("mdesc"))
	  end if
    else
      response.write("<br>ยังไม่มีข้อมูลในฐานข้อมูล")
    end if    
    if max > 0 and request.querystring("menu") = "m00" then
	  response.write("<div id=m1 style='position:absolute; left:430px; top:70px; width:330px; z-index:1;'>")
	  response.write("<table width=100% border=0><tr bgcolor=#808080><td align=center>ข่าวประกาศ</td></tr>")
      connectnews
      sql = "select * from news where owner = '"& request.querystring("tumbon") &"'order by nid desc"
      displaynewsintb
	  response.write("</table></div>")
	end if
	response.write("</td></table>")    	
  else 
    response.write("<br>ยังไม่มีข้อมูลในฐานข้อมูล")
  end if
  connect.close
  set rs = nothing
  set connect = nothing
else 
  response.write("<br>การเรียกใช้งานไม่ถูกต้อง<br>")
  response.write("ตัวอย่างที่ถูกต้อง <a href=tb.asp?tumbon=a00&menu=m00>tb.asp?tumbon=a00&menu=m00</a>")  
end if
%>
<!--#include file="footer.asp"-->
</body></html>

<%
sub connectnews
  connect.close
  %><!--#include file="connectnews.asp"--><% 
end sub

sub displaynewsintb
  set rs = server.createobject("ADODB.recordset")
  rs.open sql,connect,1,3
  tots = rs.recordcount
  if tots > 0 then    
    i = 1  
    do while not rs.eof and i <= max
      response.write("<tr bgcolor=#dddddd><td>"&rs("showdate") & " :: <a href=displaynews.asp?niddtl="&rs("nid")&">")  
      response.write(rs("nshort")&"</a></td></tr>")
      rs.movenext
      i = i + 1
    loop
  else
    response.write("<br>ยังไม่มีข้อมูลในฐานข้อมูล")
  end if
end sub
%>