|
|
<%if getMidia("full") <> "" then%>
|
|
<%end if%>
|
|
|
<%if NOT RsV.eof then%>
<%=RsV("url_link")%> |
|
<%=RsV("titulo")%> |
|
|
<%end if%>
<%c = 0
WHILE NOT RsN.EOF%>
<%=RsN("Titulo")%> |
|
<%=RsN("chamada")%> |
<%if c = 0 then%>
<%end if
c = c+1
RsN.MoveNext
Wend%>
|
|
|
|
|
|
|
|
<%WHILE NOT RsN1.EOF%>
<%=RsN1("Titulo")%> |
|
<%=RsN1("chamada")%> |
<%
RsN1.MoveNext
Wend%>
|
|
<%if getMidia("hotspot1") <> "" then %><%end if%> |
<%if getMidia("hotspot2") <> "" then %><%end if%> |
|
|
|
|
<%WHILE NOT RsN1.EOF%>
<%if Rsn1("Url_IMG") <> "" then%>
" border="0"> |
|
<%else%>
|
<%end if%>
<%=TextoForm(RsN1("Titulo"))%>
<%=TextoForm(RsN1("chamada"))%>
<%if RsN1("url_link") <> "" then%><%=RsN1("url_link")%><%end if%>
|
<%RsN1.MoveNext
Wend%>
|
VeterinᲩa OnLine |
|
Colunas |
|
Padrinhos |
<%Call abre_conexao(veterinario)
StrSql = "SELECT titulo,id_materia FROM tbl_materia WHERE FLG_OK =1"
Set RsC = Server.CreateObject("ADODB.Recordset")
RsC.open StrSql,conn,3,1
If NOT RsC.eof then
RsC.Move (Randomico(RsC.RecordCount)-1)%>
|
|
<%end if%>
<%Call abre_conexao(website)
StrSql = "SELECT titulo,coluna,id_colunaTexto,id_coluna FROM vw_colunaTexto WHERE FLG_OK =1"
Set RsC = Server.CreateObject("ADODB.Recordset")
RsC.open StrSql,conn,3,1
If NOT RsC.eof then
RsC.Move (Randomico(RsC.RecordCount)-1)%>
|
|
<%end if%>
Ajude o Projeto CEL
O CEL Procura por Anjos, e este Anjo pode ser voc?/b>!
leia mais
|
|
|
|
|
|
|
|
Consciência |
|
|
|
Nossa missão não se trata apenas de ajudar todos os animais que encontramos, até porque isto seria impossível, mas sim conscientizar as pessoas de que os animais são seres vivos e que TODOS nós temos o DEVER de respeitá-los e fazermos a nossa parte! |
|
|
|
|
Vamos Adotar! |
|
|
|
Nestes últimos mêses em que, graças a nossos parceiros, pudemos realizar nossas Feiras de Adoção, conseguimos encontrar novos lares para inúmeros animais. Colabore, se você já tem um grande amigo peludo, divulgue nossas Feiras para seus outros amigos! |
|
|
|
<%Call abre_conexao(parceiro)
StrSql = "SELECT site,url_logo,nome,id_parceiro FROM tbl_parceiro WHERE flg_OK = 1 ORDER BY nome"
Set RsP1 = Server.CreateObject("ADODB.Recordset")
RsP1.open StrSql,conn,3,1
If NOT RsP1.eof then
RsP1.Move (Randomico(RsP1.RecordCount)-1)
id = RsP1("id_parceiro")
if RsP1("id_parceiro") = 6 then%>
" border="0" width="84"> |
<%else %>
" target="_blank">" border="0" width="84"> |
<%end if
end if%>
|
<%StrSql = "SELECT site,url_logo,nome,id_parceiro FROM tbl_parceiro WHERE flg_OK = 1 AND id_parceiro<>"&id&" ORDER BY nome"
Set RsP1 = Server.CreateObject("ADODB.Recordset")
RsP1.open StrSql,conn,3,1
If NOT RsP1.eof then
RsP1.Move (Randomico(RsP1.RecordCount)-1)
if RsP1("id_parceiro") = 6 then%>
" border="0" width="84"> |
<%else %>
" target="_blank">" border="0" width="84"> |
<%end if
end if%>
|
|
|
|
|
<%if getMidia("half1") <> "" OR getMidia("half2") <> "" then%>
<%if getMidia("half1") <> "" then%> |
| <%end if%>
<%if getMidia("half2") <> "" then%> | <%end if%>
|
|
<%end if%>
|
|
|
|
|
<%if getMidia("header") <> "" then%>
|
|
<%end if%>
|
|
<%Call abre_conexao(loja)
StrSql = "SELECT url_IMGP, produto, categoria,id_produto,preco FROM tbl_produto WHERE FLG_OK=1"
Set RsP1 = Server.CreateObject("ADODB.Recordset")
RsP1.open StrSql,conn,3,1
If NOT RsP1.eof then
RsP1.Move (Randomico(RsP1.RecordCount)-1)
id = RsP1("id_produto")%>
" class="mais">" border="0"> |
|
" class="produto_home"><%=RsP1("produto")%>
R$ <%=RsP1("preco")%>
|
<%end if%>
|
|
|
<%StrSql = "SELECT url_IMGP, produto, categoria,id_produto,preco FROM tbl_produto WHERE FLG_OK=1 AND id_produto<>"&id
Set RsP2 = Server.CreateObject("ADODB.Recordset")
RsP2.open StrSql,conn,3,1
If NOT RsP2.eof then
RsP2.Move (Randomico(RsP2.RecordCount)-1)%>
" class="mais">" border="0"> |
|
" class="produto_home"><%=RsP2("produto")%>
R$ <%=RsP2("preco")%>
|
<%id2 = RsP2("id_produto")
end if%>
|
|
|
<%StrSql = "SELECT url_IMGP, produto, categoria,id_produto,preco FROM tbl_produto WHERE FLG_OK=1 AND id_produto NOT IN("&id&","&id2&")"
Set RsP2 = Server.CreateObject("ADODB.Recordset")
RsP2.open StrSql,conn,3,1
If NOT RsP2.eof then
RsP2.Move (Randomico(RsP2.RecordCount)-1)%>
" class="mais">" border="0"> |
|
" class="produto_home"><%=RsP2("produto")%>
R$ <%=RsP2("preco")%>
|
<%id3 = RsP2("id_produto")
end if%>
|
|
|
<%StrSql = "SELECT url_IMGP, produto, categoria,id_produto,preco FROM tbl_produto WHERE FLG_OK=1 AND id_produto NOT IN("&id&","&id2&","&id3&")"
Set RsP2 = Server.CreateObject("ADODB.Recordset")
RsP2.open StrSql,conn,3,1
If NOT RsP2.eof then
RsP2.Move (Randomico(RsP2.RecordCount)-1)%>
" class="mais">" border="0"> |
|
" class="produto_home"><%=RsP2("produto")%>
R$ <%=RsP2("preco")%>
|
<%end if%>
|
|
|
<%if getMidia("middle") <> "" then%>
|
|
<%end if%>
|
|
|
<%Call abre_conexao(website)
StrSql = "SELECT contato,email,telefone,txt_achadoperdido, nome,especie, id_achadoperdido,sexo,idade,data_hora,porte,url_img,flg_tipo FROM tbl_achadoperdido WHERE flg_OK=1 AND flg_tipo='A' ORDER By id_achadoperdido DESC"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open StrSql,conn,3,1
If NOT Rs.eof then
Rs.Move (Randomico(Rs.RecordCount)-1)%>
<%if Rs("url_Img") <> "" then%>
<%else%>
&flg_tipo=<%=Rs("flg_tipo")%>">.jpg" width="124" height="94" border="0">
<%end if%> |
&flg_tipo=<%=Rs("flg_tipo")%>" class="produto_home"><%=lcase(Rs("nome"))%> |
<%end if%>
|
|
|
<%Call abre_conexao(website)
StrSql = "SELECT contato,email,telefone,txt_achadoperdido, nome,especie, id_achadoperdido,sexo,idade,data_hora,porte,url_img,flg_tipo FROM tbl_achadoperdido WHERE flg_OK=1 AND flg_tipo='P' ORDER By id_achadoperdido DESC"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open StrSql,conn,3,1
If NOT Rs.eof then
Rs.Move (Randomico(Rs.RecordCount)-1)%>
<%if Rs("url_Img") <> "" then%>
<%else%>
&flg_tipo=<%=Rs("flg_tipo")%>">.jpg" width="124" height="94" border="0">
<%end if%> |
&flg_tipo=<%=Rs("flg_tipo")%>" class="produto_home"><%=lcase(Rs("nome"))%> |
<%end if%>
|
|
|
<%if getMidia("footer") <> "" then%>
|
|
<%end if%>
|
<%if getMidia("vertical") <> "" then%>
|
<%end if%>
|
|
|