 |
|
|
|
|
|
<%Randomize var=(int(4*rnd+1))*10+1 %> <%Min=Minute(Now)%> <%IF Right(Min,1)=1 THEN BAN=81 END IF%> <%IF Right(Min,1)=2 THEN BAN=81 END IF%> <%IF Right(Min,1)=3 THEN BAN=81 END IF%> <%IF Right(Min,1)=4 THEN BAN=81 END IF%> <%IF Right(Min,1)=5 THEN BAN=81 END IF%> <%IF Right(Min,1)=6 THEN BAN=81 END IF%> <%IF Right(Min,1)=7 THEN BAN=81 END IF%> <%IF Right(Min,1)=8 THEN BAN=81 END IF%> <%IF Right(Min,1)=9 THEN BAN=81 END IF%> <%IF Right(Min,1)=0 THEN BAN=81 END IF%> <% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("\FPDB\banners.mdb") %> <%SQL="SELECT * FROM Tabla1 where C4="&BAN&";" rs.Open SQL, oConn %> <%=rs.Fields("C3")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%> |
<%=date%> |
