<%'---- CursorTypeEnum Values --- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Const cLinesPerPage = 7 Dim OddNumber On Error Resume Next MyName = Request("NAME") MyID = Request("ID") blnNoSearch=Request("DOCLR") MySQL = Request("SQL") If blnNoSearch = "" Then MyQuickSearch = Request("searchsite") If MyQuickSearch <> "" Then sql = "SELECT * FROM tblMembers WHERE Instr(Ucase([BusinessTitle]),'" & MyQuickSearch & "') > 0 OR InStr(Ucase([Country]),'" & MyQuickSearch & "') > 0 And Approved=True" Else my_Service = Ucase(Request("SERVICE")) my_Country = Ucase(Request("COUNTRY")) my_Location = Ucase(Request("LOCATION")) my_BusinessName = Request("BUSINESSNAME") my_Contact = Ucase(Request("CONTACT")) ' BUILD THE SQL TO QUERY THE TABLES ' ================================= strIgnore = "...------- Categories --------/------- Countries ----------" blnComplex=False sql = "SELECT * FROM tblMembers" sql = sql & " WHERE Approved=True" blnComplex=True If my_Service <> "" Then If blnComplex=True Then sql = sql & " AND InStr(Ucase([BusinessTitle]),'" & my_Service & "') > 0" Else sql = sql & " WHERE InStr(Ucase([BusinessTitle]),'" & my_Service & "') > 0" blnComplex=True End if End If If my_Country <> "INTERNATIONAL" And my_Country <> "------- Countries ----------" And my_Country <> "LOCATION" Then If blnComplex=True Then sql = sql & " AND InStr([country],'" & my_Country & "') > 0" Else sql = sql & " WHERE InStr([country],'" & my_Country & "') > 0" blnComplex=True End if End If If my_Location <> "" Then If blnComplex=True Then sql = sql & " AND InStr(Ucase([Location]),'" & my_Location & "') > 0" Else sql = sql & " WHERE InStr(Ucase([Location]),'" & my_Location & "') > 0" blnComplex=True End if End If If my_BusinessName <> "" Then If blnComplex=True Then sql = sql & " AND InStr(Ucase([CoName]),'" & my_BusinessName & "') > 0" Else sql = sql & " WHERE InStr(Ucase(CoName]),'" & my_BusinessName & "') > 0" blnComplex=True End if End If If my_Contact <> "" Then If blnComplex=True Then sql = sql & " AND InStr(Ucase([ContactName]),'" & my_Contact & "') > 0" Else sql = sql & " WHERE InStr(Ucase([ContactName]),'" & my_Contact & "') > 0" blnComplex=True End if End If End If sql = sql & " ORDER BY MemberID DESC" If MySQL <> "" Then sql = MySQL End If Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("../private/accountants.mdb") RS.Open sql, Conn, adOpenKeyset,adLockReadOnly RS.PageSize = cLinesPerPage Scroll = Request("Scroll") If Scroll <> "" Then Page = mid(Scroll, 5) If Page < 1 Then Page = 1 End If Else Page = 1 End If If Not RS.EOF Then RS.AbsolutePage = Page End If End If %>

Service Country Location Business Name Contact Name <% If blnNoSearch = "" Then %> <% If Not RS.EOF Then %> <% RowCount = RS.PageSize %> <% Do While Not RS.EOF And RowCount > 0 If OddNumber = 1 Then OddNumber = 0 Else OddNumber = 1 End If %><% If OddNumber = 1 Then %><% %><% If OddNumber = 1 Then %><% If OddNumber = 1 Then %><% %><% If OddNumber = 1 Then %><% %><% %><% RowCount = RowCount - 1 RS.MoveNext Loop %> Business Name Country Location Description <% Else %> <% End If %> <% %>" target="_blank"><%=RS("CoName")%><% %> <% Else %> <% End If %> <% Response.Write rs("country") %> <% Else %> <% End If %><%=Ucase(rs("location"))%> <% Else %> <% End If %><%=rs("description")%> <% If Page > 1 Then %> "> <% End If %> <% If RowCount = 0 Then %> "> <% End If %> <% Else %> No matches found in database. <% End If %> <% End If %>

<% If blnNoSearch = "" Then Set RS = Nothing Conn.Close Set Conn = Nothing End If %>