Teléfonos Libres

c/ Bretón de los Herreros, 22
28003 Madrid
Tel. y Fax 91 441 31 33- comercial@ofiserma.com

HORARIO DE TIENDA, de LUNES A VIERNES DE A 9 A 15 HORAS, .

Productos

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 %>