% @LCID = 1034 %> <%Option Explicit dim conexion, registros, sql, registros2 set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") set registros2 = Server.CreateObject ("ADODB.RECORDSET") dim hoy,num hoy=WeekDayName(WeekDay(date)) num=DatePart("y", date) num=Server.URLEncode(num) %>
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||