<%@ Language=VBScript %> <% ' /////////////////////////////////////////////////////// ' // Dimac CMS ' // Copyright 2004-2008 Dimac Development AB, Sweden ' // www.Dimac.net ' // ' // NOTE: ' // You are not allowed to remove this ' // Copyright information without written ' // permission from Dimac Development. ' /////////////////////////////////////////////////////// ' ------------------------------------------------------- ' -- Global variables ' ------------------------------------------------------- Dim oddeven, bg(2) bg(1) = "#FFFFFF" bg(2) = "EFF3FF" oddeven = 1 Dim Conn, Rs, SQL Dim mbl:mbl=Session("Member_Level") if Not IsNumeric(mbl) Or mbl="" Then mbl="0" Dim vTrashBinID : vTrashBinID = GetSettingValue("TrashBinID", "..\..\SiteResources\Data\") Dim vSiteRoot : vSiteRoot = GetSettingValue("WebSiteRoot", "..\..\SiteResources\Data\") vSearchValue = Trim(Request.Form("SearchValue").item) vPostLang = Request.Form("selLang") ' ------------------------------------------------------- Function SwapIT( x ) If x = 1 Then SwapIT = 2 Else SwapIT = 1 End If End Function ' ------------------------------------------------------- Function doHighlight(vSTR, vValue) newValue = "" & vValue & "" vSTR = Replace(vSTR, " src=""", " src=""" & vSiteRoot) doHighlight = replace(vSTR, vValue, newValue) End Function ' ------------------------------------------------------- Set dicLangs = Server.CreateObject("Scripting.Dictionary") Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") SQL = "SELECT * FROM Languages" Rs.Open SQL, Conn While Not Rs.EOF dicLangs.Add CStr( Rs("ID").Value ), Rs("Code").Value Rs.MoveNext Wend Rs.Close ' // vSearchValue SQL = "SELECT Documents.*, DocumentFields.*, DocumentLanguages.*, " SQL = SQL & " DocumentLanguages.DocName AS DocName, DocumentFields.LangId AS LangId " SQL = SQL & "FROM Documents, DocumentFields, DocumentLanguages " SQL = SQL & " WHERE (DocumentFields.FieldValue LIKE '%" & vSearchValue & "%') AND " SQL = SQL & " (DocumentLanguages.LangStatus = 5) AND (DocumentLanguages.LangId = DocumentFields.LangId) " SQL = SQL & " AND (DocumentFields.DocID = Documents.DocumentID AND Documents.DocumentID = DocumentLanguages.DocID) " SQL = SQL & " AND (secLevel <= " &mbl& ") " SQL = SQL & " AND (Documents.Searchable = 1) " If IsNumeric(vTrashBinID) And vTrashBinID <> "" And vTrashBinID <> "-1" Then SQL = SQL & " AND (ParentID <> " & vTrashBinID & ") " If IsNumeric(vPostLang) And vPostLang <> "" And vPostLang <> "-1" Then SQL = SQL & "AND (DocumentFields.LangId = " &vPostLang& ") " SQL = SQL & "ORDER BY Documents.DocumentID " Rs.Open SQL, Conn ' ------------------------------------------------------- ' ------------------------------------------------------- %>
<%=langLabelSearchValue%>: <%= vSearchValue %>

<% emptysearch = 0 While NOT Rs.EOF If dicLangs.Exists( CStr( Rs("LangId").Value ) ) Then did = Rs("DocumentID").Value strName = GetDocumentName( did, Rs("LangId").Value, Conn) %> <% oddeven = SwapIt( oddeven ) emptysearch = emptysearch +1 End If Rs.MoveNext Wend If emptysearch = 0 Then Response.write "" End if Set Rs = Nothing Set Conn = Nothing Set dicLangs = Nothing %>

<%=langListView%>	<%=langLabelDocumentName%>	<%=langLabelValues%>
" target="_self"><%=langListView%>	<%= doHighlight( strName, vSearchValue ) %>	<%= doHighlight( Rs("FieldValue").Value, vSearchValue ) %>
" Response.write langLabelSearchNotFound & " : " & vSearchValue & " " Response.write "