<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Const maxCartItems = 10
Const cartAttributes = 5
strConn = "yemeni_db"
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
lngPage = Request("p")
if lngPage = "" Then lngPage = 1
lngPage = Clng(lngPage)
Set objRS = Server.CreateObject("ADODB.Recordset")
strConnection = "yemeni_db"
strSQL = "SELECT * FROM news where lang = 'en' order by id DESC"
Set objRS = GetRecordset(strConnection, strSQL)
%>
Ali Al Yemeni Group and Brothers
Available news
<%Do While Not objRS.EOF%>
<%=objRS("newstitle")%> <%=objRS("newsdesc")%>
