% ' Set cn=Server.CreateObject("ADODB.Connection") ' cn.Open "DSN=DatosWebtopia" sql="SELECT referencia FROM Contador" Set rs=cn.Execute(sql) if rs("referencia")<>Date() then ' ************************* Cambio Automático Default Vacaciones dim anterior dim nuevo anterior=0 nuevo=0 sql="Select * FROM Vacaciones" Set rs=cn.Execute(sql) do until rs.eof if rs("activo")=True then anterior=rs("Id") rs.MoveNext if rs.eof then rs.MoveFirst end if nuevo=rs("Id") do until rs.eof rs.MoveNext loop else rs.MoveNext end if loop sql="UPDATE Vacaciones SET activo=True WHERE Id="&nuevo Set rs=cn.Execute(sql) sql="UPDATE Vacaciones SET activo=False WHERE Id="&anterior Set rs=cn.Execute(sql) ' ************************* Cambio Automático Default Artículos anterior=0 nuevo=0 sql="Select * FROM Articulos" Set rs=cn.Execute(sql) do until rs.eof if rs("activo")=True then anterior=rs("Id") rs.MoveNext if rs.eof then rs.MoveFirst end if nuevo=rs("Id") do until rs.eof rs.MoveNext loop else rs.MoveNext end if loop sql="UPDATE Articulos SET activo=True WHERE Id="&nuevo Set rs=cn.Execute(sql) sql="UPDATE Articulos SET activo=False WHERE Id="&anterior Set rs=cn.Execute(sql) ' ************************* Cambio Automático Default Chistes anterior=0 nuevo=0 sql="Select * FROM Chistes" Set rs=cn.Execute(sql) do until rs.eof if rs("activo")=True then anterior=rs("Id") rs.MoveNext if rs.eof then rs.MoveFirst end if nuevo=rs("Id") do until rs.eof rs.MoveNext loop else rs.MoveNext end if loop sql="UPDATE Chistes SET activo=True WHERE Id="&nuevo Set rs=cn.Execute(sql) sql="UPDATE Chistes SET activo=False WHERE Id="&anterior Set rs=cn.Execute(sql) ' ************************* Cambio Automático Default Citas anterior=0 nuevo=0 sql="Select * FROM Citas" Set rs=cn.Execute(sql) do until rs.eof if rs("activo")=True then anterior=rs("Id") rs.MoveNext if rs.eof then rs.MoveFirst end if nuevo=rs("Id") do until rs.eof rs.MoveNext loop else rs.MoveNext end if loop sql="UPDATE Citas SET activo=True WHERE Id="&nuevo Set rs=cn.Execute(sql) sql="UPDATE Citas SET activo=False WHERE Id="&anterior Set rs=cn.Execute(sql) ' ************************* sql="UPDATE Contador SET referencia='"&Date()&"'" Set rs=cn.Execute(sql) Response.Redirect("felicitacion.asp") end if ' ************************* Datos para Vacaciones LugarNombre="Sin lugar específico" LugarImagen="" LugarTexto="" sql="SELECT * FROM Vacaciones WHERE activo=True" Set rs=cn.Execute(sql) if not rs.eof then LugarNombre=rs("lugar") LugarImagen="imagenes/vacaciones/"&rs("Id") & ".jpg" LugarTexto=rs("caratula") end if ' ************************* Datos para Artículos de interés ArticuloNombre="Sin artículo específico" ArticuloImagen="" ArticuloTexto="" sql="SELECT * FROM Articulos WHERE activo=True" Set rs=cn.Execute(sql) if not rs.eof then ArticuloNumero=rs("Id") ArticuloNombre=rs("titulo") ArticuloImagen="imagenes/interes/"&rs("imagen") ArticuloTexto=rs("caratula") end if ' ************************* Datos para lista de Cumpleaños sql="SELECT * FROM Boletin WHERE CumpleMes=" & Month(Date()) & " AND CumpleDia=" & Day(Date()) Set rs=cn.Execute(sql) ListaCumple="" if not rs.eof then ListaCumple = "Hoy celebramos el cumpleaños de: " do while not rs.eof ListaCumple = ListaCumple & Propio(rs("Nombre"))&", " rs.MoveNext loop ListaCumple = ListaCumple & " ¡¡¡MUCHAS FELICIDADES!!!..." else ListaCumple="No tenemos cumpleaños registrados para hoy" end if %>