ToT Lleida - Tu portal de Lleida en Internet

<% if Request.Querystring("pagina")="" then PaginaActual=1 else PaginaActual=CInt(Request.Querystring("pagina")) end if paraulab =CStr(Request.Querystring("paraulab")) paraula = Request.Form("paraula") categoria = Request.Form("categoria") Set grupconnexio = Server.CreateObject("ADODB.Connection") grupconnexio.ConnectionString = "DSN=totlleida.com.ofimatica;UID=totlleida.com;PWD=tucan" grupconnexio.Open if paraulab<>"" then paraula=paraulab end if if paraula="" then %>

<% ' Codigo para mostrar la fecha Sub LFecha() Dim lDay Dim lMonth lDay = Array ("","Lunes","Martes","Miércoles","Jueves","Viernes","Sábado","Domingo") lMonth = Array ("","Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto", "Septiembre","Octubre","Noviembre","Diciembre") %> <% Response.write lDay (weekday (now, 2)) & ", " & Day (Now) & " " & lMonth(Month(Now)) & " " & Year(Now) & " " End Sub ' muestra la fecha de hoy Call LFecha %>