---
title: "Ej dubletter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/53893-ej-dubletter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-09-21T22:59:58.000Z"
updated: "2002-09-26T11:51:07.000Z"
replies: 20
views: 368
page: 1
pages: 2
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/53893-ej-dubletter"
---

# Ej dubletter

_Sida 1 av 2._

## #1 — antar, 2002-09-21T22:59Z

Hur undviker jag dubletter med den koden?
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* Senaste besökare \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
Set Connect=Server.CreateObject("ADODB.Connection") 
sConnect = "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/Dagbok.mdb")&"" 
Connect.Open(sConnect) 

Anvandarnamn= request.querystring("Anvandarnamn") 
id= request.querystring("ID") 

SQL="SELECT Lasare, Anvandarnamn FROM Dagbok WHERE Anvandarnamn='" & Anvandarnamn & "'" 
Connect.execute(SQL) 
Set Recset=Server.CreateObject("ADODB.Recordset") 
Recset.open SQL, Connect, 3,3 

adda=session("Anvandarnamn")&"="&now()&"¶"
happ=adda & recset("Lasare") 

if not recset("Lasare") = "" then
if not left(recset("Lasare"),instr(recset("Lasare"), "¶")) = session("Anvandarnamn")&"¶" then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sql)
connect.close
set connect = nothing
else
end if
end if
else
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute(sql)
connect.close
set connect = nothing
end if
end if
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

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

## #2 — LarsG, 2002-09-22T12:04Z

I vilket sammanhang? När du hämtar data eller när du lagrar data?

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

## #3 — antar, 2002-09-22T12:07Z

när jag lagrar data!

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

## #4 — antar, 2002-09-23T14:23Z

:(

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

## #5 — Ekström, 2002-09-23T14:25Z

DU kan göra fältet i databasen, som du inte vill ska kunna dubbleras till primärnyckel.

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

## #6 — antar, 2002-09-23T14:50Z

nej men det ser ut så här i fältet

nick,bla,bla,bla

, splittras

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

## #7 — LarsG, 2002-09-23T14:54Z

Lagra inte data på det sättet.  Lagra varje enskild sak som en egen post. Du behöver alltså ha en till tabell.

Då är det mycket enklare att hantera, t.ex. kan du sätta ett unique attribut på kolumnen.

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

## #8 — antar, 2002-09-23T15:01Z

nej jag vill använda så orkar inte ändra på allt!! kan nån hjälpa?

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

## #9 — OveRRidE, 2002-09-23T15:45Z

```
strArray = split(session("anvandarnamn"),"¶")

for i = lbound(strArray) to ubound(strArray)
   if strArray(i) = [b]nånvariabel[/b] then
      isMatch = True
      exit for
   end if
next

if isMatch <> True then
   'gör uppdateringen
end if
```

Typ, du förstår meningen.

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

## #10 — antar, 2002-09-23T19:19Z

nope fattar inte??

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

## #11 — antar, 2002-09-24T18:42Z

hjälp förstår inte rikitigt??

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

## #12 — antar, 2002-09-24T20:20Z

vad ska det stå i nånvariabel?

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

## #13 — OveRRidE, 2002-09-25T06:09Z

```
strArray = split(session("anvandarnamn"),"¶")

for i = lbound(strArray) to ubound(strArray)
   if strArray(i) = request.querystring("Anvandarnamn") then
      isMatch = True
      exit for
   end if
next

if isMatch <> True then
   'gör uppdateringen
end if
```

Just nu splittar koden sessions-variabeln 'anvandarnamn' och placerar den i en array som loopas igenom. Är en post i arrayen samma som request.querystring("anvandarnamn"), blir värdet isMatch -\> 'True'. 

Om isMatch inte är 'True' (vilket vi kollar nedanför), gör uppdateringen. 

Förstår du?

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

## #14 — antar, 2002-09-25T10:41Z

hur ska man göra när det e tomt i fältet?
då får man 

Körningsfel i Microsoft VBScript (0x800A005E)
Ogiltig användning av Null: 'split'
/las.asp, line 34

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

## #15 — jboy_87, 2002-09-25T10:46Z

```
if not recset("Lasare") = "" then
'koden
else
'uppdatera
end if
```

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

## #16 — antar, 2002-09-25T11:03Z

EJ dubbletter

får inte igång den den lagrar samma användarnamn till databasen endå?

```
Set Connect=Server.CreateObject("ADODB.Connection") 
sConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Dagbok.mdb")&"" 
Connect.Open(sConnect) 

Anvandarnamn= request.querystring("Anvandarnamn") 
id= request.querystring("ID") 

SQL="SELECT Lasare, Anvandarnamn FROM Dagbok WHERE Anvandarnamn='" & Anvandarnamn & "'" 
Connect.execute(SQL) 
Set Recset=Server.CreateObject("ADODB.Recordset") 
Recset.open SQL, Connect, 3,3 

adda=session("Anvandarnamn")&"="&now()&"¶"
happ=adda & recset("Lasare") 

if not recset("lasare") = "" then
strArray = split(recset("Lasare"),"=")

for i = lbound(strArray) to ubound(strArray)
   if strArray(i) = session("Anvandarnamn") then
      isMatch = True
      exit for
   end if
next

if isMatch <> True then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute sql,,128
connect.close
set connect = nothing
end if
end if
else
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'" 
connect.execute sql,,128
connect.close
set connect = nothing
end if
end if
```

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

## #17 — LarsG, 2002-09-25T11:23Z

Jag slog ihop trådarna.

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

## #18 — antar, 2002-09-26T11:30Z

:(

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

## #19 — OveRRidE, 2002-09-26T11:39Z

> **adda=session("Anvandarnamn")&"="&now()&"¶"**
> happ=adda & recset("Lasare") 
> 
> if not recset("lasare") = "" then
> **strArray = split(recset("Lasare"),"=")**

Det där ser lite konstigt ut, första och sista raden. Vad är det egentligen för tecken du har mellan namnen?

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

## #20 — OveRRidE, 2002-09-26T11:44Z

jag fattar faktiskt inte riktigt vad du har snott ihop för nåt när jag tänker efter. :o ;)

Först hämtar du ett recordset från tabellen med användarens information, sedan placerar du namnet från sessionsvariabeln i variabeln 'adda', varpå du lägger ihop ett = och datumtiden samt ett skumt tecken ( ¶ ).

Och sen sätter du ihop allt som finns i 'adda' med 'lasare' från recordset:et.. :q

Jag fattar noll.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/53893-ej-dubletter  
Nästa sida: https://www.webforum.nu/amne/asp/53893-ej-dubletter/page2.md