Login som Bruger og få en ny dato

1. Når brugeren logger ind, kan du opdatere datoen til dags dato. Eks. UPDATE Tabel SET Felt = Date WHERE BrugerID = BrugerID

2. Du kan køre en forespørgsel som tjekker hvilke brugere som ikke har logget ind de sidste 2 uger.
Eks. DELETE Felt FROM Tabel WHERE LoginDato < Date + 14

Her er den fil der ser om "brugernavn" & "Adgangskode" det er ok

Hvor ville du sætte den ind
____________________________________

(Tjek.asp)
<%
' vi starter med at oprette forbindelse til vores database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("medlemsliste/medlemmer.mdb")
Conn.Open DSN

' så henter vi vores inputs fra brugeren, som vi definerer i variabler og trimmer den
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(request.form("Brugernavn"),"'","''" ))
strAdgangskode = Trim(Replace(request.form("Adgangskode"),"'","''" ))

' herefter opbygger vi vores SQL-sætning og får vores databaseforbindelse til at udføre den.
SQL = "SELECT * FROM user where Brugernavn = '" & strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(SQL)

' Hvis brugeren fandtes i databasen
If Not (rs.BOF Or rs.EOF) Then
Session("ID") = rs("ID")
Session("Brugeradgang") = True
Response.redirect "index2.asp"

Else

' Hvis brugeren ikke fandtes i databasen
Response.redirect "index.asp"
End If

' og for god ordens skyld lukker vi lige for databaseorbindelsen
Conn.Close
Set Conn = Nothing
%>

1. Du bliver nødt at køre en forespørgsel f.eks. hver dag for at slette gamle brugere i databasen.

2. Husk at ændre LOGIN_DATO_FELT

<%
' vi starter med at oprette forbindelse til vores database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("medlemsliste/medlemmer.mdb")
Conn.Open DSN

' så henter vi vores inputs fra brugeren, som vi definerer i variabler og trimmer den
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(request.form("Brugernavn"),"'","''" ))
strAdgangskode = Trim(Replace(request.form("Adgangskode"),"'","''" ))

' herefter opbygger vi vores SQL-sætning og får vores databaseforbindelse til at udføre den.
SQL = "SELECT * FROM user where Brugernavn = '" & strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(SQL)

' Hvis brugeren fandtes i databasen
If Not (rs.BOF Or rs.EOF) Then
Session("ID") = rs("ID")
Session("Brugeradgang") = True
Response.redirect "index2.asp"

SQL = "UPDATE user SET LOGIN_DATO_FELT = " & Date
Conn.Execute(SQL)

Else

' Hvis brugeren ikke fandtes i databasen
Response.redirect "index.asp"
End If

' og for god ordens skyld lukker vi lige for databaseorbindelsen
Conn.Close
Set Conn = Nothing
%>

Dato2 er navnet på den table der bliver opdatert
Men når jeg går ind i db er der ikke sket nådet ???? :-(
___________________________________________

<%
' vi starter med at oprette forbindelse til vores database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("medlemsliste/medlemmer.mdb")
Conn.Open DSN

' så henter vi vores inputs fra brugeren, som vi definerer i variabler og trimmer den
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(request.form("Brugernavn"),"'","''" ))
strAdgangskode = Trim(Replace(request.form("Adgangskode"),"'","''" ))

' herefter opbygger vi vores SQL-sætning og får vores databaseforbindelse til at udføre den.
SQL = "SELECT * FROM user where Brugernavn = '" & strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(SQL)

' Hvis brugeren fandtes i databasen
If Not (rs.BOF Or rs.EOF) Then
Session("ID") = rs("ID")
Session("Brugeradgang") = True
Response.redirect "index2.asp"
'Dato2 er navnet på den table der bliver opdatert
SQL = "UPDATE user SET Dato2 = " & Date
Conn.Execute(SQL)

Else

' Hvis brugeren ikke fandtes i databasen
Response.redirect "index.asp"
End If

' og for god ordens skyld lukker vi lige for databaseorbindelsen
Conn.Close
Set Conn = Nothing
%>

