<%
Dim strURL ' The URL of this page so the form will work
' no matter what this file is named.
Dim cnnSearch ' ADO connection
Dim rstSearch ' ADO recordset
Dim strDBPath ' path to our Access database (*.mdb) file
Dim strSQL ' The SQL Query we build on the fly
Dim strSearch ' The text being looked for
Dim strSearch2
Dim strSearchM
Dim strSearchAll
Dim strSearchTitle
Dim strSearchComposer
Dim Backcolor
Backcolor = "yes"
strURL = Request.ServerVariables("URL")
strSearch = Request.QueryString("search")
strSearch = Replace(strSearch, "'", "''")
strSearch2 = Request.QueryString("search2")
strSearch2 = Replace(strSearch2, "'", "''")
strSearchM = Request.QueryString("searchM")
strSearchM = Replace(strSearchM, "'", "''")
strSearchAll = Request.QueryString("SearchAll")
strSearchAll = Replace(strSearchAll, "'", "''")
strSearchTitle = Request.QueryString("SearchTitle")
strSearchTitle = Replace(strSearchTitle, "'", "''")
strSearchComposer = Request.QueryString("SearchComposer")
strSearchComposer = Replace(strSearchComposer, "'", "''")
strSearchScoring = Request.QueryString("SearchScoring")
strSearchScoring = Replace(strSearchScoring, "'", "''")
%>
