Hola gente.
Esoty haciendo un trabajo dondé un usuario tiene que registrarse siempre que kiere visitar la web.
Al hacer el login, necesito guardar el nº de visita de este usuario y la hora en la cual se ha logeado.
la tabla visita tiene los campos:
logina:texto;
numero:numerico;
fecha:fecha;
En la 1º visita no hay problema.
El problema que tengo es ke si no es su 1º visita tiene que incrementar el nº de visita y actualizar la fecha.Pero al intentarlo, me pone un error.
¿como puedo incrementar las visitas y actualizar la fecha al mismo tiempo?
Gracias por leerme.
el error es.
No se han especificado valores para algunos de los parámetros requeridos.
/chegno/pagina2.asp, línea 240
El codigo es este
<%
Dim usuario, password, oConn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "login.asp"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
Dim cookie
Dim autorizacion
Dim nombre, apellido,visit
'Recuperamos nuestra cookie
cookie = Request.Cookies("Ejemplo")
'Y la escribimos
'Conectamos a nuestra BD.
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("amigos.mdb")
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM personass WHERE Nomamigo = '"& request.Form("usuario")&"'"
rs.Open SQL, oConn, 1, 2
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
elseIf RS.Fields("contraseña") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
response.cookies("password")=password
if request.cookies("password")=PASSWORD then
If Session("usuario") = True then
response.write " Ya esta logeago"
else
set res=Server.CreateObject("ADODB.Recordset")
set rs1= Server.CreateObject("ADODB.Recordset")
sql1="select * from visita where logina = '"&request.form("usuario")&"'"
rs1.Open sql1, oConn
if ( rs1.eof =true) then
sql2="insert into visita values('"&usuario&"','1','"&Now()&"')"
res.Open sql2, oConn
else
set res1= Server.CreateObject("ADODB.Recordset")
set res2= Server.CreateObject("ADODB.Recordset")
sql3="update visita set numero= numero +'1', fecha='"&Now()&"' where logina = '"&request.form("usuario")&"'"
res1.Open sql3, oConn(linea 240)
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Session("usuario")=True
end if
end if
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
'Limpiamos y cerramos.
RS.Close
'res.close
rs1.close
oConn.Close
Set RS = Nothing
set res =nothing
set rs1=Nothing
Set oConn = Nothing
End If
%>