Prøv
SQL = "UPDATE user SET Dato2 = " & Now()

Nej det er forkert.

SQL = "UPDATE user SET Dato2 = " & Now() & " WHERE BrugerID = " & BrugerID

Forespørgslen skal vide hvilke felter den skal opdatere. Hvis man sender flg. forespørgsel til databasen

SQL = "UPDATE user SET Dato2 = " & Now()

opdaterer den alle poster i feltet Dato2.

Der sker ingen ting, kan det være min db der ikke er sat op som den skal...?

Hvordan ser dine kode ud nu? Jeg går ud fra at du bruger Access. Prøv evt. at lave en forespørgsel inde i databasen med flg. indhold:

  UPDATE user SET Dato2 = Now WHERE ID = 1

Hvad sker der så?

Det samme som før :-(
Det skal lige siges at db ikke er min stærke side....

Jeg overså linjen
Response.redirect "index2.asp"

Prøv med

<%
' vi starter med at oprette forbindelse til vores database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("medlemsliste/medlemmer.mdb")
Conn.Open DSN

' så henter vi vores inputs fra brugeren, som vi definerer i variabler og trimmer den
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(request.form("Brugernavn"),"'","''" ))
strAdgangskode = Trim(Replace(request.form("Adgangskode"),"'","''" ))

' herefter opbygger vi vores SQL-sætning og får vores databaseforbindelse til at udføre den.
SQL = "SELECT * FROM user where Brugernavn = '" & strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(SQL)

' Hvis brugeren fandtes i databasen
If Not (rs.BOF Or rs.EOF) Then
Session("ID") = rs("ID")
Session("Brugeradgang") = True

'Dato2 er navnet på den table der bliver opdatert
SQL = "UPDATE user SET Dato2 = " & Now & " WHERE ID=" & rs("ID")
Conn.Execute(SQL)

Response.redirect "index2.asp"

Else

' Hvis brugeren ikke fandtes i databasen
Response.redirect "index.asp"
End If

' og for god ordens skyld lukker vi lige for databaseorbindelsen
Conn.Close
Set Conn = Nothing
%>

Virker heller ikke...

Jeg har sat db "Dato2" til (Format: Standarddatoformat)
ikke andet.... alt andet stå som standat

Hmm... Prøv med

SQL = "UPDATE user SET Dato2 = #2/23/2003# WHERE ID=" & rs("ID")

Den der virker heller ikke,

Ville det være nemmer for dig vis du fik filerne

Èr der nogle der vil hjælpe mig.....???

Jo da :) Hvordan ser hele din kode?

Jeg har lagt den op en gang til dig

Din nuværende kode?

Dette er koden som ikke opdater min Db, Men vis jeg nu sender filerne til dig ville det hjælpe dig.....
_____________________________________________
<%
' vi starter med at oprette forbindelse til vores database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("medlemsliste/medlemmer.mdb")
Conn.Open DSN

' så henter vi vores inputs fra brugeren, som vi definerer i variabler og trimmer den
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(request.form("Brugernavn"),"'","''" ))
strAdgangskode = Trim(Replace(request.form("Adgangskode"),"'","''" ))

' herefter opbygger vi vores SQL-sætning og får vores databaseforbindelse til at udføre den.
SQL = "SELECT * FROM user where Brugernavn = '" & strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(SQL)

' Hvis brugeren fandtes i databasen
If Not (rs.BOF Or rs.EOF) Then
Session("ID") = rs("ID")
Session("Brugeradgang") = True
Response.redirect "index2.asp"

'Dato2 er navnet på den table der bliver opdatert
SQL = "UPDATE user SET Dato2 = #2/23/2003# WHERE ID=" & rs("ID")
Conn.Execute(SQL)

Else

' Hvis brugeren ikke fandtes i databasen
Response.redirect "index.asp"
End If

' og for god ordens skyld lukker vi lige for databaseorbindelsen
Conn.Close
Set Conn = Nothing
%>

OK... Prøv at sende filerne oasheikh@hotmail.com

Sådan så er den sendt til dig Kl 18:59

Takker for points...