Esto le permite a los aficionados, coleccionistas y  productores lograr mayor eficiencia y homogeneidad en sus procesos, así como obtener productos más competitivos por su incremento en cantidad y calidad.

Invitro Orquídeas  busca hacer amigable el uso y la aplicación de las técnicas de biotecnología  a nuestros potenciales clientes nacionales e internacionales, ajustándonos a diferentes escalas de negocio, con el objetivo de que alcancen   mayor volumen  y calidad en sus productos.

Nro. de Visita: <% 'primero indicamos el path virtual donde se localiza el archivo fp = Server.MapPath("contador.txt") 'Creamos el objeto FileSystem que es con el cual vamos a pòder accesar el archivo Set fs = CreateObject("Scripting.FileSystemObject") 'Abrimos el archivo Set a = fs.OpenTextFile(fp) 'Leemos el archivo ct = Clng(a.ReadLine) 'Checamos si existe la variable de sesion "ct" si no existe la crea. Le aumenta el valor a la variable if Session("ct") = "" then Session("ct") = ct ct = ct + 1 'Escribimos y guardamos el archivo el archivo 'Cerramos el archivo a.close 'Abrimos el archivo para grabarlo Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if 'Cerramos el archivo a.Close 'Mostramos el contador Response.Write ct %>