Hjälp vännerscript!

/////////////////////////////////////////////////////////////////

// Skapar en vän.
// Dessutom med kontroller på att man inte kan skapa sig själv som vän eller om en vän är redan skapad.

/////////////////////////////////////////////////////////////////

		IF Request.Querystring("create")="friend" then
		IF NOT Request.Querystring("add") = Session("anvandarnamn") then
	Set ObjRS = ObjConn.Execute("Select * From friend where from_user='"&Fixbug(Session("anvandarnamn"))&"'" & " or to_user='"&Fixbug(Session("anvandarnamn"))&"'")

	Do Until ObjRS.Eof

		IF ObjRS("to_user") = Request.Querystring("add") or ObjRS("from_user") = Request.Querystring("add") then
	ObjConn.Close : Set ObjConn = Nothing
					Response.Redirect "friend.asp?friend=have"
		End if

	ObjRS.Movenext
	Loop

	ObjRS.Close : Set ObjRS = Nothing

	Set ObjRS = ObjConn.Execute("Select * from medlemmar where anvandarnamn='"&Fixbug(Request.Querystring("add"))&"'")
		IF ObjRS.Eof then
					Response.Write "Ingen medlem att skapa med."
		else

%><form action="?do=add&add=<%=Server.HtmlEncode(ObjRS("anvandarnamn"))%>" method="post">
Du vill adda <%=Server.HtmlEncode(ObjRS("anvandarnamn"))%> till dina vänner?<p></p>

Träffat personen IRL = In real life.<br>
<select name="irl"><option value="">Välj</option><option value="Ja">Ja</option><option value="Nej">Nej</option></select><p></p>

Vilken relation vill du ha personen i?<br><select name="relation"><option value="">Välj</option><%

	Set ObjRS = ObjConn.Execute("Select * from friend_kat order by kategori")
		IF NOT ObjRS.Eof then

	DO UNTIL ObjRS.EOF
					Response.Write "<option value='"&Server.HtmlEncode(ObjRS("kategori"))&"'>"&Server.HtmlEncode(ObjRS("kategori"))&"</option>"
	ObjRS.Movenext
	Loop
					Response.Write "</select><p></p><input type='submit' value='Skapa vän'></form><p></p>"
	ObjRS.Close : Set ObjRS = Nothing
	ObjConn.Close : Set ObjConn = Nothing

		else
					Response.Write "Du kan ej adda dig själv."
		End if
		End if
		else

	ObjConn.Close : Set ObjConn = Nothing
					Response.Redirect "friend.asp?friend=have"
		End if

		End if

/////////////////////////////////////////////////////////////////

// Skapar vännen i databasen.

/////////////////////////////////////////////////////////////////

		IF Request.Querystring("do")="add" then
		IF Len(Request.Form("relation") & "") > 0 and Len(Request.Form("irl") & "") > 0 then
	ObjConn.Execute("Insert into friend (to_user, from_user, relation, datum, irl) values ('" & Fixbug(Request.Querystring("add")) & "','" & Fixbug(Session("anvandarnamn")) &"','" & Fixbug(Request.Form("relation")) &"','" & now &"','" & Fixbug(Request.Form("irl")) &"')")
	ObjConn.Close : Set ObjConn = Nothing

					Response.Redirect "?friend=show&view="&Session("anvandarnamn")&""

		else
	ObjConn.Close : Set ObjConn = Nothing

					Session("error") = "Måste kryssa i allt."
					Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
		End if
		End if

/////////////////////////////////////////////////////////////////

// Kontrollerar om man har redan personen som vän eller om det är sig själv.

/////////////////////////////////////////////////////////////////

		IF Request.Querystring("friend")="have" then
					Response.Write "Kan ej skapa relation. Har redan som vän eller med dig själv?"
		End if

%><!-- #include file="includes/error.asp" -->

och db2.asp ser ut såhär...:

