<%@ codepage="874" %>
<%
catid = request.QueryString("catid")
if catid <>"" then
Sql="Select catid,catname_en from categories where catid like '"&catid&"' "
else
Sql="Select catid,catname_en from categories "
end if
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if not rs.BOF and not rs.EOF then
catname_en=rs.fields("catname_en")
catid=rs.fields("catid")
end if
rs.close
set rs=nothing
%>
::: FLYING STAR I c o m p a n y l i m i t e d. ::::