Resultate av den här koden är följande:

1 vissar den dom du väntar svar ifrån.
2. vissar den som väntar svar från dig.
Men i mitt problem framträder här.
1. fungerar bra på Admin konoto där vissar den vilka du väntar svar ifrån.
2. Du ser vilka som väntar svar från dig.
Men loggar jag in och bildar en nya relation med ett annan användare?
Så lägger allt av. Vad är då fel?
Fortfarande fungerar Admin kontot ändå.
Någon som förstår+
Relationen är
0 = Ej besvarad vänskap.
1 = Besvarad vänskap.
2 = Nekad vänskap Eller avslutad vänskap.

<%
Set con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../../Db/Community.mdb") & ";"
Set rst = con.execute("Select Användare1,Användare2,Relation From friends Where Användare1 ='" & Session("userid") & "' and Relation =" & 0)
If not rst.eof Then

Response.write "Du har inte fått svar på din relations förfrågan av följande användare här:"
Response.write "<Table border=0>"
Response.write "<Tr></Tr><Tr>"

Do until rst.eof
Set rst1 = Con.execute("Select User From User Where id ='" &  Rst ("Användare2") & "'")

If not rst1.eof Then
Response.write "<Td>" & Rst1("User") & "</Td>"
Response.write "</Tr><Tr>"

Else
End if
'rad 20
Rst.MoveNext
Rst1.MoveNext
Loop

Response.write "</Table>"

Set rst = Nothing
Set rst1 = Nothing

Set rst = con.execute("Select Användare1,Användare2,Relation From Friends Where Användare2 ='" & Session("Userid") & "' and Relation =" & 0)

If not rst.eof Then
Response.write "Följande användare väntar på din relations aktivering."
Response.write "<Table border=0>"
Response.write "<Tr></Tr><Tr>"
Do until rst.eof
Set rst1 = Con.execute("Select * From User Where id ='" & rst("Användare1") & "'")
If not rst1.eof Then 'rad 38
Response.write "<Td>" & rst1("User") & "</Td>"
Response.write "<Td>Accpetera relation?</Td>"
Response.write "</Tr><Tr>"
Else
End if
Rst.MoveNext
Rst1.Movenext
loop
Response.write "</Tr><Tr></Tr>"
Response.write "</Table>"
Else
End if


Else
End if
%>

JAg har försökt reda ut din kod. Du kan ju testa om det hjälper.

<code>
<%
Dim strSQL
Dim con, rst

Const rNoReply = 0
Const rAccepted = 1
Const rRejected = 2

Set con = Server.CreateObject("Adodb.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("../../../Db/Community.mdb") & ";"

Set rst = Server.CreateObject("Adodb.Recordset")

strSQL = "SELECT friends.Användare1, friends.Användare2, User2.User AS User2, friends.Relation" & vbCrLf & _
"FROM friends LEFT JOIN User User2 ON friends.Användare2 = User2.id" & vbCrLf & _
"WHERE Användare1 = '" & Replace(Session("userid"), "'", "''") & "' AND Relation =" & rNoReply & vbCrLf

rst.Open strSQL, con

If rst.EOF Then
' Response.write "Du har inga relations förfrågningar..."
Else
Response.write "Du har inte fått svar på din relations förfrågan av följande användare här:"

Response.write "<Table border=0>"
Do
Response.write "<tr><td>" & Server.HTMLEncode(Rst("User2")) & "</td></tr>"

Rst.MoveNext
Loop until rst.EOF
Response.write "</Table>"
End If

rst.Close

strSQL = "SELECT friends.Användare1, User1.User AS User1, friends.Användare2, friends.Relation" & vbCrLf & _
"FROM friends LEFT JOIN User User1 ON friends.Användare1 = User1.id" & vbCrLf & _
"WHERE Användare1 = '" & Replace(Session("userid"), "'", "''") & "' AND Relation =" & rNoReply & vbCrLf

rst.Open strSQL, con

If rst.EOF Then
' Response.write "Du har inga relations förfrågningar..."
Else
Response.write "Följande användare väntar på din relations aktivering."

Response.write "<Table border=0>"
Do
Response.write "<tr><td>" & Server.HTMLEncode(rst("User1")) & "</td><td>Accpetera relation?</td></tr>"

Rst.MoveNext
Loop until rst.EOF
Response.write "</Table>"
End If

rst.Close
Set rst = Nothing

con.Close
Set Con = Nothing
%>
</code>

Hejsan problemet kvarstår ändå.
När jag la till teddybear och gick in på den användaren så ser man inget ting.
Vad är då fel?

Är verkligen Användare1 ett textfält? Ifall det är numeriskt så ska du inte ha apostrofer runt värdet:

Set rst = con.Execute("Select Användare1,Användare2,Relation From friends Where Användare1=" & Session("userid") & " and Relation=0")

Ska kolla på en backup filerna för kör det på min egna dator och skol datorn. Men det är den skol datorn som strullar.
För när jag kolla igår på backup så fungerar den funktion där.
Så ska kolla om det funkar lika bra när jag lägger ut det på internet.
Blir ju nästan grå hårig.

KAn du berätta hur din datastruktur ser ut. Ser ut som du spaar länkar till en användares smeknamn istället för dess id.

Vänskaps relationen i den nya tabellen är följande (ej ute då jag inte hade diskett att öveföra den idag)
men det är
Id (Unikt)
Användare1 (id på den som skapar en relation med en annan där den jag skapar relation med lagras i användare 2 medans den som skapar en relation lagras här)
Användare2 (id från användaren som man är kompis relation med)
Relation (-1,0 och 1) beroände om den är accepterad eller inte acceptera eller nekad vänskap.
Den nya vänner ser lika dan ut.
Men i den nya uppstår det problem när man är vän och värdet i databasen är 0 värde med 0 värde på sidan. Då blir det Error. Men har jag talet 1 som värde i databasen och 0 på sidan (När den ska lista vänner) så uppstår inte felmedelandet.
Osv.