Foros del Web » Programando para Internet » ASP Clásico »

insertar +1 en bd

Estas en el tema de insertar +1 en bd en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 04/02/2004, 05:07
 
Fecha de Ingreso: enero-2003
Ubicación: Barcelona
Mensajes: 45
Antigüedad: 21 años, 4 meses
Puntos: 0
insertar +1 en bd

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
__________________
no hay diseños imposibles, hay diseñadores vagos
  #2 (permalink)  
Antiguo 04/02/2004, 07:31
 
Fecha de Ingreso: julio-2002
Ubicación: stgo rec
Mensajes: 438
Antigüedad: 21 años, 10 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
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:04.