[code]
/////////////////////////////////////////////////////////////////

// Skriver ut tiden i svenskt format, även om du använder en engelsk server.

/////////////////////////////////////////////////////////////////

Session.lcid = 1053

/////////////////////////////////////////////////////////////////

// Databaskopplingen, kontrollera sökvägen.

/////////////////////////////////////////////////////////////////

set ObjConn = server.createobject("ADODB.connection")
ObjConn.Open "DRIVER={MySQL ODBC 3.51 Driver}

/////////////////////////////////////////////////////////////////

// Skyddar dig emot SQL-Injection. Läs mer på http://fwr.mine.nu/artikel.asp?id=22

/////////////////////////////////////////////////////////////////

Function fixbug(strText)

	strText = Replace(strText,"'","''")
	strText = Replace(strText,"\\","\\\\")

fixbug = strText
End Function

%>

TACKSAM FÖR ALL HJÄLP!

skicka bara SQL frågan.. ditt utseende på sajten är inte intresant..

Snälla sluta skriva med Caps!

Det är inge "utseende" i den koden... !

ehh.. jo... jag orkar inte sitta en hel kväll med dina koder igen. Du måste ju veta var problemet ligger ungefär... Utseende = HTML kod... och ja du har en massa HTML kod som inte är intressant eller har med problemet att göra.

En massa var att ta i?

<!-- #include file="includes/db2.asp" --><%

		IF Request.Querystring("friend")="show" then

%><!-- #include file="includes/user_menu.asp" --><%

	Set ObjRS = ObjConn.Execute("Select * From friend where to_user='"&Fixbug(Request.Querystring("view"))&"'" & " or from_user='"&Fixbug(Request.Querystring("view"))&"'" & " and accept='Yes'" & " order by relation")

		IF Request.Querystring("view") = Session("anvandarnamn") then
		End if

		If ObjRS.Eof Then
					Response.Write "Personen har inga vänner."
		else
	Do until ObjRS.Eof

		IF Request.Querystring("view") = Session("anvandarnamn") then
		else
		End if

		IF ObjRS("from_user") = Request.Querystring("view") then
		else
		End if
					Response.Write "</tr>"

	ObjRS.MoveNext
	Loop
					Response.Write "<tr><td colspan='5'><hr class='hr'></td></tr>"

	ObjRS.Close : Set ObjRS = Nothing
	ObjConn.Close : Set ObjConn = Nothing

		End if
		End if

/////////////////////////////////////////////////////////////////

// Väntar svar ifrån någon person.

/////////////////////////////////////////////////////////////////

	IF Request.Querystring("wait") ="page" then
	Set ObjRS = ObjConn.Execute("Select * From friend where from_user='"&Fixbug(Session("anvandarnamn"))&"'" & " and accept='Vänta'")

		IF ObjRS.Eof then
					Response.Write "Du väntar inga svar."
		else
					Response.Write "<tr><td colspan='5'>Du väntar svar från.<hr class='hr'></td></tr>"
	Do Until ObjRS.Eof
					Response.Write "<tr><td width='10'><a href='?edit=friend&ID="&Server.HtmlEncode(ObjRS("id"))&"'><img src='bilder/info.png' border='0'></a></td><td><a href='userview.asp?view="&Server.HtmlEncode(ObjRS("to_user"))&"'>"&Server.HtmlEncode(ObjRS("to_user"))&"</a><br>Kategori: "&Server.HtmlEncode(ObjRS("relation"))&"</td><td><a href='message.asp?send=mess&view="&Server.HtmlEncode(ObjRS("to_user"))&"'>PM</a> / <a href='gb.asp?show=user&view="&Server.HtmlEncode(ObjRS("to_user"))&"'>GB</a><br>Träffats? "&Server.HtmlEncode(ObjRS("irl"))&"</td></tr>"
	ObjRS.MoveNext
	Loop
					Response.Write "<tr><td colspan='5'><hr class='hr'></td></tr>"

	ObjRS.Close : Set ObjRS = Nothing
	ObjConn.Close : Set ObjConn = Nothing

		End if
		End if

