title e keywords

wilnet · Agosto 23, 2010

Olá pessoal todos bem?

Tenho um site de classificado on-line que à diversas categorias cadastradas, exemplo: Imobiliárias | Clínica Veterinária | Mamorárias |

Uso a mesma página para exibir todas as categorias quando clicados,

/listar.asp?lista=categoria&cat_id=90&nome=Imobiliárias

/listar.asp?lista=categoria&cat_id=132&nome=Despachante

Agora vem minha necessidade.

Quando eu clico para ver o código fonte dessa página, ela SEMPRE mostra o mesmo "Title e Keywords".

Desejo saber por favor, como eu posso fazer para deixar essas Meta TAGs de forma dinamica, ou seja, quando clicado na Categoria "Imobiliárias" exibir no:

Title= imobiliárias.

Keywords= Imóveis, imobiliárias, compra, venda, zona leste, zona sul, são paulo, etc...

Ou seja, embora seja a mesma página "listar.asp" mas para cada categoria, a TAGs ser correspondente a sua Categoria.

Já dei uma pesquisada no google, mas não me ajudou.

Já tentei inserir direto no HTML <title> <%=tag_titulo%> </title> e o mesmo para a tag Keywords mas não deu certo.

Por favor, gostaria da ajuda de todos.

Muito grato.

William

Vinicius Ianni · Agosto 23, 2010

supondo que exista um campo chamado titulo no db:

response.write "<title>"&rs("titulo")&"</title>"

supondo também que exista um campo chamado descrição:

response.write "<meta name='keywords' content=' &rs("descricao")&"'>"

wilnet · Agosto 23, 2010

Olá Vinicius obrigado, mas deu esse erro.

Eu fiz assim mas deu esse erro:

<%
Dim rs
response.write "<title>"&rs("tag_titulo")&"</title>"
%>

Microsoft VBScript runtime error '800a000d'

Type mismatch

/listaprod.asp, line 10

A linha 10 é essa: response.write "<title>"&rs("tag_titulo")&"</title>"

O BD é em Access e o CAMPO "Tag_titulo" é do tipo MEMORANDO.

Grato

xanburzum · Agosto 23, 2010

existe uma função que postei no lab. de script, pode te ajudar dá uma pesquisada lá...

wilnet · Agosto 23, 2010

Obrigado,

Mas não encontrei essa função na qual falou.

Fui em "Laboratório de scripts", rodei as 11 páginas, item a item.

O que achei que talves seria mas não era.

"Strip Tags HTML com Regular Expressions"

"Tag Cloud"

"Strip Tags HTML com Regular Expressions"

Procurei na BUSCA também por: tags, tags dinamicas, <title>, etc.

Você se lembra com qual titulo devo procurar? ou o link desse tópico.

Ainda, estou aceitando ajudas por favor.

Grato.

xanburzum · Agosto 23, 2010

olha este link

wilnet · Agosto 23, 2010

Obrigado pela contribuição.

Verifiquei seu post, criei a página, mas não é bem o que busco.

Veja, esse Script é para gerar as meta tags correto?

O que eu preciso foi como eu disse logo no primeiro post.

As tags para <title>...</title>

As tags para Keyword

Elas vão estar gravadas no Banco de Dados.

No entanto, na página listar.asp é que vem minha NECESSIDADE:

Ao ser clicada em qualquer Categoria, quando essa página tiver sido exibida, se for exibir o código fonte terá que mostrar nas Meta tags os textos referente a sua categoria.

é isso que estou buscando implentar.

grato a todos.

William

xanburzum · Agosto 23, 2010

dessa forma você também consegue mudar o código para gerar as suas tag´s...

wilnet · Agosto 23, 2010

Xanburzum,

Eu não quero Gerar metas-tags.

Eu quero exibi-las.

A página que lista as categorias é a mesma, porém, quero exibir as keywords e os Title próprias para cada categoria que já estão GRAVADAS no Banco de Dados.

Acho que você se equivocou em Gerar, eu estou buscando apenas uma forma para EXIBI-LAS, pois elas já existem.

Grato.

William

Vinicius Ianni · Agosto 24, 2010

testou com response.binarywrite ?

wilnet · Agosto 24, 2010

Olá Vinicius tudo bem?

Obrigado pela contribuição novamente.

Fiz assim:

<!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" >

<% Response.Expires = 0 %>
<% Response.buffer = "true"%>
 
<head>

<%
Dim rs
response.binarywrite "<title>"&rs("tag_titulo")&"</title>"
%>

Mas da erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch

Na base de dados, mudei o Campo "Tag_titulo" que era antes 'Memorando' agora passei para 'Texto'. Mas não consigo fazer e nem sei como posso fazer isso.

Grato.

