ASP Titulos, keywords, descriptions etc... Infinitas

Supongamos por un momento que tenemos una pequeña o mediana web con suficiente texto como para estar bién posicionados y el muy amable señor que está destrás del posicionamiento en google no nos posiciona bién porque no tenemos suficientes "palabras clave" en nuesta web.

Ese señor amigo de los chinitos que hay dentro el ordenador, calculadoras (que era eso ~), etc...

Bueno, supongamos que para crear unos 60 titulos diferentes, con sus 60 descripciones y sus X keywords necesitaríamos unas... no sé... ¿60 páginas? ¡¡¡viva las matemáticas, y yo sin carrera!!!

Poz No!

vamos a empezar por una bd con 6 campos
id_palabras/ par_impar / title / keywors / description /

que serían del palo
autonumérico/ num/ num/ txt/ txt/ txt o memo (dependiendo del texto que queráis meter)

Bién, vamos a explicar. La función de esta obra será crear una variable de tiempo que según los segundos que sean y si los minutos son pares o impares, imprimiremos en los metas cierta info.
(Recomiendo hacerlo por fechas y no por segundos ya que google no nos visita en todo momento, pero por segundos lo podreis comprobar sin tener que esperar un dia entero)

Ok. Rellenamos los campos ejemplo:

1-
par_impar 0 o 1 / Las mejores bodas del año / boda, tu boda, bodaclick, todoboda, bouquetnuvis / Visita la mejor web de bodas del mundo entero. Preparate para el mejor dia de tu vida ... etc!

2-
par_impar 0 .....

Así hasta 120 o hasta 86.400 <- segs/dia, pero empezemos por poco y cada un@ a lo suyo.

Despues de una semanita pensando e introduciendo frases, keywords y titles, vamos a programar.

Function RandomNumber(inicio, fin)
Randomize()
RandomNumber = Int((fin - inicio + 1) * Rnd + inicio)
End Function
segundos=RandomNumber(0, 59)
segundos=Cint(segundos)+1
select Case abs(segundos) mod 2
case 0:
par_impar = 0
case 1:
par_impar = 1
end select

Esta simple función lo que hace es sacar un numero aleatorio entre 0 i 59 que seran los segundos i le sumamos 1 ya que no hay id_palabras "0". Luego comprobamos que sea par o impar para los minutos(esto hos lo podeis ahorrar si solo habeis escrito 60 registros).
seguimos:

<!--#include file="Connections/extres.asp" -->

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_extres_STRING
rs.Source = "SELECT * FROM palabras where segundos = "&segundos&" and minutos= "&minutos
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
title=rs("title")
description=rs("description")
keys=rs("keywords")
rs.close()
set rs=Nothing

Acabamos de crear una consulta a la base de datos y hemos sacado al azar un registro de entre 120.

Ahora ya podemos construir nuestra página:

<title><%=tittle%> del blog de Redkram</ title>
<meta name="description" content="<%=description%>">
<meta name="keywords" content="<%=keys%>">

Ademas no hos olvideis de los famosos <!-- , los titles , alts, summarys, names... todo dinámico.

Si usáis este código, pediría que hiciérais referencia a este blog, ya se que no se hace casi nunca, pero algún dia se debe empezar.
Gracias de antemano.

SALU2 RK (Códigos desenvolupados o modificados, en ningún caso copiados)