/////////////////////////////////////////////////////////////////

// Om man har någon person att acceptera.

/////////////////////////////////////////////////////////////////

		IF Request.Querystring("accept")="friend" then
	Set ObjRS = ObjConn.Execute("Select * From friend where accept='Vänta' and to_user='"&Fixbug(Session("anvandarnamn"))&"'")

		If ObjRS.Eof Then 
	ObjRS.Close : Set ObjRS = Nothing
	ObjConn.Close : Set ObjConn = Nothing
					Response.Redirect "friend.asp?friend=show&view="&Session("anvandarnamn")&""
		End if
					Response.Write "Folk som du vill acceptera?<hr class='hr'><p></p>"
	Do Until ObjRS.EOF

%><form action="?do=accept&ID=<%=Server.HtmlEncode(ObjRS("ID"))%>" method="post">
Vill du acceptera? <select name="accept"><option value="Yes" selected>Ja</option><%

	ObjRS.MoveNext
	Loop

	ObjRS.Close : Set ObjRS = Nothing
	ObjConn.Close : Set ObjConn = Nothing

		End if

		IF Request.Querystring("do")="accept" then
		IF Request.Form("accept")="No" then
	ObjConn.Execute("Delete from friend where ID="&Fixbug(Request.Querystring("id"))&"" & " and to_user='"&Fixbug(Session("anvandarnamn"))&"'")
		End if

	ObjConn.Execute("Update friend set accept='"&Fixbug(Request.Form("accept"))&"'" & " where ID="&Fixbug(Request.Querystring("ID"))&"")
	ObjConn.Close : Set ObjConn = Nothing
					Response.Redirect "?friend=show&view="&Session("anvandarnamn")&""
		End if

		IF Request.Querystring("edit")="friend" then
	Set ObjRS = ObjConn.Execute("Select * from friend where ID="&Fixbug(Request.Querystring("ID"))&"")
		IF ObjRS.Eof then
					Response.Redirect "index.asp"
		else

		IF ObjRS("from_user") = Session("anvandarnamn") or ObjRS("to_user") = Session("anvandarnamn") then

%><form action="?quit=relation&ID=<%=Server.HtmlEncode(ObjRS("ID"))%>" method="post">
<input type="submit" value="Avsluta relationen / Sluta vänta"></form>

