---
title: "dubletter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/54426-dubletter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-09-27T13:59:21.000Z"
updated: "2002-09-29T12:56:44.000Z"
replies: 4
views: 267
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/54426-dubletter"
---

# dubletter

## #1 — antar, 2002-09-27T13:59Z

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/54426

## #2 — fundrusse, 2002-09-28T00:51Z

Ehh ok..
Nu vet jag inte om jag förstog fråga rätt
Men om det bara är dubletter du vill kolla så använd följande kod

If RecSet.EOF Then
 'Dublett finns
Else
 'Dublett finns ej
End If

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

## #3 — jboy_87, 2002-09-28T11:33Z

testa med
if isMatch = True then

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

## #4 — antar, 2002-09-28T11:51Z

funkar inte!! nån som vet hur man  gör?

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

## #5 — jboy_87, 2002-09-29T12:56Z

testa detta da?

```
for i = lbound(strArray) to ubound(strArray)
   if instr(recset("Lasare"),session("Anvandarnamn")) then
        isMatch = True
      exit for
   end if
next

if not isMatch = True then
'update
else
'nått
end if
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/54426-dubletter