% Set BD = Server.CreateObject("ADODB.Connection") BD.Open "estaeninternet.com.sonilca" Set BaseDatos = Server.CreateObject("ADODB.Recordset") if Session("usuario")="" then sql = "SELECT * FROM Contador" BaseDatos.Open sql, BD Usuario = BaseDatos("usuario") Usuario = cint(Usuario) + 1 Session("usuario") = Usuario BaseDatos.close sql = "UPDATE Contador SET Usuario="&Usuario BD.Execute(sql) end if %>
![]() |
![]() |
|