<% response.Buffer=true Const adCmdText = &H0001 Const adOpenStatic = 3 'wMessage=trim(request("strMessage")) 'Response.Write "Mensaje: " & wMessage %> <% ' Contador de visitas: ' a) Hacemos la conexión a la BD. 'sMdb="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\siesta_web\database\accesos.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=pintas" sMdb="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\database\accesos.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=pintas" set oConn=server.CreateObject("ADODB.Connection") oConn.ConnectionString=sMdb oConn.Open ' b) Recogemos el Contador_Visitas de la Base de Datos. sql = "SELECT * FROM visitas" set RS= server.CreateObject("ADODB.Recordset") RS.Open sql, oConn, 3,3 ' c) Ahora nos fijamos si existe ya un registro. ' c.1) Si no existe lo creamos. If RS.EOF then oConn.Execute"INSERT INTO visitas (Contador_Visitas) VALUES (1)" ' c.2) Si existe el registro se aumenta en 1 el valor. Else oConn.Execute"UPDATE visitas SET Contador_Visitas="&(RS("Contador_Visitas")+1)&"" End IF ' d) Guardamos el valor en una variable dim Contador_Visitas Contador_Visitas = RS("Contador_Visitas") ' e) Cerramos la Base de Datos RS.CLose oConn.Close Set RS = nothing Set oConn = nothing %> SiestaSoft
SiestaSoft Sistemas Informáticos
Inicio


Inicio
Productos
Servicios
Instalación
Contactos
SiestaSoft Sistemas Informáticos

  • Empresa segoviana constituída en 2003, integrada por profesionales informáticos y dedicada al diseño y desarrollo de soluciones informáticas dirigidas a distintos sectores empresariales.


  • Hemos concentrado nuestro esfuerzo en el desarrollo de un producto informático de elevada calidad dirigido a gestionar las ventas y la facturación de productos de forma sencilla, amigable y eficaz.


    • Programa informático de gestión de ventas y facturación

    VERSIÓN PARA RESTAURANTES, BARES Y SIMILARES

  • La satisfacción de nuestros clientes actuales es nuestro mejor argumento de venta.
    •

    Funcionalidad completa hasta 100 facturas sin licencia.
    Requiere 10 MB libres.
    Envíenos sus consultas o contacte con nosotros en:
  • siestasoft@yahoo.es
  • Teléfonos:

    • 605 566 560
    678 716 415
     Esta página ha sido visitada en <%=Contador_Visitas%>  ocasiones.
    © SiestaSoft Sistemas Informáticos (2003 - 2009)