<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<%
Dim id,by,sortid,title
id = CompelCLng(Request.QueryString("id"),0)
sortid = CompelCLng(Request.QueryString("sortid"),5)
by = Request.QueryString("type")
Select Case by
Case "job"
sortid = 18
title = "التجنيد"
Case "platform","download"
sortid = 19
title = "المواهب"
Case "about"
sortid = 5
title = "حول لينغ تونغ"
Case "contact","link"
sortid = 5
title = "حول لينغ تونغ"
id = 10
by = "about"
Case Else
by = Empty
title = "الخدمات"
End Select
If id=0 and by<>Empty Then id=GetFieldValue("NewsData","d_Id","ClassId="&sortid&" order by d_Id")
If id=0 Then id=2
%>
Shenzhen Ling Tong International Freight Forwarding Co., Ltd
