<%=date%>

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

bullet LA GESTIÓN INTEGRADA: CALIDAD, SEGURIDAD Y MEDIO AMBIENTE 

Autor: Muñoz, J.R.

Año edición: 2004

 

bullet GUÍA TEÓRICO-PRÁCTICA PARA LA REALIZACIÓN DE AUDITORIAS DE PREVENCIÓN DE RIESGOS LABORALES

Autor: Muñoz, J.R.

Año edición: 2001

 

bullet GESTION DE LA PREVENCION

Autor: Muñoz, J.R.

Año edición: 2002

seissigmaclaves.htm

bullet LAS CLAVES DE SEIS SIGMA: LA IMPLANTACIÓN CON ÉXITO DE UNA CULTURA QUE REVOLUCIONA EL MUNDO EMPRESARIAL

Autores: Pande, Peter S.; Neuman, Robert P.; Cavanagh, Roland R.

Año edición: 2002

 

bullet SEIS SIGMA: UNA INICIATIVA DE CALIDAD TOTAL

Autor: Barba, A.

Año edición: 2000

 

bullet TECNOLOGÍAS DE LA INFORMACIÓN EN LA GESTIÓN DEL CONOCIMIENTO EN EL ÁMBITO HOSPITALARIO

Autores: Mª Carmen Peña Yáñez, Miguel Prados de Reyes

 

bullet CÓMO EVITAR LA MIOPÍA EN LA GESTIÓN DEL CONOCIMIENTO

Autor: Arboníes Ortiz, Angel L.

Año edición: 2001

 

bullet CÓMO COMBATIR EL ESTRÉS Y LA ANSIEDAD EN EL ÁMBITO LABORAL : MOBBING, ESTAR QUEMADO, TECNOESTRÉS

Autor: Bosqued Lorente, Marisa

Año edición: 2004

 

bullet EL ACOSO MORAL EN TRABAJO: LA RESPONSABILIDAD EN EL ACOSO MORAL EN EL TRABAJO

Autor: Rodríguez López, Pedro

Año edición: 2004

 

bullet CAMINO DE SANTIAGO: CONSEJOS MÉDICOS PARA EL PEREGRINO

Autores: Carlos Quintas Fernández; Jesús Vázquez Gallego; María Rosario Solana Galdámez

Año edición: 2004

 

bullet EL CAMINO DE SANTIAGO EN BICI

Autor: Angulo, Eloy

Año edición: 1999

 

bullet LA GRIPE AVIAR 

Autor: Stevens, Neil 

Año edición: 2005

 

bullet LA HISTORIA DEL SOL Y EL CAMBIO CLIMÁTICO

Autor: Vázquez Abeledo, Manuel

Año edición: 1998

 

bullet QUEMANDO EL FUTURO: CLIMA Y CAMBIO CLIMÁTICO

Autor: Ruiz de Elvira, Antonio

Año edición: 2001

 

bullet GESTIÓN INTEGRAL DE LA CALIDAD: IMPLANTACIÓN, CONTROL Y CERTIFICACIÓN

Autor: Cuatrecasas, Lluís

Año edición: 2005

 

bullet ISO 9000: GUÍA Y COMENTARIOS

Autor: Jensen, Poul Buch.

 

bullet LEGISLACIÓN DEL MEDIO AMBIENTE

Autor: Delgado Piqueras, Francisco

Año edición: 2004

 

bullet AUDITORÍA DE SISTEMAS DE GESTIÓN MEDIOAMBIENTAL: INTRODUCCIÓN A LA NORMA ISO 14001

Autor: Woodside, Gayle

Año edición: 2001

Enviar correo a informacion@medioambiente.ws 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%>