ASPECT Community v.05b

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
Tack // Coccozz

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

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

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>

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

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

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

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?

Nope

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

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...

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

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

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"
%>

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

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

Mvh

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.

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

  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?