---
title: "ASPECT Community v.05b"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/80161-aspect-community-v-05b"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Coccozz"
published: "2003-06-19T14:50:52.000Z"
updated: "2003-06-21T13:22:55.000Z"
replies: 37
views: 651
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/80161-aspect-community-v-05b"
---

# ASPECT Community v.05b

_Sida 1 av 2._

## #1 — Coccozz, 2003-06-19T14:50Z

Laddade hem ASPECTs community v.05b från ASP-sidan eftersom jag inte vill ha ett vanligt community men med vissa av de funktionerna som ett vanligt community  :q 
Ajja... Sedan skulle jag pröva så att koden fungerar, men det gör den inte om man skall skicka meddelanden, för då kommer det hela tiden upp det att medlemmen inte är registrerad...
Koden för sidan som skall skicka meddelandet kommer här
/red.
Oooops...Ber så hemskt mycketm om ursäkt, upptäckte att jag inte hade ändrat bägge databaskopplingarna  :r 
Men nu kan jag ju använda den här tråden om det är något annat jag undrar över ;)
Tack // Coccozz

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

## #2 — Coccozz, 2003-06-19T15:47Z

Nya problem...

Skulle nu pyssla ihop så att man ska kunna ta bort vänner men det vill sig inte riktigt  :( 
Här är koden för länken:

```
<a href="kompisar.asp?del=<%=RecSet2("id")%>">X</a>
```

Och här är koden för själva utförandet:

```
<%If Request.Querystring("del") = "" then
Set conn = Server.CreateObject("ADODB.Connection")
conn.open koppling
SQL = "DELETE * FROM friends WHERE id = " & Request.Querystring("del")
conn.Execute(SQL)
conn.close
Set conn = nothing
END IF
%>
```

Vet inte vad jag har gjort fel, är väl inget ASP proffs precis :OO 
Tack // Coccozz

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

## #3 — LarsG, 2003-06-19T15:54Z

```
<%If Request.Querystring("del") <> "" then
```

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

## #4 — Coccozz, 2003-06-19T16:23Z

Fungerar inte ändå :(
Får inte upp något felmeddelande längre men ingenting händer då man klickar på länken :(

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

## #5 — Coccozz, 2003-06-19T16:25Z

Löste det genom att ändra i länken 

```
<a href="kompisar.asp?del=<%=RecSet2("id")%>">X</a>
```

till 

```
<a href="kompisar.asp?del=<%=RecSet("id")%>">X</a>
```

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

## #6 — Coccozz, 2003-06-19T16:26Z

Då till en annan sak ;)
Just nu kan man lägga till samma kompis hur många gånger som helst, hur löser man detta, för man ska ju bara kunna lägga till en användare som kompis en gång :)

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

## #7 — Engine^, 2003-06-19T16:37Z

Du kollar först med en SELECT om användaren finns i tabellen över kompisar. Om inte: lägg till ny kompis.

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

## #8 — Coccozz, 2003-06-19T16:42Z

Är som sagt inte proffs på ASP :(
Snälla berätta lite mer så lär jag mig mer :)

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

## #9 — voigtann1, 2003-06-19T17:19Z

typ kanske:

```
SQL = "Select * FROM friends WHERE id = " & Request.Querystring("del")
set recset = conn.execute(SQL)

if not recset.eof then
response.write "Du har redan personen som medlem"
else
SQL = "Update..."
end if
```

Förstår du?

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

## #10 — Coccozz, 2003-06-19T17:34Z

Nope :(

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

## #11 — Engine^, 2003-06-19T17:40Z

Hur ser koden ut när en kompis ska läggas till?

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

## #12 — voigtann1, 2003-06-19T17:42Z

Nähä... <http://www.webeye.nu> kan du ju börja läsa lite om SQL.. så här då:

```
SQL = "Select * FROM friends WHERE id = " & Request.Querystring("del")
set recset = conn.execute(SQL)

if not recset.eof then
response.write "Du har redan personen som medlem"
else
SQL = "INSERT INTO friends (id) values ("&request.querystring("del") &")"
conn.Execute(SQL)
end if
```

Så... ID ska vara tal och inte en räknare i detta sammanhang...

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

## #13 — Coccozz, 2003-06-19T17:48Z

/red. Råckade bli dubbelpostning, ber om ursäkt, det var internetet som hoppade ur och sedan in igen :(  :r

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

## #14 — Coccozz, 2003-06-19T17:49Z

Skickar upp så långt jag har kommit... Det fungerar att lägga till vänner men man kan fortfarande lägga till de hundra gånger om man vill det :(

```
<!-- #Include File="adovbs.inc" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/databas/members.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM friends WHERE id = " & Request.Querystring("id")
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic 

if not recset.eof then
response.write "Du har redan personen som medlem"
else

DO UNTIL RecSet.EOF

	If RecSet("id2") = Request.QueryString("id") AND Session("id") = RecSet("id1")Then
		RecSet.Close
		Conn.Close
		Response.Redirect "kompisar.asp"
	End If

RecSet.MoveNext
Loop

	RecSet.AddNew

	RecSet("id1") = Session("id")
	RecSet("id2") = Request.Querystring("id")

	RecSet.Update
	
RecSet.Close
Conn.Close
Response.Redirect "kompisar.asp"%>
<%end if%>
```

Tack för länken... SKa gå in och läsa där

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

## #15 — Engine^, 2003-06-19T18:06Z

Det här kan fungera

```
<!-- #Include File="adovbs.inc" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/databas/members.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select id1, id2 FROM friends WHERE id = " & Request.Querystring("id")
Set RecSet = Conn.Execute(SQL, , 1)

if not recset.eof then
  response.write "Du har redan personen som medlem"
else
  SQL = "INSERT INTO friends (id1, id2) VALUES (" & Session("id") &", " & Request.QueryString("id") & ")"
  Conn.Execute SQL, , 128
End If

RecSet.Close : Set RecSet = Nothing
Conn.Close : Set Conn = Nothing

Response.Redirect "kompisar.asp"
%>
```

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

## #16 — Coccozz, 2003-06-19T18:14Z

Ooops! Fick inget felmeddelande och registreringen fungerar, men man kan fortfarande regga samma vän flera gånger  :(

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

## #17 — @nders, 2003-06-19T18:16Z

Om du deklarerar konstanterna själv ska du inte inkludera adovbs.inc, och vice versa.

Mvh

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

## #18 — Engine^, 2003-06-19T18:21Z

> **Coccozz skrev:**
>
> Ooops! Fick inget felmeddelande och registreringen fungerar, men man kan fortfarande regga samma vän flera gånger  :(

Då skulle jag vilja veta hur tabellen friends ser ut... antingen har jag missat något uppenbart eller så är strukturen möjligtvis en aning skum.

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

## #19 — Coccozz, 2003-06-19T18:23Z

En tabell som heter id och innehåller en räknare
en tabell som heter id1
och en tabell som heter id2

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

## #20 — Engine^, 2003-06-19T18:28Z

&nbsp; :) Du menar en tabell som heter friends, som har *kolumnerna* id, id1 och id2?

Nåja, vad är det som lagras i respektive fält?
id = Användaren
id1 = Användaren igen?
id2 = kompisens id?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/80161-aspect-community-v-05b  
Nästa sida: https://www.webforum.nu/amne/asp/80161-aspect-community-v-05b/page2.md