Código fuente de 'Metatags aleatorios.asp'

<%

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")%> - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<meta name="description" content="<%=session("description")%>">
<meta name="keywords" content="<%=session("keywords")%>">
</head>

<body style="font-family: Arial; font-size: 9pt">

<center><b><font face="Arial" size="3">Metatags aleatorios</font></b></center>
<br>
Metatags aleatorios (ver código). Este código nos permite generar 6 grupos de metatags distintos 
(title, description y keywords) en función de una variable aleatoria. Según el valor 
de esta variable tendremos títulos, descripciones y palabras clave distintas para la página web.<p></p>

</body>

</html>