<%
Dim TotalNewsCount
Dim LatestNewsCount
Dim NewsCount
TotalNewsCount=0
NewsCount=0
' Map authors database to physical path
filePath = Server.MapPath("AJKBISEADB.mdb")
' Create ADO Connection Component to connect
' with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' Execute a SQL query and store the results
' within recordset
Set oRs=Server.CreateObject("ADODB.Recordset")
Set oRs = oConn.Execute("SELECT * From tblAJKBISEHolyMessage")
%>
<% =oRs("AJKBISE_NEWS_DETAIL")%>
Those who believe and work righteousness their Lord
will guide them because of their faith: beneath them will flow rivers in
Gardens of Bliss.
(Al-Quran (10:9))
<%
TotalNewsCount=0
NewsCount=0
' Map authors database to physical path
filePath = Server.MapPath("AJKBISEADB.mdb")
' Create ADO Connection Component to connect
' with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' Execute a SQL query and store the results
' within recordset
Set oRs=Server.CreateObject("ADODB.Recordset")
Set oRs = oConn.Execute("SELECT * From tblAJKBISEHadithMessage")
%>
<% =oRs("AJKBISE_NEWS_DETAIL")%>
Where are those who love one another through my Glory?
Today I shall give them shade in My shade, it being a day when there is no
shade but My shade.
(Hadith-e-Qudsi)