xanburzum · Agosto 24, 2010

você criando assim:

Response.Write(Server.HTMLEncode("<meta name=" & <%=var_description &" content=" & <%=var_conteudo%> &" /"&>))

onde:

var_description = sua descrição meta name

var_conteudo = sua descrição meta content

ao invés de gerar, você apenas concatena o valor para o meta

wilnet · Agosto 24, 2010

Obrigado pela Contribuição Xanburzum,

Tenha paciência comigo ok rsrs, estou tentando acertar aos passos de formiguinha aqui.

Eu fiz assim:


<head>

<%
Dim var_description, var_conteudo

var_description= "keywords"
var_conteudo= "content"
Response.Write(Server.HTMLEncode("<meta name=" & <%=var_description & "content=" & <%=var_conteudo%> &" /"&>))
%>

Mas deu erro de sintaxe na do response.write.

E também uma DÚVIDA, as minhas palavras-chaves (meta keywords) e a descrição do TITLE estão na Base de dados. Como vão chama-las com esse código que me passou?

No meu BD tenho dois Campos:

Tag_title Campo "Texto" onde está a descrição para o <title> </title>

Tag_keywords Campo "Texto" onde está as palavras-chaves para a TAG <meta name="keywords" content=" ">

Uso a mesma página para exibir todas as categorias quando clicados,

/listar.asp?lista=categoria&cat_id=90&nome=Imobiliárias

/listar.asp?lista=categoria&cat_id=132&nome=Despachante

Quando eu clico para ver o código fonte dessa página, ela SEMPRE mostra o mesmo "Title e Keywords".

Desejo saber por favor, como eu posso fazer para deixar essas Meta TAGs de forma dinamica, ou seja, quando clicado na Categoria "Imobiliárias" exibir no:

Title= imobiliárias.

Keywords= Imóveis, imobiliárias, compra, venda, zona leste, zona sul, são paulo, etc...

Ou seja, embora seja a mesma página "listar.asp" mas para cada categoria, a TAGs ser correspondente a sua Categoria.

Grato,

William

xanburzum · Agosto 24, 2010

na verdade criando uma concatenação correta ele vai funcionar, mas o problema esta na sintaxe, nop exemplo de criar tags dinamica voce pode apenas concatenar mas precisa ter o Server.HTMLEncode concatenando as meta

olha este exemplo pode te ajudar

<%

random = 0
RANDOMIZE
randomnum = INT((6 - 1 + 1) * Rnd + 1)

if randomnum = 1 then session("title") = "Web Hosting by ehosting.com.  Frontpage, ASP, .NET, SQL, Access"
if randomnum = 2 then session("title") = "Frontpage and ASP Hosting Plans"
if randomnum = 3 then session("title") = "Microsoft ASP and FrontPage Hosting.  Shared or Dedicated Servers"
if randomnum = 4 then session("title") = "Web Hosting Server Plans by ehosting.com"
if randomnum = 5 then session("title") = "Host your site at ehosting.com for $9.99 a month!"
if randomnum = 6 then session("title") = "MS Frontpage, ASP, .NET, SQL, Access"
if randomnum = 7 then session("title") = "Web Hosting by ehosting.com.  Frontpage, ASP, .NET, SQL, Access"

if randomnum = 1 then session("description") = "Ehosting.com, web hosting specialists!  Frontpage, ASP, .NET, SQL, Access plans that you can afford.  We offer almost 100% uptime for your site!"
if randomnum = 2 then session("description") = "Frontpage and ASP Hosting Plans that suit your budget.  Plenty of space with 100 megabytes by default.  Set up 100's of email addresses at no extra cost.  Run your business online!"
if randomnum = 3 then session("description") = "Our hosting plans are worth checking out.  Click on our link and save money and time!"
if randomnum = 4 then session("description") = "Check out our special prices and domain names.  Domain name special ONLY $17.99 at ehosting.com"
if randomnum = 5 then session("description") = "Host your site here at ehosting.com for $9.99 a month!"
if randomnum = 6 then session("description") = "Better hosting at ehosting.com"
if randomnum = 7 then session("description") = "Host your business or personal site for $9.95 a month"

