<% Dim oConn, rs, SQL%> <% 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\imagenes.mdb") %> <%SQL="SELECT * FROM Tabla1;" rs.Open SQL, oConn %> <%do until rs.EOF%> <%n=rs.Fields("C0")%> <%rs.MoveNext loop%> <%Randomize var=int(n*rnd+1) %> <% 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\imagenes.mdb") %> <%SQL="SELECT * FROM Tabla1 where C0="&var&";" rs.Open SQL, oConn %> ">"> <%ruta=rs.Fields("C1")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%>

Principal Arriba

 
<%=date%>

PUBLICIDAD

Elija el libro que desea adquirir:

OTRAS PÁGINAS WEB RECOMENDADAS

- Gestión del Conocimiento

- Acoso Laboral / Mobbing

- Seguridad en Máquinas

- Ignacio Muñoz Abogados

- Energías Renovables

- Ecología

- Desarrollo sostenible

- Empleo

- Viajes

- San Fermín

- Camino de Santiago

- Fiestas tradicionales

- El Mundo de Nabar

- Bebés

- Tourism in Spain

- Universidades

- Cocina

- Nutrición

- Flores

Enviar correo a informacion@prevencion-laboral.com con preguntas o comentarios. Ley 34/2002 de servicios de la Sociedad de la Información