<%@ enablesessionstate = false %> <%option explicit%> <% Dim objQuery, objUtil, catArray, objRS, Query, s, catlist, dirtosearch, numitems Dim CurPage, NumPages, BGColor1, BGColor2, Toggle, Crec, fso, folderlist, flist Dim MaxItems,MaxItemsPerPage Dim curfolder curfolder = LCase(Mid(request.ServerVariables("SCRIPT_NAME"),1,InstrRev(request.ServerVariables("SCRIPT_NAME"),"/"))) %> <%=Server.HTMLEncode(GetCatName(GetCatID(curfolder)))%> - Jamaica Information Service
 
 
<%server.Execute("/tools/farm1.asp")%>

<%=UCase(Server.HTMLEncode(GetCatName(GetCatID(curfolder))))%>
 
 

<% MaxItemsPerPage = 10 Set fso = Server.CreateObject("Scripting.FileSystemObject") CurPage = Clng(Trim("0"&Request.QueryString("pg"))) If CurPage = 0 Then CurPage = 1 End If MaxItems = 10 BGColor1 = "#0099ff" BGColor2 = "#33ccff" s = 0 'Query = BuildQuery 'WRITE = 6/20/2003 3:12:37 PM 'NEWSTITLE = 'PUBLISHDATE = 2003-06-18 00:00:00 Query = "((@filename htm) or (@filename asp))" 'Query = "(@publishdate <> '2003-01-01')" 'Response.Write("Query='"&Query&"'") Set objQuery = Server.CreateObject("ixsso.Query") ' For date fields the format must be yyyy-mm-dd hh:mm:ss 'NewsTitle (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 NewsTitle 'Category (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 Category 'PublishDate (VT_FILETIME) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 PublishDate 'CreateDate (VT_FILETIME) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 CreateDate 'Abstract (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 Abstract 'Keywords (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 Keywords objQuery.Catalog = "JIS" objQuery.DefineColumn "NewsTitle (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 Title" objQuery.DefineColumn "CategoryName (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 CategoryName" 'objQuery.DefineColumn "publishdate (VT_DATE) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 publishdate" 'objQuery.DefineColumn "publishdate (VT_FILETIME) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 publishdate" objQuery.DefineColumn "publishdate (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 publishdate" 'objQuery.DefineColumn "publishdate (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 PublishDate" objQuery.DefineColumn "Abstract (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 Abstract" objQuery.DefineColumn "Keywords (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 Keywords" objQuery.Columns = "rank,DocTitle,path,filename,size,write,NewsTitle,publishdate,Keywords,Categoryname,abstract" 'objQuery.Columns = "rank,Category,DocTitle,path,filename,write" objQuery.SortBy = "rank[d], publishdate[d], categoryname" 'objQuery.SortBy = "PublishDate[d], categoryname" 'objQuery.Query = "@contents "&request("stext") objQuery.Query = Query objQuery.MaxRecords = MaxItems 'Response.Write("Query="&objQuery.Query) Set objUtil = Server.CreateObject("ixsso.util") 'Response.Write("category = '"&Request("category")&"'") Set CRec = Server.CreateObject("ADODB.Recordset") 'catlist = "" objUtil.AddScopeToQuery objQuery, Server.MapPath(curfolder&"html/"), "deep" Set CRec = Nothing 'If SiteLocale <> "" Then ' objQuery.LocaleID = objUtil.ISOToLocaleID(SiteLocale) objQuery.LocaleID = objutil.ISOToLocaleID("EN-US") 'End if Set objRS = objQuery.CreateRecordset("nonsequential") If IsObject(objRS) Then If Not objRS.EOF Then objRS.PageSize = MaxItemsPerPage objRS.AbsolutePage = CurPage NumPages = objRS.PageCount NumItems = objRS.Recordcount Else NumPages = 0 NumItems = 0 CurPage = 0 End If Else NumPages = 0 NumItems = 0 CurPage = 0 End If %>

 

<%If NumItems = 0 Then%> <%Else s = 0 Do While Not objRS.EOF And s <= MaxItemsPerPage If Instr(objRS("path"),"includes") = 0 Then %> <% Toggle = Not Toggle End If objRS.MoveNext s = s + 1 Loop objRS.Close set objRS = Nothing End If %>
<%=NumItems%> article(s) listed
No items found matching your query<%If Request("stype")<>"simple" Then%>
Back to ">advanced search<%Else%>
Try refining your search here<%End If%>
<%If fso.FileExists(Server.MapPath(AbsPath(objRS("path")))) Then %> "><%If Trim(objRS("DocTitle")) = "" Then Response.Write("Untitled") Else Response.Write(objRS("DocTitle"))%> <%Else%> <%If Trim(objRS("DocTitle")) = "" Then Response.Write("Untitled") Else Response.Write(objRS("DocTitle"))%> <%End If%>  
  <%=objRS("abstract")%>
  Published: <%If isnull(objRS("PublishDate")) Or objRS("PublishDate") = "" then Response.write("Not available") else Response.write(formatdatetime(objRS("PublishDate"),vblongdate)) %>
 
 
  <% Server.Execute("/tools/topstories.asp")%>  
  <% Server.Execute("/tools/topstories-1.asp")%>  
<% Server.Execute("/tools/topstories-2.asp")%>
<%Server.Execute("/tools/farm2-1.asp")%>
 
<%Server.Execute("/tools/farm2-2.asp")%>
 
<%Server.Execute("/tools/farm2-3.asp")%>
 
<%Server.Execute("/tools/farm2-4.asp")%>
 
<%Server.Execute("/tools/farm2-5.asp")%>
 
<%Server.Execute("/tools/farm2-6.asp")%>
 
Copyright © Jamaica Information Service, Powered by Info Exchange Ltd. All rights reserved.
Tel: (876) 926-3590-8/926-3740-8 Fax: (876) 926-6715 e-mail: jis@jis.gov.jm
<% Function AbsPath(FilePath) Dim tmp tmp = LCase(Server.MapPath("/")) If InStr(FilePath,tmp) > 0 Then tmp = Replace(FilePath,tmp,"") AbsPath = Join(Split(tmp,"\"),"/") Else If Left(FilePath,1) = "/" Then AbsPath = FilePath Else AbsPath = "/"&FilePath End If End If End Function Function GetCatName(CatID) Dim cmd, recset,cnnConn,params, rs Set cmd = Server.CreateObject("ADODB.Command") Set cnnConn = Server.CreateObject("ADODB.Connection") cnnConn.Open Application("strDBCon") With cmd set .ActiveConnection = cnnConn .CommandText = "spGetCatName" .CommandType = adCmdStoredProc Set params = .Parameters End With params.Append cmd.CreateParameter("@RETURN_VALUE", adInteger, adParamReturnValue, 0) params.Append cmd.CreateParameter("@catID", adInteger, adParamInput, 4, catID) set rs = cmd.Execute() GetCatName = rs(0) If rs.State = adStateOpen Then rs.Close End If Set rs = Nothing Set cmd = Nothing cnnConn.Close End Function Function GetCatID(URL) Dim catpath Dim cmd, recset,cnnConn,params catpath = Mid(URL,1,Instr(2,URL,"/")) Set cmd = Server.CreateObject("ADODB.Command") Set cnnConn = Server.CreateObject("ADODB.Connection") cnnConn.Open Application("strDBCon") With cmd set .ActiveConnection = cnnConn .CommandText = "spGetCatID" .CommandType = adCmdStoredProc Set params = .Parameters End With params.Append cmd.CreateParameter("@RETURN_VALUE", adInteger, adParamReturnValue, 0) params.Append cmd.CreateParameter("@folder", adVarchar, adParamInput, 100, catpath) cmd.Execute , , adExecuteNoRecords GetCatID = params("@RETURN_VALUE") Set cmd = Nothing cnnConn.Close End Function %>