if randomnum = 1 then session("keywords") = "web hosting, hosting, business plans, asp hosting, .net hosting, microsoft hosting, hsting, web host, 100 megabytes, unlimited emails"
if randomnum = 2 then session("keywords") = "web hosting, hosting, business plans, asp hosting, .net hosting, microsoft hosting, hsting, web host, 100 megabytes, unlimited emails"
if randomnum = 3 then session("keywords") = "web hosting, hosting, business plans, asp hosting, .net hosting, microsoft hosting, hsting, web host, 100 megabytes, unlimited emails"
if randomnum = 4 then session("keywords") = "web hosting, hosting, business plans, asp hosting, .net hosting, microsoft hosting, hsting, web host, 100 megabytes, unlimited emails"
if randomnum = 5 then session("keywords") = "web hosting, hosting, business plans, asp hosting, .net hosting, microsoft hosting, hsting, web host, 100 megabytes, unlimited emails"
if randomnum = 6 then session("keywords") = "web hosting, hosting, business plans, asp hosting, .net hosting, microsoft hosting, hsting, web host, 100 megabytes, unlimited emails"
if randomnum = 7 then session("keywords") = "web hosting, hosting, business plans, asp hosting, .net hosting, microsoft hosting, hsting, web host, 100 megabytes, unlimited emails"

%>

<HTML>
<HEAD>
  <TITLE><%=session("title")%></TITLE>

 <META name="description" content="<%=session("description")%>">
 <META name="keywords"    content="<%=session("keywords")%>">

</HEAD>

este exemplo pega certinho

Public2004 · Agosto 24, 2010

Faça o acesso ao banco de dados e guarde os valores em variáveis antes de iniciar qualquer código HTML, ex:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
...
strTitle = rs("campo_title_bd")
strKeywords = rs("campo_keywords_bd")
...

E depois siga como o exemplo abaixo alterando de acordo com suas preferências o DOCTYPE, Charset, etc...

<!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><% =strTitle %></title>
<meta name="description" content="Seção referente a <% =strTitle %>." />
<meta name="keywords" content="<% =strKeywords %>" />
</head>
<body>
...
</body>
</html>

Att.

xanburzum · Agosto 24, 2010

olha esta forma, mais simples de entender:

session("title") = "seu titulo"
session("description") = "sua descrição"
session("keywords")= "seu keywords"

<TITLE><%=session("title")%></TITLE>

<META name="description" content="<%=session("description")%>">
 <META name="keywords"    content="<%=session("keywords")%>">

wilnet · Agosto 25, 2010

Bom dia colegas, obrigado pelas contribuições dadas e também pela Paciência em me ajudar.

Não sei o que mais fazer, já estamos a dias e minha cabeça já está confuza aqui rsrs.

Fiz um dos exemplos passado e ficou assim:


<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim lista_tags, strTitle, strKeywords

set lista_tags = dados.Execute("select * from clientes  ORDER BY tag_titulo")

strTitle = lista_tags("tag_titulo")
strKeywords = lista_tags("tag_keywords")
%>

<!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" >

<% Response.Expires = 0 %>
<% Response.buffer = "true"%>


 
<head>

<title><%=strTitle%></title>

<link rel=stylesheet href="estilo.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="keywords" content="<%=strKeywords %>"/>

Se deixo com a linha:

set lista_tags = dados.Execute("select * from clientes  ORDER BY tag_titulo")

Da esse erro: Microsoft VBScript runtime error '800a01a8'

Object required: ''

Se deixo sem da esse erro: Microsoft VBScript runtime error '800a000d'

Type mismatch

O que estou fazendo de errado amigos?

Minha cabeça já está confuza com esse script, tento de um geito e de outro mas sempre os mesmos erros.

Grato,

William

Vinicius Ianni · Agosto 25, 2010

Começa do começo, numa pagina em branco, só esse trecho.

puxa as informações do banco como se fosse uma informação normal e veja se a saida está normal ou apresenta algum erro.

Caso ocorra tudo bem, combina com as tags meta e veja se está tudo ok.

Acho estranho estar tão complicado algo que é corriqueiro para nós, puxar uma informação do db e exibir.

Public2004 · Agosto 25, 2010

dados.Execute... - Deve ser a conexão com o seu banco de dados e não estou vendo esta conexão declarada no código, por esta razão o erro.

Outro detalhe, porque está selecionando todos os registros do banco, não seria somente os campos referente ao registro em questão?

Siga a dica do Vinícius, crie esta rotina em uma página separada, faça a conexão, selecione o registro específico no banco, guarde os valores em variáveis e dá um response.write nestas para ver a saída na tela do navegador. Após corrigir, combine com os códigos com a sua página normal.

Att.

wilnet · Agosto 25, 2010

Olá Public2004, obrigado pela contribuição.

Veja, a conexao, está em um include, por isso não postei ela.

Uma dúvida por favor,

Outro detalhe, porque está selecionando todos os registros do banco, não seria somente os campos referente ao registro em questão?

isso gera alguma influência na conexão, tipo atrapalha no processamento da página deixar o ( * from )?

Voltando a sugestão dada, vou fazer uma página do zero somente para testar esse código então.

Grato,

William

Arquivado

title e keywords

Recommended Posts

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Public2004 79

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Public2004 79

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92