<%
dim tt
function company(tt)
	strSql="select top 5 * from [company] where type='"& tt & "' order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
    do while not rs.eof
    response.write "<tr>" 
    response.write "<td height=""10"" colspan=""3"">&nbsp;<font color=""#FF6600"" class=""smallfont"">กค</font><a href=" & "company/sub_company.asp?id=" & rs("id") & " target=""_blank"" class=""menu""><font color=" & rs("color") & ">" & rs("company") & "</font></a> <font color=""#999999"" class=""smallfont"">[" & rs("tel") & "]</font>"
    response.write "</td>"
    response.write "</tr>"
    response.write "<tr align=""center"" valign=""middle"">"
    response.write "<td height=""2"" colspan=""3""><img src=""images/index3_line.gif"" width=""275"" height=""3""></td>"
    response.write "</tr>"
	rs.movenext
	loop
end function
%>