---
title: "bli kompis"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13905-bli-kompis"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hacktheplanet"
published: "2002-01-20T00:29:00.000Z"
updated: "2002-01-20T14:03:00.000Z"
replies: 3
views: 164
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/13905-bli-kompis"
---

# bli kompis

## #1 — hacktheplanet, 2002-01-20T00:29Z

snälla snälla kan nån hjälpa mig har försökt och fixat det i flera timmar men funkar inte 

jag vill att när man har blivit kompis med medlemmen ska bli medlem länken försvinna men annars inte!!

så här ser min kompis lista ut:

```
<% 
Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";" 
Set RecSet2 = Server.CreateObject("ADODB.Recordset") 

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

Set RecSet = Server.CreateObject("ADODB.Recordset") 
Addera = "Select * From kompis Where ID1 = "&Session("id")&" order by namn"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic 

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

Set RecSet3 = Server.CreateObject("ADODB.Recordset")
on error resume next
Addera = "Select * From members Where id = "&Recset("id2")
RecSet3.Open Addera, Connect3, adOpenStatic, adLockOptimistic

%>
```

och så här i medlemmens sida:

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

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members Where id = " &Request.QueryString("checkid")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>
```

kolumner:
ID1= medlemmens ID Nummer
ID2= kompisens ID Nummer

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

## #2 — hacktheplanet, 2002-01-20T13:26Z

snälla kan nån hjälpa mig :(

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

## #3 — @nders, 2002-01-20T13:48Z

På medlemmens sida ställer du en fråga typ:

```
strSQL = "Select * From kompis Where ID1 = "&Session("id")&" and ID2 = " & Request.QueryString("checkid")
set objRS = Connect.Execute(strSQL)
if objRS.eof then
'visa länk till bli medlem
end if
```

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

## #4 — hacktheplanet, 2002-01-20T14:03Z

tack så mycket anders :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13905-bli-kompis