insertar +1 en bd

[pascasia]

Hola a todos, hace dias que intento resolver este problema... y soy inacapaz... os agardeceria una ayuda...
bueno mi problema es que tengo una pagina web con un acceso restringido en el que busca en una base de datos el usuario y password. Pero ahora he incluido una nueva columna en esta base de datos que es "entrada" en esta columna quiero q sume 1 cada vez q ese usuario acceda a las paginas asi saber cuantas veces accede cada uno, llevar un control. pero no se ni como ni donde insertar el codigo ni que codigo colocar...
A continuación os expongo el codigo de la conexion para el control de usuario... ¿pero que pongo para controlar las entradas?????? por favor si alguine puede decirme algo se lo agradeceria de corazon.

<%else
usuario=replace(request.form("usuario"),"'","")
password=replace(request.form("password"),"'","")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("\carpeta\xxxxx.mdb"))
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from xxxxx where usuario='"&usuario&"' and password='"&password&"'"
response.write sqltxt
rs.Open sqltxt, conn
if not rs.eof then
if rs("usuario")=usuario and rs("password")=password then
session("autorizacion")=1
response.Clear
response.redirect "privado.asp"
end if
else
session("autorizacion")=-1

end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if session("autorizacion")=-1 or session("autorizacion")="" then
response.Redirect "usuario.asp?msg=Usuario%20o%20password%20incorrec ta"
end if
end if
%>

muchas gracias, por favor, ayudarme!
silvia

[leophp]

Hola

Asi sera ? pruebalo, yo asuno que en tu tabla hay un campo que identifica el usuario (ID) si no midifca lo que corresonde, entrada tambien debe enpezar por defaul en cero y debe ser del tipo numero

Código PHP:

  <%else 
usuario=replace(request.form("usuario"),"'","") 
password=replace(request.form("password"),"'","") 
 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("\carpeta\xxxxx.mdb")) 
set rs = CreateObject("ADODB.Recordset") 
sqltxt="Select * from xxxxx where usuario='"&usuario&"' and password='"&password&"'" 
response.write sqltxt 
rs.Open sqltxt, conn 
if not rs.eof then 
if rs("usuario")=usuario and rs("password")=password then 
'aqui nuevo codigo 
ID=RS.Fileds("ID") 
sSQL="Update xxxxx SET entrada=entrada+1 WHERE ID='" & idUsuario & "'" 
set RS = Conn.Execute(sSQL) 
'aqui fin nuevo codigo 
session("autorizacion")=1 
response.Clear 
response.redirect "privado.asp" 
end if 
else 
session("autorizacion")=-1 
 
end if 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
if session("autorizacion")=-1 or session("autorizacion")="" then 
response.Redirect "usuario.asp?msg=Usuario%20o%20password%20incorrecta" 
end if 
end if 
%>  
   

saludos