<%
' to build query for search
Dim TechTipQueryString, KyWdStr, Cat1Str, Cat2Str, Cat3Str, Body
TechTipQueryString = ""
If Request("Keywords") = "" then
TechTipQueryString = ""
else
TechTipQueryString = "(Keywords LIKE '%::Keywords::%')"
end if
 
If Request("CategoryDesc1") <> "None" then
If TechTipQueryString = "" then
TechTipQueryString = "(Cat1 LIKE '%::CategoryDesc1::%' OR Cat2 LIKE '%::CategoryDesc1::%' OR Cat3 LIKE '%::CategoryDesc1::%')"
else
TechTipQueryString = TechTipQueryString & " AND (Cat1 LIKE '%::CategoryDesc1::%' OR Cat2 LIKE '%::CategoryDesc1::%' OR Cat3 LIKE '%::CategoryDesc1::%')"
end if
end if
 
If Request("CategoryDesc2") <> "None" then
If TechTipQueryString = "" then
TechTipQueryString = "(Cat1 LIKE '%::CategoryDesc2::%' OR Cat2 LIKE '%::CategoryDesc2::%' OR Cat3 LIKE '%::CategoryDesc2::%')"
else
TechTipQueryString = TechTipQueryString & " AND (Cat1 LIKE '%::CategoryDesc2::%' OR Cat2 LIKE '%::CategoryDesc2::%' OR Cat3 LIKE '%::CategoryDesc2::%')"
end if
end if
 
If Request("CategoryDesc3") <> "None" then
If TechTipQueryString = "" then
TechTipQueryString = "(Cat1 LIKE '%::CategoryDesc3::%' OR Cat2 LIKE '%::CategoryDesc3::%' OR Cat3 LIKE '%::CategoryDesc3::%')"
else
TechTipQueryString = TechTipQueryString & " AND (Cat1 LIKE '%::CategoryDesc3::%' OR Cat2 LIKE '%::CategoryDesc3::%' OR Cat3 LIKE '%::CategoryDesc3::%')"
end if
end if
 
If Request("Body") > "" then
If TechTipQueryString > "" then
TechTipQueryString = TechTipQueryString & " AND (Body LIKE '%::Body::%')"
Else
TechTipQueryString = "(Body LIKE '%::Body::%')"
End if
end if
 
' If query string is still blank, set a No Record Found value
If TechTipQueryString = "" then
TechTipQueryString = "(Keywords LIKE 'xxxx')"
end if
 
'Response.write(TechTipQueryString)
%>
<input NAME="TechTipQueryString" VALUE="<%=Response.Write(TechTipQueryString)%>" style="visibility:hidden" size="1">
<input TYPE="Submit" value="Search Tech Notes">&nbsp; <input TYPE="Reset" value="Clear Text Boxes"><!--webbot bot="SaveAsASP" CLIENTSIDE
SuggestedExt="asp" PREVIEW=" " startspan --><!--webbot bot="SaveAsASP" endspan -->
</font>
</form>
<!--#include file="../_fpclass/fpdblib.inc"-->
<%
fp_sQry="SELECT * FROM Main WHERE ("&TechTipQueryString&")"
fp_sDefault="Keywords=xxxx"
fp_sNoRecords="Please enter search criteria above."
fp_sDataConn="technotes"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=10
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=7
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="97%">
<tr>
<td colspan="2" bgcolor="#FFFF99" width="60%"><font size="2"><b><font face="Arial">Title:&nbsp;
</font></b><font face="Arial">(Click title below to view complete Note)</font></font></td>
<td colspan="2" bgcolor="#FFFF99" width="40%"><b><font face="Arial" size="2">Keywords:</font></b></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" width="60%"><a href="javascript:launch('TechnoteDetail.asp?Title=<%=FP_FieldVal(fp_rs,"Title")%>')"><font face="Arial" size="2"><%=FP_FieldVal(fp_rs,"Title")%></font></a></td>
<td colspan="2" bgcolor="#FFFFFF" width="40%"><font face="Arial" size="2"><%=FP_FieldVal(fp_rs,"Keywords")%></font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" width="40%"><font size="2"><b><font face="Arial">Source Index:</font></b><font face="Arial">&nbsp;</font></font></td>
<td bgcolor="#FFFF99" width="20%"><b><font face="Arial" size="2">Cat1:</font></b></td>
<td bgcolor="#FFFF99" width="20%"><b><font face="Arial" size="2">Cat2:</font></b></td>
<td bgcolor="#FFFF99" width="20%"><b><font face="Arial" size="2">Cat3:</font></b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="40%"><font face="Arial" size="2"><%=FP_FieldVal(fp_rs,"SourceIndex")%></font></td>
<td bgcolor="#FFFFFF" width="20%"><font face="Arial" size="2"><%=FP_FieldVal(fp_rs,"Cat1")%></font></td>
<td bgcolor="#FFFFFF" width="20%"><font face="Arial" size="2"><%=FP_FieldVal(fp_rs,"Cat2")%></font></td>
<td bgcolor="#FFFFFF" width="20%"><font face="Arial" size="2"><%=FP_FieldVal(fp_rs,"Cat3")%></font></td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFF99"><b><font face="Arial" size="2">Tech Tip Preview:</font></b></td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF"><font face="Arial" size="2"><%=Left(FP_FieldVal(fp_rs,"Body"),200)%>....</font></td>
</tr>
</table>
</div>
<hr>
<!--#include file="../_fpclass/fpdbrgn2.inc"-->