<% '################################################################################# '# Copyright (C) 2002 John Andersson '# '# This program is free software; you can redistribute it and/or '# modify it under the terms of the GNU General Public License '# as published by the Free Software Foundation; either version 2 '# of the License, or any later version. '# '# All copyright notices regarding ZIXForum '# must remain intact in the scripts and in the outputted HTML '# The "powered by" text/logo with a link back to '# http://www.zixforum.com in the footer of the pages MUST '# remain visible when the pages are viewed on the internet or intranet. '# '# This program is distributed in the hope that it will be useful, '# but WITHOUT ANY WARRANTY; without even the implied warranty of '# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '# GNU General Public License for more details. '# '# '# Support can be obtained from support forums at: '# http://www.zixforum.com '# '# Correspondence and Marketing Questions can be sent to: '# zixforum@zixforum.com '################################################################################# ' Rev 1.12 checked 2002/02/26 Seekword = FixaTecken(request("Seekword")) If IllegalChars(Seekword)=True Then Response.redirect("no_access.asp") End If rs.open "select S_ID, H_ID, S_Date, S_Headline, S_Icon, S_Desc, S_Email, S_Name from Subjects where (S_Headline like '%" & seekword & "%' or S_Desc like '%" & seekword & "%' or S_Email like '%" & seekword & "%' or S_Name like '%" & seekword & "%') and S_Visible = 1 order by S_Date desc",conn,3,1 %>
<% if not rs.eof then set S_Date = rs("S_Date") set h_id = rs("H_ID") strShowColor = strColor1 do while not rs.eof if strShowColor = strColor1 then strShowColor = strColor2 else strShowColor = strColor1 end if strSql = "Select h_name from heads where ID = "& H_ID &"" set rsForum = Conn.Execute(strSql) %> <% rs.movenext loop else %> <% end if rs.close rs.open "select R_ID, S_ID, H_ID, R_Date, R_HeadLine, R_Icon, R_Desc, R_Name, R_Email from Replies where (R_HeadLine like '%" & seekword & "%' or R_Desc like '%" & seekword & "%' or R_Name like '%" & seekword & "%' or R_Email like '%" & seekword & "%') and R_Visible = 1 order by R_Date desc",conn,3,1 %> <% if not rs.eof then R_Date = "" set R_Date = rs("R_Date") set h_id = rs("H_ID") set s_id = rs("s_id") strShowColor = strColor1 do while not rs.eof if strShowColor = strColor1 then strShowColor = strColor2 else strShowColor = strColor1 end if strSql = "Select h_name from heads where ID = "& H_ID &"" set rsForum2 = Conn.Execute(strSql) %> <% rs.movenext loop else %> <% end if %>
<%=StrLan9%>
<%=StrLan43%>
" class="normal"> 
<%=StrLan39%> <%=Request.Form("seekword")%>
<%=StrLan40%> /<%=rs.recordcount%> hits
<%=StrLan21%> Forum <%=StrLan16%> <%=StrLan17%>
.gif" align="middle"> &H_ID=<%=rs("H_ID")%>&seekword=<%=server.urlencode(seekword)%>&pageid=2&show=1"><%=Highlight(rs("S_Headline"), ""& Seekword &"", "", "")%> <%=rsForum(" width="8" height="10" border="0"> <%=Highlight(rs("S_Name"), ""& Seekword &"", "", "")%> <%=FormatDateTime(S_Date,2) %>, <%=StrLan79%>  <%=FormatDateTime(S_Date,4) %>
<%=StrLan41%>.
<%=StrLan42%> /<%=rs.recordcount%> hits
<%=StrLan21%> Forum <%=StrLan16%> <%=StrLan17%>
.gif" align="middle"> &seekword=<%=server.urlencode(seekword)%>&pageid=3&show=1&repid=<%=s_id%>#<%=rs("R_ID")%>"><%=Highlight(rs("R_Headline"), ""& Seekword &"", "", "")%> <%=rsForum2(" width="8" height="10" border="0"> <%=Highlight(rs("R_Name"), ""& Seekword &"", "", "")%> <%=FormatDateTime(R_Date,2) %>, <%=StrLan79%>  <%=FormatDateTime(R_Date,4) %>
<%=StrLan41%>.
<%=StrTitle%> <%'DO NOT CHANGE THIS!!%>©ZIXForum <%=StrVersion%> by: ZixCom 2002Up