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