E:
/
home
/
kbcomunicacao1
/
Web
/
Upload File
HOME
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>KB Comunicação</title> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; background-image:url(backgroung_kb.png); font-family:Verdana, Geneva, sans-serif; font-size:11px; line-height: 150%; text-align:justify; overflow-x: hidden; } .fundo1{ background-image:url(laranja.jpg); background-repeat:repeat-x; } a:link { color: #000; text-decoration: none; } a:visited { text-decoration: none; color: #000; } a:hover { text-decoration: underline; color: #000; } a:active { text-decoration: none; color: #000; } #box { left:50%; margin-left:-950px; /* metade da largura fictícia */ position:absolute; width:1900px; background-image:url(infinito.png); background-repeat:repeat-x; height: 35px; } .busca{ background-image:url(busca.jpg); border:0px solid #FFF; font-size:12px; padding:2px; width:129px; height:21px; } p{ text-align:justify; } --> </style></head> <body> <!-- #include file ="conexao.asp" --> <!--#include file="asp_twitter_lib.asp" --> <!--[if lt IE 7]> <script defer type="text/javascript" src="pngfix.js"></script> <![endif]--> <script type="text/javascript" src="flash.js"></script> <% id = request("id") Set recLogo = Server.CreateObject("Adodb.RecordSet") SQL = "SELECT logo2, categoria, atendimento, telefone, email, msn, nome, twitter, facebook, linked, orkut, flickr, youtube, vimeo, rss, site, blog FROM cliente WHERE id="&id recLogo.Open SQL, conbanco categoria = recLogo("categoria") atendimento = recLogo("atendimento") telefone = recLogo("telefone") email = recLogo("email") msn = recLogo("msn") nome = recLogo("nome") logo = recLogo("logo2") twitter = recLogo("twitter") facebook = recLogo("facebook") linked = recLogo("linked") orkut = recLogo("orkut") flickr = recLogo("flickr") youtube = recLogo("youtube") vimeo = recLogo("vimeo") rss = recLogo("rss") site = recLogo("site") blog = recLogo("blog") recLogo.close set recLogo = nothing Set recCategoria = Server.CreateObject("Adodb.RecordSet") SQL = "SELECT categoria FROM categoria WHERE id="&categoria recCategoria.Open SQL, conbanco nomeCategoria = recCategoria("categoria") recCategoria.close set recCategoria = nothing Dim intPageSize Dim intPageCount Dim intPageCurrent intPageSize = 8 If Request("page") = "" Then intPageCurrent = 1 Else intPageCurrent = CInt(Request("page")) End If '--------------------- Variáveis para controle da paginação -------------------- Dim Rs_DADOS, PagNav, TotalPag Dim Anterior, Proximo, Jo, PaginaVisita Set Rs_DADOS = Server.CreateObject("Adodb.RecordSet") conbanco.CursorLocation = 3 Rs_DADOS.PageSize = 10 SQL = "SELECT id, titulo, dia, mes, url FROM midia WHERE cliente ="&id&" ORDER BY id DESC" Rs_DADOS.Open SQL, conbanco If Rs_DADOS.Eof Then Response.Write("<tr><td height=""28"" align=""center"">LISTA VAZIA</td></tr>") Else PagNav = CInt(Request.QueryString("Pages")) If (PagNav = 0) Then : PagNav = 1 : End If Rs_DADOS.AbsolutePage = PagNav TotalPag = Rs_DADOS.PageCount %> <table width="100%" class="fundo1" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <table width="998" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="36" colspan="4" bgcolor="#F26722"><strong style="color:#FFF; font-size:14px;"><img src="blank.gif" width="31" height="16" align="left" />CATEGORIA: <%=nomeCategoria%></strong></td> </tr> <tr> <td width="313" height="5"></td> <td width="53"></td> <td width="569" colspan="2"></td> </tr> <tr> <td colspan="4" align="center" valign="top"> <table width="998" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="left" valign="top"> <table width="998" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="24" align="center"> </td> <td valign="top"> </td> <td colspan="2" valign="top"> </td> </tr> <tr> <td width="342" height="24" align="right"><img src="logos/<%=logo%>" vspace="0" /></td> <td width="15" valign="top"><img src="seta.png" width="15" height="17" hspace="10" vspace="0" /></td> <td colspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="66%"> <% Set recLogo = Server.CreateObject("Adodb.RecordSet") SQL = "SELECT thumb, id FROM cliente WHERE categoria="&categoria&" AND id <> "&id&" ORDER BY nome ASC" recLogo.Open SQL, conbanco do while not recLogo.eof %> <a href="blog.asp?id=<%=recLogo("id")%>"><img src="logos/<%=recLogo("thumb")%>" hspace="2" vspace="0" border="0" /></a> <% recLogo.movenext loop recLogo.close set recLogo = nothing %> </td> <td width="34%" align="right" valign="top"><a href="http://www.facebook.com/pages/KB-Comunica%C3%A7%C3%A3o/130556570356295" target="_blank"><img src="facebook.png" alt="FACEBOOK" hspace="2" border="0" /></a><a href="http://twitter.com/#!/kbcomunica" target="_blank"><img src="twitter.png" alt="TWITTER" hspace="2" border="0" /></a><a href="http://www.flickr.com/photos/kbcomunicacao/" target="_blank"><img src="flicker.png" alt="FLICKER" hspace="2" border="0" /></a><a href="feed.asp" target="_blank"><img src="feed.png" alt="FEED" hspace="2" border="0" /></a><a href="http://www.slideshare.net/KbComunicao" target="_blank"><img src="slider.png" alt="SLIDERSHARE" hspace="2" border="0" /></a><a href="http://issuu.com/kbcomunicacao" target="_blank"><img src="issuu.png" alt="SLIDERSHARE" hspace="2" border="0" /></a><a href="http://www.kbcomunicacao.blogspot.com" target="_blank"><img src="blog.png" alt="SLIDERSHARE" hspace="2" border="0" /></a></td> </tr> </table></td> </tr> <tr> <td height="24" align="center"> </td> <td colspan="2" valign="top"> <table width="440" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="113" align="left"> </td> <td width="104" align="left"><a href="blog.asp?id=<%=id%>"><img src="blog_release.png" border="0" onMouseOver="this.src='blog_release2.png'" onMouseOut="this.src='blog_release.png'"/></a></td> <td width="114" align="center"><a href="blog3.asp?id=<%=id%>"><img src="blog_imagens.png" border="0" onMouseOver="this.src='blog_imagens2.png'" onMouseOut="this.src='blog_imagens.png'"/></a></td> <td width="109" align="center"><a href="blog4.asp?id=<%=id%>"><img src="blog_namidia2.png" border="0" onMouseOver="this.src='blog_namidia2.png'" onMouseOut="this.src='blog_namidia2.png'"/></a></td> </tr> </table> </td> <td width="151" align="right" valign="top"> </td> </tr> <tr> <td height="24" align="center"> </td> <td valign="top"> </td> <td width="533" valign="top"> </td> <td align="right" valign="top"> </td> </tr> <tr> <td height="24" colspan="3" align="left" valign="top"> <% While Not Rs_DADOS.Eof And Rs_DADOS.AbsolutePage = PagNav %> <table width="674" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td background="blog_noticia_topo.png"> <table width="674" height="82" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top"> <table width="674" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="595" height="35"> </td> <td width="79" rowspan="2" style="color:#FFF; font-size:20px; line-height: 100%;"><strong><%=Rs_DADOS("dia")%>/<br /><%=Rs_DADOS("mes")%></strong></td> </tr> <tr> <td height="40"><table width="96%" border="0" align="right" cellpadding="0" cellspacing="0"> <tr> <td align="left"><table width="96%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="text-align:justify;"><a style="color:#cc4f27; font-size:14px; text-align:justify;" href="<%=Rs_DADOS("url")%>" target="_blank"><strong><%=Rs_DADOS("titulo")%></strong></a></td> </tr> </table></td> </tr> </table></td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td background="blog_noticia_meio.png"> </td> </tr> <tr> <td><img src="blog_noticia_baixo.png" width="674" height="23" /><br /><br /></td> </tr> </table> <% Rs_DADOS.MoveNext : Wend Anterior = PagNav - 1 Proximo = PagNav + 1 If (Anterior <= 0) Then : Anterior = 1 : End If If (Proximo > TotalPag) Then : Proximo = TotalPag : End If %> <table border="0" align="center" cellpadding="0" cellspacing="4"> <tr> <td align="center" class="texto"> <% Pages = request("Pages") paginaanterior = Pages - 1 if paginaanterior <= 0 then paginaanterior = 1 end if if Pages <> 1 AND Pages <> 0 then %> <a href="blog4.asp?id=<%=id%>&Pages=<%=paginaanterior%>" ><strong>Página Anterior</strong></a> <% end if PaginaVisita = CInt(Request.QueryString("Pages")) If PagNav > 1 Then Response.Write("<a href=""blog4.asp?id="&id&"&Pages="&Anterior&""" "&_ "style=""font: 12px Arial; color: #FFFFFF;""> « </a>") End If If PagNav > 5 Then Response.Write(" ... ") End If If PagNav <= 5 Then If TotalPag >= 5 Then For Jo = 1 To 5 If PagNav = Jo Then Response.Write("<strong>"&Jo&"</strong> ") Else Response.Write("<a href=""blog4.asp?id="&id&"&Pages="&Jo&""" style=""color:#412219; font-size:11px; text-decoration:none"" class=""fonte"">"&Jo&" </a>") End If Next Else For Jo = 1 To TotalPag If PagNav = Jo Then Response.Write("<strong style=""color:#412219; font-size:11px;"">"&Jo&"</strong> ") Else Response.Write("<a href=""blog4.asp?id="&id&"&Pages="&Jo&""" style=""color:#412219; font-size:11px; text-decoration:none"">"&Jo&" </a>") End If Next End If End If If PagNav > 5 Then PagNav = PagNav + 4 Pg = PagNav MaxB = Request.QueryString("Pages") - 1 If (MaxB + 1) = TotalPag Then For Jo = MaxB To (Pg - 4) If PaginaVisita = Jo Then Response.Write("<strong>"&Jo&"</strong> ") Else Response.Write("<a href=""blog4.asp?id="&id&"&Pages="&Jo&""" style=""color:#412219; font-size:11px; text-decoration:none"">"&Jo&" </a>") End If Next ElseIf (MaxB + 2) = TotalPag Then For Jo = MaxB To (Pg - 3) If PaginaVisita = Jo Then Response.Write("<strong>"&Jo&"</strong> ") Else Response.Write("<a href=""blog4.asp?id="&id&"&Pages="&Jo&""" style=""color:#412219; font-size:11px; text-decoration:none"">"&Jo&" </a>") End If Next Else For Jo = (MaxB - 1) To (Pg - 2) If PaginaVisita = Jo Then Response.Write("<strong>"&Jo&"</strong> ") Else Response.Write("<a href=""blog4.asp?id="&id&"&Pages="&Jo&""" style=""color:#412219; font-size:11px; text-decoration:none"">"&Jo&" </a>") End If Next End If End If If (TotalPag <> PaginaVisita) And (TotalPag >= 5) Then Response.Write(" ... ") End If paginaproxima = request("Pages") paginaproxima = cINT(paginaproxima) TotalPag = cINT(TotalPag) 'response.Write(paginaproxima) 'response.End() if paginaproxima = TotalPag then paginaproxima = TotalPag else paginaproxima = Pages + 1 %> <a href="blog4.asp?id=<%=id%>&Pages=<%=paginaproxima%>"><strong>Próxima Página</strong></a> <% end if %> </td> </tr> </table> <% End If Rs_DADOS.close Set Rs_DADOS = Nothing %> </td> <td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="249" valign="top"> <table background="blog_contato.png" width="262" height="234" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="36"> </td> </tr> <tr> <td><table width="100%" border="0" cellspacing="3" cellpadding="3"> <tr> <td height="35" colspan="2"><strong style="font-size:14px;"><%=nome%></strong></td> </tr> <tr> <td width="11%"><img src="atendimento.png" width="16" height="16" /></td> <td width="89%"><%=atendimento%></td> </tr> <tr> <td><img src="phone.png" width="16" height="16" /></td> <td><%=telefone%></td> </tr> <tr> <td><img src="email.png" width="16" height="16" /></td> <td><a href="mailto:<%=email%>"><%=email%></a></td> </tr> <tr> <td><img src="msn.png" width="16" height="16" /></td> <td><%=msn%></td> </tr> <tr> <td><img src="twitter16.png" width="16" height="16" /></td> <td><a href="http://kbcomunicacao.com/@kbcomunica" target="_blank">Follow Me</a></td> </tr> </table></td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td height="310"><table background="midia_social.png" width="262" height="400" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="36"> </td> </tr> <tr> <td><table width="100%" border="0" cellspacing="3" cellpadding="3"> <tr> <td colspan="2"><strong >Redes Sociais</strong></td> </tr> <tr> <td><img src="twitter16.png" width="16" height="16" /></td> <td><a href="<%=twitter%>" target="_blank">Twitter</a></td> </tr> <tr> <td><img src="face16.png" width="16" height="16" /></td> <td><a href="<%=facebook%>" target="_blank">Facebook</a></td> </tr> <tr> <td><img src="linkden16.png" width="16" height="16" /></td> <td><a href="<%=linked%>" target="_blank">Linked In</a></td> </tr> <tr> <td><img src="orkut16.png" width="16" height="16" /></td> <td><a href="<%=orkut%>" target="_blank">Orkut</a></td> </tr> <tr> <td colspan="2"><strong >Canais Sociais</strong></td> </tr> <tr> <td><img src="flicker16.png" width="16" height="16" /></td> <td><a href="<%=flickr%>" target="_blank">Flickr</a></td> </tr> <tr> <td><img src="youtube16.png" width="16" height="16" /></td> <td><a href="<%=youtube%>" target="_blank">Youtube</a></td> </tr> <tr> <td><img src="vimeo16.png" width="16" height="16" /></td> <td><a href="<%=vimeo%>" target="_blank">Vimeo</a></td> </tr> <tr> <td colspan="2"><strong>Feed Notícias</strong></td> </tr> <tr> <td width="11%"><img src="feed16.png" width="16" height="16" /></td> <td width="89%"><a href="<%=rss%>" target="_blank">RSS</a></td> </tr> <tr> <td><img src="site16.png" width="16" height="16" /></td> <td><a href="<%=site%>" target="_blank">Website</a></td> </tr> <tr> <td><img src="blog16.png" width="16" height="16" /></td> <td><a href="<%=blog%>" target="_blank">Blog Corporativo</a></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td height="320"><script src="http://connect.facebook.net/en_US/all.js#xfbml=1"></script><fb:like-box href="http://www.facebook.com/pages/KB-Comunica%C3%A7%C3%A3o/130556570356295" height="290" width="260" show_faces="true" stream="false" header="true"></fb:like-box></td> </tr> <tr> <td><table background="blog_twitter.png" width="262" height="260" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="36"><a href="http://twitter.com/#!/kbcomunica" target="_blank"><img src="blank.gif" width="239" height="27" border="0" /></a></td> </tr> <tr> <td><!--#include file="kb2.asp" --></td> </tr> </table></td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td height="24" align="center"> </td> <td valign="top"> </td> <td valign="top"> </td> <td align="right" valign="top"> </td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td colspan="4"> <div id="box"> </div> </td> </tr> <tr> <td colspan="4"> </td> </tr> <tr> <td colspan="4"> </td> </tr> <tr> <td colspan="4"><a href="cv.asp"><img src="kb_abaixo.png" alt="KB COMUNICAÇÃO" height="113" border="0" usemap="#Map" /></a> <map name="Map" id="Map"> <area shape="rect" coords="722,6,927,102" href="http://www.abracom.org.br/" target="_blank" /> </map></td> </tr> </table> </td> </tr> </table> <script type="text/javascript" src="flash.js"></script> </body> </html>