<% Set cn = Server.CreateObject("ADODB.Connection") cn.Open = "Provider=SQLOLEDB;Server=SERVERNAME;uid=DBUSER;pwd=DBPASS;Database=DBNAME;" Set rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT misc3_realestate.by_affiliates.* FROM misc3_realestate.by_affiliates WHERE Website = 'X' ORDER BY misc3_realestate.by_affiliates.Company ASC" rs.Open SQL, cn %> Boyer Young | Omaha-area Land Development

Meet Our Affiliates

<% Do Until rs.EOF %>
<%=rs("Company")%>   <%If Not IsNull(rs("CompanyWebsite")) Then%>("><%=rs("CompanyWebsite")%>)<%End If%>
<%If Not IsNull(rs("FirstName")) Then%><%=rs("FirstName") & " " & rs("LastName")%>
<%End If%> <%If Not IsNull(rs("OfficeNumber")) Then%>Office:  <%=rs("OfficeNumber")%>
<%End If%> <%If Not IsNull(rs("CellNumber")) Then%>Cell:  <%=rs("CellNumber")%>
<%End If%> <%If Not IsNull(rs("FaxNumber")) Then%>Fax:  <%=rs("FaxNumber")%>
<%End If%> <%If Not IsNull(rs("PersonalEmail")) Then%>Email:  <%=rs("PersonalEmail")%>
<%End If%> <%If Not IsNull(rs("Address")) Then%>Address:
<%=rs("Address")%>
<%=rs("City")%>, <%=rs("State")%>  <%=rs("Zip")%><%End If%>
<% rs.MoveNext Loop %>