%
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open "la4deelche"
SQL = "SELECT Usuario FROM Contador"
set rs = Conexion.execute(SQL)
if not rs.eof then
Usuario = rs(0)
else
Usuario = 1
end if
Session("usuario")=Usuario
UsuarioNuevo = Usuario + 1
SQL = "UPDATE Contador SET Usuario = '" & UsuarioNuevo & "' WHERE Usuario = " & Usuario
'response.write "Session Usuario: " & Session("Usuario") & "
"
Conexion.execute(SQL)
rs.Close
Set rs = nothing
Conexion.Close
Set Conexion = nothing
%>
![]() |