|
|
<%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)
%>
Parceiros: |
|
|
<%x=1
While NOT Rs.eof %>
">" border="0"> |
<%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("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 %>
|
|
|
|
<%Rs.MoveNext
Wend
end if %>
|
|
|