<% Session("visitado") DIM ACCION3,CONEXION3,SQL3,modificar Set conexion3 = Server.CreateObject ("ADODB.Connection") Conexion3.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" &server.mappath("../datos/BITACORA.mdb") sql3 = "SELECT * FROM contador" Set accion3 = Server.CreateObject ("ADODB.RecordSet") accion3.Open sql3, conexion3 if Session("visitado") <> 1 then 'para que no este contando visitas cada vez que se actualiza la pagina MODIFICAR="UPDATE contador SET CONTADOR=CONTADOR+1" Session("visitado") = 1 CONEXION3.EXECUTE(MODIFICAR) end if %>




Número de Visitas: <%Response.write accion3("contador")%>        
        


  Nombre de su empresa

  Persona de contacto

  Dirección de correo electrónico


  Como valora nuestros productos


  Como valora el servicio de logística
  Porcentaje de venta de nuestros   productos en su empresa


  Comentarios y sugerencias
 
 
 
Desplace el ratón por el menú para ver información más detallada
 




           Usuario
      


              Si no dispone de sus
              claves de acceso, por favor
              póngase en contacto con
              central@tdcsport.com

       
         Para cualquier consulta sobre
         nuestro sitio web contacte con central@tdcsport.com