Boyd & Boyd

<% Dim rsResidents, rsCategories, rsLinks Set rsLinks = Server.CreateObject("ADODB.Recordset") Set rsResidents = Server.CreateObject("ADODB.Recordset") Set rsCategories = Server.CreateObject("ADODB.Recordset") %>

► Links

► Information for New Residents

► For more information, questions, or comments, please contact us.

You may have known our building as Ponderosa, among other restaurants, but now 204 E. 5 th St. has found a new life as the home of Boyd & Boyd, Inc.

► Learn More

nformation for new residents of Callaway County www.callaway.county.missouri.org

<% rsCategories.Open "SELECT * FROM Categories ORDER BY cat_order", Database, 3, 3 rsLinks.Open "SELECT * FROM Links", Database, 3, 3 Do Until rsCategories.EOF rsResidents.Open "SELECT * from Residents WHERE res_cat='" & rsCategories("cat_name") & "' ORDER BY res_order", Database, 3, 3 If NOT rsResidents.EOF Then %> <% End If Do Until rsResidents.EOF If background = "dark" Then Response.Write "" background = "light" Else Response.Write "" background = "dark" End If %> <% rsResidents.MoveNext %> <% If Not rsResidents.EOF Then rsResidents.MoveNext End If Loop rsResidents.Close rsCategories.MoveNext Loop If NOT rsLinks.EOF Then %> <% End If Do Until rsLinks.EOF If background = "dark" Then Response.Write "" background = "light" Else Response.Write "" background = "dark" End If %> <% rsLinks.MoveNext %> <% If Not rsLinks.EOF Then rsLinks.MoveNext End If Loop %>

<%=rsCategories("cat_name")%>
<% For Each Item in rsResidents.Fields If Item.Name <> "res_ID" and Item.Name <> "res_cat" and Item.Name <> "res_order" and rsResidents(Item.Name) <> "" Then If Item.Name = "res_email" Then Response.Write "E-Mail Address" & " " & vbCrlF ElseIf Item.Name = "res_web" Then Response.Write "Web Address" & " " & vbCrlF Else Response.Write rsResidents(Item.Name) & " " & vbCrlF End If End If Next %>	<% If rsResidents.EOF Then Response.Write " " & vbCrlF Else For Each Item in rsResidents.Fields If Item.Name <> "res_ID" and Item.Name <> "res_cat" and Item.Name <> "res_order" and rsResidents(Item.Name) <> "" Then If Item.Name = "res_email" Then Response.Write "E-Mail Address" & " " & vbCrlF ElseIf Item.Name = "res_web" Then Response.Write "Web Address" & " " & vbCrlF Else Response.Write rsResidents(Item.Name) & " " & vbCrlF End If End If Next End If %>
Links for More Information About Title Insurance:
<% Response.Write rsLinks("link_name") & " " & vbCrLf Response.Write "" & rsLinks("link_address") & " " & vbCrLf %>	<% If rsLinks.EOF Then Response.Write " " & vbCrlF Else Response.Write rsLinks("link_name") & " " & vbCrLf Response.Write "" & rsLinks("link_address") & " " & vbCrLf End If %>