 |
<%
SQL = "SELECT * FROM NWS WHERE NWSID IS NOT NULL"
SQL = SQL + " AND HGHFLG = True"
SQL = SQL + " ORDER BY NWSID DESC"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open SQL,conn, ,2
%>
 |
<%
fileName = "images/adm/logout_bg.gif "
fileName2 = "images/adm/logout_bg.gif "
do while not ObjRS.eof
ttl=ObjRS("TTL")
ttl=subStrList3(ttl,30)
if ObjRS("IMG")<> "" then
fileName = PathImg & "img" & getRealFileName(ObjRS("NWSID") ,ObjRS("IMG"))
else
fileName = "images/nws/img_01.jpg "
end if
id1=ObjRS("NWSID")
ObjRS.MoveNext
if not ObjRS.eof then
ttl2=ObjRS("TTL")
ttl2=subStrList3(ttl2,30)
if ObjRS("IMG")<> "" then
fileName2 = PathImg & "img" & getRealFileName(ObjRS("NWSID") ,ObjRS("IMG"))
else
fileName2 = "images/nws/img_01.jpg "
end if
id2=ObjRS("NWSID")
end if
exit do
loop
%>
|
|
<%
Set ObjRS = Nothing
conn.Close
Set conn = Nothing
%>
 |
|
 |
  |
| I-EA-T encourages
private sector to develop and manage land and property
inside the industrial estate.Industrial estates offer
prime location for business of all size either in manufacturing,
servicing or trading. |
 |
 |
|
|
|
