<%@ LANGUAGE=VBScript %>
<%
Response.buffer = true
strQueryForm = Request.ServerVariables ("PATH_INFO")
function doDebug (str)
'Response.write str & " "
'Response.flush
end function
function myIIF (a, b, c)
If a Then
myIIF = b
Else
myIIF = c
End If
end function
On Error Resume Next
' check for a request for a page of the existing query
str = Request("p")
doDebug "p: " & str
If IsNumeric(str) Then
lngCurrentPage = CLng(str)
Else
lngCurrentPage = 0
End If
doDebug "lngCurrentPage: " & lngCurrentPage
If lngCurrentPage > 0 Then
Set qry = Session("CIQuery")
Set rst = Session("CIRecordSet")
If IsObject(qry) And IsObject(rst) Then
strTarget = Session("CITarget")
strSearch = Session("CISearch")
lngHits = Session ("CIHits")
If rst.RecordCount <> -1 Then
rst.AbsolutePage = lngCurrentPage
End If
fActiveQuery = True
Else
lngCurrentPage = 0
fActiveQuery = False
End If
Else
fActiveQuery = False
End If
' check for a request for a new query
If Not fActiveQuery Then
strTarget = CStr(Request("t"))
doDebug "strTarget: " & strTarget
strSearch = Mid(CStr(Request("s")),1,50)
doDebug "strSearch: " & strSearch
str = CStr (Request ("h"))
If IsNumeric (str) Then
lngHits = CLng (str)
If lngHits < 10 Then lngHits = 10
If lngHits > 100 Then lngHits = 100
Else
lngHits = 10
End If
If strSearch <> "" And strTarget <> "" Then
doDebug "getNewQuery: BEGIN"
Set qry = Server.CreateObject("IXSSO.Query")
If IsObject (qry) Then
doDebug "strSearch: " & strSearch
qry.Query = strSearch & ""
doDebug "qry.Query: " & qry.Query
If strTarget = "books" Then
qry.Catalog = "MuBooks"
Else
qry.Catalog = "MuSite"
End If
qry.SortBy = "rank[d]"
qry.Columns = "rank, DocTitle, vpath, size, write, characterization"
Set rst = qry.CreateRecordSet ("nonsequential")
If IsObject (rst) Then
rst.PageSize = lngHits
Session ("CITarget") = strTarget
Session ("CISearch") = strSearch
Session ("CIHits") = lngHits
Set Session ("CIQuery") = qry
Set Session ("CIRecordset") = rst
fActiveQuery = True
Else
fActiveQuery = False
fNotAvailable = True
End If
Else
fActiveQuery = False
fNotAvailable = True
End If
End If
End If
' build results if a query exists
doDebug "fActiveQuery: " & fActiveQuery
If fActiveQuery Then
If Not rst.EOF Then
lngCurrentPage = rst.AbsolutePage
lngPageSize = rst.PageSize
lngCurrentRecord = rst.AbsolutePosition
lngRecordCount = rst.RecordCount
lngPageCount = rst.PageCount
lngFirstRecordOnPage = ((lngCurrentPage - 1) * lngPageSize) + 1
lngLastRecordOnPage = lngCurrentPage * lngPageSize
If lngLastRecordOnPage > lngRecordCount Then
lngLastRecordOnPage = lngRecordCount
End If
htmlNavigation = "Documents " & lngFirstRecordOnPage & " to " & lngLastRecordOnPage
If lngRecordCount > 0 Then
htmlNavigation = htmlNavigation & " of " & lngRecordCount
End If
htmlNavigation = htmlNavigation & " [ "
If lngCurrentPage > 1 Then
intI = lngCurrentPage - 1
Else
intI = 1
End If
htmlNavigation = htmlNavigation & getNavPage(intI, "< Prev") & " "
If lngCurrentPage < 6 Then
intI = 1
Else
intI = lngCurrentPage - 5
End If
Do While intI <= lngPageCount And intI <= lngCurrentPage + 5
htmlNavigation = htmlNavigation & getNavPage(intI, intI)
intI = intI + 1
Loop
If lngCurrentPage < lngPageCount Then
intI = lngCurrentPage + 1
Else
intI = lngPageCount
End If
htmlNavigation = htmlNavigation & " " & getNavPage(intI, "Next >")
htmlNavigation = htmlNavigation & "]"
htmlResults = ""
Do While Not rst.EOF And lngCurrentRecord <= lngLastRecordOnPage
fDocumentsFound = True
If rst("vpath") & "" <> "" Then
lngRank = CCur(rst("rank")) / 10
htmlResults = htmlResults & "" & lngCurrentRecord & ": (" & lngRank & "%)" & rst("DocTitle") & "(" & rst("size") & " bytes) Updated: " & rst("write") & " (" & rst("vpath") & ") " & rst("characterization") & "
"
End If
lngCurrentRecord = lngCurrentRecord + 1
rst.MoveNext
Loop
Else
fDocumentsFound = False
htmlNavigation = "No documents found."
htmlResults = ""
End If
Else
htmlRecordCount = ""
htmlNavigation = ""
htmlResults = ""
End If
Function getNavPage(lngGetPage, strText)
If lngGetPage = lngCurrentPage Then
getNavPage = strText & " "
Else
getNavPage = "" & strText & " "
End If
End Function
%>
Search Muhammadanism
Muhammadanism
Over a billion people in the world follow the teaching of the Prophet
Muhammad. His followers accept the validity of the prophethood of Muhammad and sincerely believe that his
teachings are a divine message from Allah (God) by the instrumentality of the angel Gabriel. They believe that the
message is embodied in the Holy Qur'an, and this Qur'an is the living word of Allah for all of humanity.
