• Almacenamiento
• Bluetooth
• Calculadoras
• Cámaras y Marcos Digitales de Fotografia y Video
• CD-R, CD-RW, DVD-R, DVD-RW
• Consumibles Brother
• Consumibles
• Consumibles y Accesorios Olympia
• Copiadoras Digitales Toshiba-Olympia
• Equipos Multifunción
• Fax
• Impresoras
• Impresoras Matriciales
• Maletines
• Máquinas de escribir
• Máquinas de estenotipia
• Memoria USB
• Memory Card
• Monitores
• OFERTAS PUNTUALES
• Pc's
• Pc's Acer
• PDA's
• Philips sistema de Dictado
• Productos
• Proyectores y Pantallas
• Portátiles en OFERTA
• Registradoras
• Reproductores MP3/MP4
• Scanners
• Software
• Televisores LCd - PLASMA
• Top Value HP
• V-Ofertas del mes
• Webcam

• Cajas
• Dvd, Disqueteras-Lectores
• Discos duros
• Memorias
• Microprocesadores
• Placas Base
• Ratones, Teclados y Altavoces
• T Gráficas/ Sonido, Comunicaciones-Acceso Inalambrico
• Capturadoras TV y Modems

Eres la visita número:
<% Dim variable Set oConn = Server.CreateObject ("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/Escritura/ofiserma.mdb") sql = "SELECT * FROM Contadores WHERE tipo = 'inicial'" Set RS = Server.CreateObject ("ADODB.RecordSet") RS.LockType = 3 RS.Open sql, oConn if Session("visitado")="" then variable=(RS.Fields.Item("visitas").Value) variable=variable+1 Response.Write variable RS.Fields.Item("visitas").Value=variable RS.Update Session("visitado")=TRUE else Response.Write RS.Fields.Item("visitas").Value end if Rs.Close oConn.Close %>