<%Dim conn, Rs2 , Rs if request("letra")= "" then letra ="" else letra = ucase(request("letra")) end if session("lnk")="lnk11" %> Projeto CEL - Casa Esperança e Liberdade para Animais Carentes

<%for i = 1 to 26%> <%next%>

Espaço reservado para todos que colaboram com o dia-a-dia do Projeto CEL, para conhecer nossos parceiros selecione a letra desejada.
<%Call abre_conexao(parceiro) if letra="" then StrSql = "SELECT url_logo,nome FROM tbl_parceiro WHERE flg_OK = 1 ORDER BY nome" Set Rs = conn.execute(StrSql) %> <%x=1 While NOT Rs.eof %> <%if x MOD 4 = 0 then%> <%end if x=x+1 Rs.MoveNext Wend %> <%else if letra = "123" then criterio = criterio&" left(nome,1) IN ('1','2','3','4','5','6','7','8','9','0')" else criterio = criterio&" left(nome,1)='"&letra&"'" end if StrSql = "SELECT * FROM tbl_parceiro WHERE flg_OK = 1 AND "&criterio&" ORDER BY nome" Set Rs = conn.execute(StrSql) WHILE NOT rs.eof%> <%Rs.MoveNext Wend end if %>
Parceiros:
">" border="0">
<%=Rs("nome")%>
"> <%=TextoForm(Rs("texto_site"))%> <%if Rs("endereco") <> "" then%>

Endereço:
<%=Rs("endereco")%>, <%=Rs("num")%> <%if Rs("complemento") <> "" then%>
<%=Rs("complemento")%> <%end if if Rs("bairro") <> "" then%>
<%=Rs("bairro")%> <%end if if Rs("cidade") <> "" then%>
<%=Rs("cidade")%> - <%=Rs("estado")%> <%end if if Rs("cep") <> "" then%>
<%=Rs("cep")%> <%end if end if %>
  Contatos
<%if Rs("fone") <> "" then%> <%end if if Rs("email") <> "" then%> <%end if if Rs("site") <> "" then%> <%end if%>
<%=Rs("fone")%>
" class="texto"><%=Rs("email")%>
" class="texto" target="_blank"><%=Rs("site")%>
<%call fecha_conexao Set Rs = nothing%>