LA GESTIÓN DEL CONOCIMIENTO

<%Randomize var=(int(2*rnd+1))*10+1 %> <%Min=Minute(Now)%> <%IF Right(Min,1)=0 THEN BAN=51 END IF%> <%IF Right(Min,1)=1 THEN BAN=31 END IF%> <%IF Right(Min,1)=2 THEN BAN=41 END IF%> <%IF Right(Min,1)=3 THEN BAN=31 END IF%> <%IF Right(Min,1)=4 THEN BAN=61 END IF%> <%IF Right(Min,1)=5 THEN BAN=31 END IF%> <%IF Right(Min,1)=6 THEN BAN=41 END IF%> <%IF Right(Min,1)=7 THEN BAN=31 END IF%> <%IF Right(Min,1)=8 THEN BAN=11 END IF%> <%IF Right(Min,1)=9 THEN BAN=21 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%>

 

PUBLICIDAD

<%Randomize var=(int(2*rnd+1))*10+4 %> <% 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="&var&";" rs.Open SQL, oConn %> <%=rs.Fields("C3")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%>

<%Randomize var=(int(2*rnd+1))*10+4 %> <% 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="&var&";" rs.Open SQL, oConn %> <%=rs.Fields("C3")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%>

Elija el libro que desea adquirir:

Enviar correo a informacion@gestion-conocimiento.com con preguntas o comentarios.

 Ley 34/2002 de servicios de la Sociedad de la Información

<%Randomize var=(int(2*rnd+1))*10+2 %> <% 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="&var&";" rs.Open SQL, oConn %> <%=rs.Fields("C3")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%>