---
title: "Skapa tidsbegränsat konto"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/95757-skapa-tidsbegränsat-konto"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "foppa"
published: "2004-01-26T14:29:05.000Z"
updated: "2004-01-26T15:40:33.000Z"
replies: 3
views: 208
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/95757-skapa-tidsbegränsat-konto"
---

# Skapa tidsbegränsat konto

## #1 — foppa, 2004-01-26T14:29Z

Hej,

Jag har ett par lösenordsskyddade sidor dit endast registrerade användare har tillträde. All användarinfo sparas i en accessdatabas, men jag skulle vilja komplettera detta med en funktion som automatiskt tidsbegränsar kontot till 365 dagar från aktivering. Efter detta skall en alternativ sida visas.

Någon som har bra tips?

// Foppa

Permalänk: https://www.webforum.nu/p/95757

## #2 — Sebbe, 2004-01-26T15:05Z

Lägg den här koden i en fil om du inkluderar på alla sidor på sidan/default-sidan:

```
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
strSQL = "DELETE FROM tabell WHERE regDatum <= #" & DateAdd("d", -365, Date()) & "#"
objConn.Execute(strSQL)
objConn.Close : Set objConn = Nothing
```

Permalänk: https://www.webforum.nu/p/1261116

## #3 — foppa, 2004-01-26T15:21Z

Tackar, jag testar!

/ Foppa

Permalänk: https://www.webforum.nu/p/1261130

## #4 — OveRRidE, 2004-01-26T15:40Z

> **Sebbe skrev:**
>
> Lägg den här koden i en fil om du inkluderar på alla sidor på sidan/default-sidan:
>
>
> ```
> Set objConn = Server.CreateObject("ADODB.Connection")
> objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
> strSQL = "DELETE FROM tabell WHERE regDatum <= #" & DateAdd("d", -365, Date()) & "#"
> objConn.Execute(strSQL)
> objConn.Close : Set objConn = Nothing
> ```

Var någonstans står det att han vill *radera* den användare vars tid har gått ut? 

Nåt sånt här borde väl likna lösningen, även om min syntax i DATEDIFF kan vara fel:

```
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
strSQL = "SELECT * FROM tabell WHERE UserId = " & session("UserId") & " AND DATEDIFF(dd,regDatum," & Date & ") & " < 365"
Set rs = objConn.Execute(strSQL)
   If rs.eof Then bRedir = 1
Set rs = nothing
objConn.Close
Set objConn = Nothing

If bRedir Then Response.Redirect "annansida.asp"
```

Permalänk: https://www.webforum.nu/p/1261151

---

Tråden på webben: https://www.webforum.nu/amne/asp/95757-skapa-tidsbegränsat-konto