Udløbs dato

Update Brugertabel Set VIP = 'False' Where Tilmeldingsdato < #" & DateAdd("d", -365, Now) & "#

Så skal du bare have serveren til at afvikle dette script f.eks. en gang i døgnet.

Du kan lave en SQL som opdater det sådan her, eks viker i Access :

SQL = "UDATE tabel SET VIP=false WHERE DateAdd('y',1,tilmeldingsdato) >= date()"

--> Oasen:

Takker men hvordan for jeg dette til at virke ?

Sådan kontakter jeg brugerens database:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database/bodykits.dk/brugersystem.mdb")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
intBrugerID = RS("ID")
strBrugernavn = RS("Brugernavn")
strFornavn = RS("Fornavn")
strEfternavn = RS("Efternavn")
stremail = RS("email")
strwebsite = RS("website")
strbrugerbillede = RS("brugerbillede")
strVIP = RS("VIP")
strTilmeldingsdato = RS("Tilmeldingsdato")
strAdminStatus = RS("AdminStatus")
rs.Close
%>

Og hvordan skal datoen står i feldtet "Tilmeldingsdato" ? bare sådan: 29-05-2003 ??

Hallo ? nogle der kan hjælpe med at få koden til at virke ??

Skal du havde en general SQL som tjkker alle brugere hvor gang eller vil du havde en som kun sætter VIP false for en enkelt bruger når han logger ind?

Den skal bare tjekke hver enkelt bruger når de logger ind om datoen er udløbet eller ej. Hvis den er skal den lave VIP = False

Takker :-)

Ok så prøv at rette din kode til dette:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database/bodykits.dk/brugersystem.mdb")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
intBrugerID = RS("ID")
strBrugernavn = RS("Brugernavn")
strFornavn = RS("Fornavn")
strEfternavn = RS("Efternavn")
stremail = RS("email")
strwebsite = RS("website")
strbrugerbillede = RS("brugerbillede")
strVIP = RS("VIP")
strTilmeldingsdato = RS("Tilmeldingsdato")
if CDate(DateAdd("y",1,CDate(strTilmeldingsdato))) <= CDate(Date()) AND CBool(strVIP) = true then
  SQL = "UPDATE bruger SET VIP = false WHERE brugernavn = '" & Session("brugernavn") & "'"
  Conn.Execute(SQL)
  strVIP = false 
end if
strAdminStatus = RS("AdminStatus")
rs.Close
%>

Jeg prøver 2 min...

Jeg for denne fejl når jeg logger ind:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CBool'

/loggetind.asp, line 68

Så prøv at rette denne :

if CDate(DateAdd("y",1,CDate(strTilmeldingsdato))) <= CDate(Date()) AND CBool(strVIP) = true then

Til:

if CDate(DateAdd("y",1,CDate(strTilmeldingsdato))) <= CDate(Date()) AND strVIP = true then

Jeg fandt også ud af at der ikke står True og False i databasen men: Ja og Nej... Så derfor har jeg lavet koden om til det.

Nu for jeg denne fejl:

Microsoft VBScript compilation error '800a03f9'

Expected 'Then'

/loggetind.asp, line 69

if CDate(DateAdd("y",1,CDate(strTilmeldingsdato))) &lt; = CDate(Date()) AND strVIP = Ja then
------------------------------------------------------^

Er det iorden at datoen i databasen står sådan: 24-05-2003  ??

Det er fordi det er copy/paste direkte ind &lt; skal være > så der står >=

Hvis det er et Ja/Nej felt så bruger man True eller 1 for Ja og False eller 0 for Nej.

Arh det skal vøre <= IKKE >= som jeg skrev

Jeg har lavet en bruger hvor der står 22-05-2002 i Tilmeldingsdato men personen er stadig VIP selv om jeg logger ind med den bruger... Hvordan kan det være ?

Sådan ser min kode ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database/bodykits.dk/brugersystem.mdb")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
intBrugerID = RS("ID")
strBrugernavn = RS("Brugernavn")
strFornavn = RS("Fornavn")
strEfternavn = RS("Efternavn")
stremail = RS("email")
strwebsite = RS("website")
strbrugerbillede = RS("brugerbillede")
strVIP = RS("VIP")
strTilmeldingsdato = RS("Tilmeldingsdato")
'if CDate(DateAdd("y",1,CDate(strTilmeldingsdato))) <= CDate(Date()) AND CBool(strVIP) = Ja then
if CDate(DateAdd("yyyy",1,CDate(strTilmeldingsdato))) <= CDate(Date()) AND strVIP = Ja then
  SQL = "UPDATE bruger SET VIP = Nej WHERE brugernavn = '" & Session("brugernavn") & "'"
  Conn.Execute(SQL)
  strVIP = Nej 
end if
strAdminStatus = RS("AdminStatus")
rs.Close
%>

Hvis det er et Ja/Nej felt så bruger man True eller 1 for Ja og False eller 0 for Nej.

Jeg laver det lige om 2 min....

Jeg tror det virker :-)

Mange tak for hjælpen...!