<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Data" %> <% '-- sacamos la frase lapidaria dim cont as integer dim indice as integer dim ds as new DataSet() ds.readxml(server.MapPath("frases.xml")) cont=ds.tables(0).rows.count '-- sacamos el numero aleatorio Randomize indice=int(cont*RND()) frasecabecera.text=ds.tables(0).rows(indice)("Frase")&". "&ds.tables(0).rows(indice)("Autor") %>

<%=DateTime.Now.ToString("f", new System.Globalization.CultureInfo("es-ES"))%>      Alojamiento WEB   Diseño y Rediseño Web   Tiendas Virtuales   Visitas Virtuales   Alta y Posicionamiento en Buscadores   Portfolio   Soporte                   Monitorizacion de Servidores Servidores Windows Servidores Linux Servidores Correo Servidores SQLServer     Home - Correo - Alojamiento - Diseño Web - Imagen Empresa - Tiendas Virtuales - Visitas Virtuales - Posicionamiento Buscadores- Portfolio - Soporte - Mapa ©Copyright 2004 Equanimity Solutions - Todos los derechos reservados