<% On Error Resume Next Dim conn Dim rs Dim sql Dim strWhere strWhere = Session("SessSearchCriteria") sql = "SELECT * FROM tblCompanies WHERE " & strWhere If Not GetConnRO(conn) Then Response.Redirect "../yyhiop/logserv.asp" End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> Search Results at Hire It Out <% If rs.RecordCount > 0 Then %>
<%Do Until rs.EoF%> <% rs.MoveNext Loop %>

Address
Contacts
Description
    
<%=Server.HTMLEncode(rs.Fields("txtCompany").Value)%>
<%=Server.HTMLEncode(rs.Fields("txtAddress1").Value)%>
<%=Server.HTMLEncode(rs.Fields("txtAddress2").Value)%>
<%=Server.HTMLEncode(rs.Fields("txtAddress3").Value)%>
<%=Server.HTMLEncode(rs.Fields("txtPostalCode").Value)%>
<%=Server.HTMLEncode(rs.Fields("txtCountry").Value)%>

Phone <%=Server.HTMLEncode(rs.Fields("txtPhone").Value)%>
Fax <%=Server.HTMLEncode(rs.Fields("txtFax").Value)%>

Email  "><%=Server.HTMLEncode(rs.Fields("txtEmail").Value)%>
Website " target="_blank"><%=Server.HTMLEncode(rs.Fields("txtWebsite").Value)%>		 <%=Server.HTMLEncode(rs.Fields("txtDescription").Value)%>


Search Results for: <%=strWhere%>

 

<% Else %>





Sorry, no search results for: <%=strWhere%>

Please use the 'Back' button on your browser to try another search...
<% End If %>