<form action="?do=edit&id=<%=Server.HtmlEncode(ObjRS("ID"))%>" method="post">
 <%

	Set ObjRS = ObjConn.Execute("Select * from friend_kat order by kategori")
					Response.Write "<select name='relation'><option value=''>Välj</option>"
	Set ObjRS2 = ObjConn.Execute("Select * from friend where ID="&Fixbug(Request.Querystring("ID"))&"")
					Response.Write "<option value='"&Server.HtmlEncode(ObjRS2("relation"))&"' selected>"&Server.HtmlEncode(ObjRS2("relation"))&"</option>"
	DO UNTIL ObjRS.EOF
					Response.Write "<option value='"&Server.HtmlEncode(ObjRS("kategori"))&"'>"&Server.HtmlEncode(ObjRS("kategori"))&"</option>"
	ObjRS.Movenext
	Loop
					Response.Write "</select><hr class='hr'><input type='submit' value='Ändra'></form>"

	ObjRS.Close : Set ObjRS = Nothing
	ObjRS2.Close : Set ObjRS2 = Nothing
	ObjConn.Close : Set ObjConn = Nothing	

		else
					Response.Redirect "index.asp"
		End if
		End if
		End if

		IF Request.Querystring("do")="edit" then
		IF Len(Request.Form("relation") & "") > 0 and Len(Request.Form("irl") & "") > 0 then
	ObjConn.Execute("Update friend set irl='"&Fixbug(Request.Form("irl"))&"', relation='"&Fixbug(Request.Form("relation"))&"'" & " where ID="&Fixbug(Request.Querystring("id"))&"" & " and to_user='"&Fixbug(Session("anvandarnamn"))&"'" & " or from_user='"&Fixbug(Session("anvandarnamn"))&"'")
	ObjConn.Close : Set ObjConn = Nothing
					Response.Redirect "?friend=show&view="&Session("anvandarnamn")&""
		else

	ObjConn.Close : Set ObjConn = Nothing
					Session("error") = "Inga tomma fält."
					Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
		End if
		End if

		IF Request.Querystring("quit")="relation" then
	ObjConn.Execute("Delete from friend where ID="&Fixbug(Request.Querystring("id"))&"" & " and from_user='"&Fixbug(Session("anvandarnamn"))&"'" & " or to_user='"&Fixbug(Session("anvandarnamn"))&"'")
	ObjConn.Close : Set ObjConn = Nothing
					Response.Redirect "?friend=show&view="&Session("anvandarnamn")&""
		End if

		IF Request.Querystring("create")="friend" then
		IF NOT Request.Querystring("add") = Session("anvandarnamn") then
	Set ObjRS = ObjConn.Execute("Select * From friend where from_user='"&Fixbug(Session("anvandarnamn"))&"'" & " or to_user='"&Fixbug(Session("anvandarnamn"))&"'")

	Do Until ObjRS.Eof

		IF ObjRS("to_user") = Request.Querystring("add") or ObjRS("from_user") = Request.Querystring("add") then
	ObjConn.Close : Set ObjConn = Nothing
					Response.Redirect "friend.asp?friend=have"
		End if

	ObjRS.Movenext
	Loop

	ObjRS.Close : Set ObjRS = Nothing

	Set ObjRS = ObjConn.Execute("Select * from medlemmar where anvandarnamn='"&Fixbug(Request.Querystring("add"))&"'")
		IF ObjRS.Eof then
					Response.Write "Ingen medlem att skapa med."
		else

%><form action="?do=add&add=<%=Server.HtmlEncode(ObjRS("anvandarnamn"))%>" method="post">
Du vill adda <%=Server.HtmlEncode(ObjRS("anvandarnamn"))%> till dina vänner?<p></p>

<%

	Set ObjRS = ObjConn.Execute("Select * from friend_kat order by kategori")
		IF NOT ObjRS.Eof then

	DO UNTIL ObjRS.EOF
					Response.Write "<option value='"&Server.HtmlEncode(ObjRS("kategori"))&"'>"&Server.HtmlEncode(ObjRS("kategori"))&"</option>"
	ObjRS.Movenext
	Loop
					Response.Write "</select><p></p><input type='submit' value='Skapa vän'></form><p></p>"
	ObjRS.Close : Set ObjRS = Nothing
	ObjConn.Close : Set ObjConn = Nothing

		else
					Response.Write "Du kan ej adda dig själv."
		End if
		End if
		else

	ObjConn.Close : Set ObjConn = Nothing
					Response.Redirect "friend.asp?friend=have"
		End if

		End if

		IF Request.Querystring("do")="add" then
		IF Len(Request.Form("relation") & "") > 0 and Len(Request.Form("irl") & "") > 0 then
	ObjConn.Execute("Insert into friend (to_user, from_user, relation, datum, irl) values ('" & Fixbug(Request.Querystring("add")) & "','" & Fixbug(Session("anvandarnamn")) &"','" & Fixbug(Request.Form("relation")) &"','" & now &"','" & Fixbug(Request.Form("irl")) &"')")
	ObjConn.Close : Set ObjConn = Nothing

					Response.Redirect "?friend=show&view="&Session("anvandarnamn")&""

		else
	ObjConn.Close : Set ObjConn = Nothing

					Session("error") = "Måste kryssa i allt."
					Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
		End if
		End if

		IF Request.Querystring("friend")="have" then
					Response.Write "Kan ej skapa relation. Har redan som vän eller med dig själv?"
		End if

