Search Results <% if len(request("keywords")) > 0 then Dim Connect, OnMenu, sqlString, connstr, myArr, myTable Set Connect = Server.CreateObject("ADODB.Connection") connstr = "Driver={Mysql}; Server=sql4de.your-server.co.za; Database=namibi_db1; UID=namibi_u1_r; PWD=qtzffgdT;" Connect.Open(connstr) myArr = split(request("keywords"), "") myTable = request.form("table") sqlstring = "select * from " & myTable & " where " sqlstring = sqlstring & "Company_Name like '%" & myArr(0) & "%' OR Category like '%" & myArr(0) & "%'" for i = 1 to ubound(myArr) sqlstring = sqlstring & "OR Company_Name like '%" & myArr(0) & "%' OR Category like '%" & myArr(0) & "%'" next Set OnMenu = Connect.Execute(sqlstring) while not OnMenu.BOF and not OnMenu.EOF %> <%=OnMenu("Company_Name")%> <% If OnMenu("Physical_Address") = "N/A" Then %> <% Else %> Physical Address: <%=OnMenu("Physical_Address")%> <% End If %> <% If OnMenu("Postal_Address") = "N/A" Then %> <% Else %> Postal Address: <%=OnMenu("Postal_Address")%> <% End If %> <% If OnMenu("Telephone") = "N/A" Then %> <% Else %> Telephone: <%=OnMenu("Telephone")%> <% End If %> <% If OnMenu("Fax") = "N/A" Then %> <% Else %> Fax: <%=OnMenu("Fax")%> <% End If %> <% If OnMenu("Cellular") = "N/A" Then %> <% Else %> Cellular: <%=OnMenu("Cellular")%> <% End If %> <% If OnMenu("Email") = "N/A" Then %> <% Else %> Email: "> <% End If %> <% If OnMenu("Website") = "N/A" Then %> <% Else %> Website: " target = "_blank"> <% End If %> <% If OnMenu("Advert") = "N/A" Then %> <% Else %> Advert: " target = "_blank"> <% End If %> Listing Category: <%=OnMenu("Category")%> <% OnMenu.movenext wend else %> <% end if %> << Home >>