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
%>
MOBILIARIO
Consultar precios y disponibilidad
Hogar
Oficina
LOGICAL
Se caracteriza por su exclusiva estructura de aluminio con electrificación integrada conformando un sistema de equipamiento de fácil montaje con la calidad y operatividad de los productos ACTIU
OFIMAT 3
Permite ofrecer gran variedad de soluciones ajustadas a las diferentes funciones y alterativas que se plantean en la instalación actual de oficinas.
Polivalentes
Formas rectas y modulares para un máximo aprovechamiento del espacio.
Ergonomicas
Dinamismo y eficacia en la oficina, con formas de trabajo diseñadas para un flujo constante de la información.
Operativa
Mesas operativas que combinan ergonomía para el trabajo informático y amplitud de espacio.
Angular 120º
Formas atractivas para áreas de trabajo en las que la información y la comunicación son la principal herramienta
Mostradores
Programa modular con una amplia gama de acabados para áreas de recepción personalizados que facilitan el contacto con el público