%><!-- #include file="includes/error.asp" -->

var / när är objRS("from_user") inget? alltid? isåfall är det nog så att den inte är något i databasen...

va? :)

din fråga är om jag har förstått det hela rätt att du har problem med din Insert:

ObjConn.Execute("Insert into friend (to_user, from_user, relation, datum, irl) values ('" & Fixbug(Request.Querystring("add")) & "','" & Fixbug(Session("anvandarnamn")) &"','" & Fixbug(Request.Form("relation")) &"','" & now &"','" & Fixbug(Request.Form("irl")) &"')")

kolla om session("anvandarnamn") ens är något..

anvandarnamn kmr från en annan tabell i databasen som heter medlemmar och den ska sättas in i "from_user" ..

to_user har också "anvandarnamn" och där blir det ju en insert

.. jag skriver bara av din kod... Läs ingeom dina/andras koder som du använder dig av... för just nu säger vare sig din fråga mig något.

from_user är användaren som gör en vänskapsförfrågan till to_user.. to_user får ett värde.. from_user får inget, min fråga är då hur kommer det sig ?

då är det din INSERT SQL du undra över..

ObjConn.Execute("Insert into friend (to_user, from_user, relation, datum, irl) values ('" & Fixbug(Request.Querystring("add")) & "','" & Fixbug(Session("anvandarnamn")) &"','" & Fixbug(Request.Form("relation")) &"','" & now &"','" & Fixbug(Request.Form("irl")) &"')")

Kontrollera att Session("anvandarnamn") innehåller något... som jag skrev på något svar ovan..
prova ta

response.write "Insert into friend (to_user, from_user, relation, datum, irl) values ('" & Fixbug(Request.Querystring("add")) & "','" & Fixbug(Session("anvandarnamn")) &"','" & Fixbug(Request.Form("relation")) &"','" & now &"','" & Fixbug(Request.Form("irl")) &"')"

den innehåller ngt eftersom to_user får ju ett värde och det är från "anvandarnamn" (?)

to_user får ju sitt värde ifrån en quesystring dvs då är dom inte lika eftersom querystringar och sessioner INTE är detsamma.. den innehåller '' enligt dina förklaringar dvs session("anvandarnamn") = ""...

aha okey.

user_menu.asp

<%
Set ObjRS = ObjConn.Execute("Select * from medlemmar where anvandarnamn='"&Fixbug(Request.Querystring("view"))&"'")
IF NOT ObjRS.Eof then

	IF ObjRS("anvandarnamn") = Session("anvandarnamn") then
				Response.Write "\<a href=""friend.asp?friend=show&view="&Server.HtmlEncode(Session("anvandarnamn"))&"""\>Vänner\</a\>"
	Else
				Response.Write "\<a href=""friend.asp?friend=show&view="&Server.HtmlEncode(ObjRS("anvandarnamn"))&"""\>Vänner\</a\>"
	End if
	End if

%>

... jag gersnart upp, det märks tydligt att du inte har en susning om hur man kodar eller har någon direkt sug på att lära dig koda för den delen heller utan allt ska redan vara färdigt.

det du skriver i user_menu.asp är IDENTISKA.. view= kommer alltid skriva ut id nummret som request.querystring innehåller... session("anvandarnamn") skapas aldrig var jag ser heller...

Tror du skapar ett community om jag har förstått alla de inlägg du gör här på wF men det är inget för en nybörjare...

Skapar något mindre och lär dig av det istället för att försöka på ett Community.

Hur skapar jag session("anvandarnamn") ?

Jag vet att jag kan låta någorlunda blåst emellanåt och ser ut som jag vill ha allt serverat men jag lär mig massor.