<% option explicit %>

Did you know... <% Dim ConObj Dim RstObj Sub AbrirBD(sNombreBD) Set ConObj = Server.CreateObject("ADODB.Connection") ConObj.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(sNombreBD) & ";" ConObj.CommandTimeOut = 1000 End Sub 'Elijo un número al azar Dim i,sSql,sSeccion 'Guardo el número en una session para que siempre vea el mismo. if Session("iMsgNumberEng")="" and Session("iMsgNumber")="" then Randomize timer i=Round(Rnd*iMaxMensajes) Session("iMsgNumberEng")=i Dim sFecha 'Armo la fecha de hoy sFecha="@ANIO-@MES-@DIA" sFecha=Replace(sFecha,"@ANIO",Year(now)) sFecha=Replace(sFecha,"@MES",Month(now)) sFecha=Replace(sFecha,"@DIA",Day(now)) 'Me fijo si el ya hay una entrada para el día de hoy sSql="select [vespa] from logs where [fecha]=#" & sFecha & "#" 'Agrego un registro para el registro de logs. AbrirBD "../espa/scripts/views.mdb" Set RstObj = Server.CreateObject("ADODB.Recordset") Set RstObj = ConObj.Execute(sSql,0) If RstObj.EOF Then 'Agregamos la entrada para el día de hoy sSql="insert into logs ([fecha],[vespa],[veng]) values (#" & sFecha & "#,0,1)" ConObj.Execute sSQL Else 'Incremento sSql="update logs set [veng] = [veng]+1 where [fecha]=#" & sFecha & "#" ConObj.Execute sSQL End if Set RstObj=nothing Set ConObj=nothing end if i=Session("iMsgNumberEng") Response.Write Mensajes(i) %>