Vinos tintos
  * Joven
  * Crianza
  * Reserva
  * Gran Reserva
Vinos blancos

Ofertas
Vino del día
Para saber más

Gestión productos
Gestión clientes

Buscar

<% Set fs = CreateObject("Scripting.FileSystemObject") countertxt="count.txt" Set a = fs.OpenTextFile(countertxt,1) ct =a.ReadLine if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(countertxt,true,false) a.Write ct end if a.Close %>