<%@ 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 vSearchValue = Trim(Request.Form("SearchValue").item) ' ------------------------------------------------------- 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 Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("SiteResources\Data\") Dim mbl:mbl=Session("Member_Level") if Not IsNumeric(mbl) Or mbl="" Then mbl="0" ' // 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 (Documents.Searchable = 1) " SQL = SQL & " AND (secLevel <= " &mbl& ") " Rs.Open SQL, Conn ' ------------------------------------------------------- ' ------------------------------------------------------- %>
<%=langLabelSearchValue%>: <%= vSearchValue %>

<% emptysearch = 0 While NOT Rs.EOF %> <% oddeven = SwapIt( oddeven ) emptysearch = emptysearch +1 Rs.Movenext Wend If emptysearch = 0 Then Response.write "" End if Set Rs = Nothing Set Conn = Nothing %>

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