Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/02/2004, 07:31
leophp
 
Fecha de Ingreso: julio-2002
Ubicación: stgo rec
Mensajes: 438
Antigüedad: 22 años, 9 meses
Puntos: 3
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 sqltxtconn
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")=-or session("autorizacion")="" then
response
.Redirect "usuario.asp?msg=Usuario%20o%20password%20incorrecta"
end if
end if
%> 
saludos
__________________
Saludos
Leo