<% 'Response.Write(DateDiff("d", "01/01/2001", "02/01/2001")) if Request.Cookies("visited")="" then //Set theHit = Server.CreateObject("ADODB.Connection") //theHit.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/hits.mdb")) //x="insert into hit(hit) values(1)" //theHit.Execute(x) //Response.Cookies("visited")="yes" //Response.Cookies("visited").Expires= date + 1 end if Set db2 = Server.CreateObject("ADODB.Connection") db2.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/adminevents.mdb")) x="select max(id) as lastE from event where boss=1" set eQuery= db2.Execute(x) if eQuery("lastE")<>"" then lastEvent= eQuery("lastE") x="select * from event where id=" & lastEvent set eQuery= db2.Execute(x) x="select * from user where user='" & eQuery("user") & "'" set subQuery= db2.Execute(x) theClass2= subQuery("class") theClass2= "" etitle= eQuery("title") eimage1=eQuery("imgPath") ekey=eQuery("id") ekey= "events.asp?id=" & ekey else theClass2="AVISO:" etitle="No hay eventos para mostrar." eimage1="media.jpg" eKey="events.asp" end if Set db = Server.CreateObject("ADODB.Connection") db.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/adminews.mdb")) x="select max(id) as lastNews from news where boss=1" set query= db.Execute(x) if query("lastNews")<>"" then lastNews= query("lastNews") x="select * from news where id=" & lastNews set query= db.Execute(x) x="select * from user where user='" & query("user") & "'" set subQuery= db.Execute(x) theClass= subQuery("class") theClass= "" title= query("title") image1=Query("imgPath") key=Query("id") key= "news.asp?id=" & key & "&theClass=" & theClass else theClass="AVISO:" title="No hay noticias para mostrar." image1="media.jpg" key="news.asp" end if %>