---
title: "Frågor om kompisfunktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10710-frågor-om-kompisfunktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hazze"
published: "2001-07-21T12:43:00.000Z"
updated: "2001-07-22T00:31:00.000Z"
replies: 7
views: 214
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/10710-frågor-om-kompisfunktion"
---

# Frågor om kompisfunktion

## #1 — Hazze, 2001-07-21T12:43Z

Jag har en funktion som gör att medlemmarna på sajten kan skapa "kompisrelationer" med varandra. Problemet är att man skapa en relation med sig själv. Dessutom kan man skapa flera kompisrelationer med samma medlem. Undrar hur jag ska göra för att hindra medlemmarna ha skapa relationen med sig själv samt ha flera relationer med samma medlem.

Koden ser ut såhär:

```
<% 
Set Databas = Server.CreateObject("ADODB.Connection")
Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("medlemmar.mdb")
MdbFilePath2 = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";" 
SQL = "INSERT INTO kompisar "
SQL = SQL & "(username, kompis) "
SQL = SQL & "VALUES('" & Session ("namn") & "', '" & Request.QueryString("login") & "')" 
SQL2 = "INSERT INTO meddelande ([fran], [datum], [meddelande], [rubrik], [till], [status]) VALUES('" & Session("namn") & "',#" & now & "#,'Medlemmen " & Session("namn") & " har kompis med dig. ','Kompis!','" & Request.QueryString("login") & "','Oläst')" 
set rsKompis=Databas.execute(SQL)
set rsMess=Databas2.execute(SQL2) 
%>
```

Någon som har en idé? :)

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

## #2 — Lukaspojken, 2001-07-21T12:50Z

Du får öppna databasen och hämta den gamla adresslistans ID till att börja med. Sen gör du en if-sats helt enkelt av det.

IF NOT session("Sin egenID eller hur du har det sparat") OR kompis("ID") THEN
Uppdatera kompislista

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

## #3 — Lukaspojken, 2001-07-21T12:52Z

Ett råd är dock att spara Kompis-id:na i en array som du loppar ut. KÄnner att jag inte var så tydlig...hinner inte svara mer men testa lite, lyckas du inte så fråga igen...:)

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

## #4 — Hazze, 2001-07-21T12:57Z

Tack för svaret. Har försökt trixa lite med en liknande if-sats som du gav mig. Får dock inget resultat.

Någon som har någon kod att dela med sig? :)

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

## #5 — Mr Nils, 2001-07-21T13:38Z

err, är det inte bara att kolla om en likadan post skapats, typ försöka öppna databasen med relationerna, och sen.

If RecSet.Eof then skapaennyrelation

eller?

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

## #6 — cyprys, 2001-07-21T14:15Z

Då testar vi såhär. Självklart otestat. ;)

```
<% 
Set Databas = Server.CreateObject("ADODB.Connection")
Set Databas2 = Server.CreateObject("ADODB.Connection")

MdbFilePath = Server.MapPath("medlemmar.mdb")
MdbFilePath2 = Server.MapPath("mess.mdb")

Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";" 

Set check = Databas.execute("SELECT * FROM kompisar WHERE username = '"&session("namn")&"' AND kompis = '"&request.querystring("login")&"'  ")

if check.eof AND session("namn") <> request.querystring("login") then

SQL = "INSERT INTO kompisar "
SQL = SQL & "(username, kompis) "
SQL = SQL & "VALUES('" & Session ("namn") & "', '" & Request.QueryString("login") & "')" 

SQL2 = "INSERT INTO meddelande ([fran], [datum], [meddelande], [rubrik], [till], [status]) VALUES('" & Session("namn") & "',#" & now & "#,'Medlemmen " & Session("namn") & " har kompis med dig. ','Kompis!','" & Request.QueryString("login") & "','Oläst')" 

set rsKompis=Databas.execute(SQL)
set rsMess=Databas2.execute(SQL2) 

else
	' Det här funkade inte
end if
%>
```

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

## #7 — Hazze, 2001-07-21T15:35Z

Cyprys, det fungerar utmärkt. Tackar!

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

## #8 — cyprys, 2001-07-22T00:31Z

så lite så.. ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10710-frågor-om-kompisfunktion