webForumDet fria alternativet
Logga in

Hjälp vännerscript!

25 svar · 776 visningar · startad av Jeppeweb

JeppewebMedlem sedan sep. 2006462 inlägg
#1

Varför får inte from_user något värde i databasen? Allt annat får ett värde...

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

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

// Kontrollerar om personen har några vänner och sedan skriver ut dem.

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

		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
					Response.Write "<a href='?wait=page'>Väntar svar ifrån?</a><p></p>"
		End if

		If ObjRS.Eof Then
					Response.Write "Personen har inga vänner."
		else
					Response.Write "<tr><td colspan='5'><hr class='hr'></td></tr>"
	Do until ObjRS.Eof

		IF Request.Querystring("view") = Session("anvandarnamn") then
					Response.Write "<tr><td width='10'><a href='?edit=friend&ID="&Server.HtmlEncode(ObjRS("id"))&"'><img src='bilder/info.png' border='0'></a></td>"
		else
					Response.Write "<tr><td width='10'><img src='bilder/info.png'></td>"
		End if

		IF ObjRS("from_user") = Request.Querystring("view") then
					Response.Write "<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>"
		else
					Response.Write "<td><a href='userview.asp?view="&Server.HtmlEncode(ObjRS("from_user"))&"'>"&Server.HtmlEncode(ObjRS("from_user"))&"</a><br>Kategori: "&Server.HtmlEncode(ObjRS("relation"))&"</td><td><a href='message.asp?send=mess&view="&Server.HtmlEncode(ObjRS("from_user"))&"'>PM</a> / <a href='gb.asp?show=user&view="&Server.HtmlEncode(ObjRS("from_user"))&"'>GB</a><br>Träffats? "&Server.HtmlEncode(ObjRS("irl"))&"</td>"
		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">
<a href="userview.asp?view=<%=Server.HtmlEncode(ObjRS("from_user"))%>"><%=Server.HtmlEncode(ObjRS("from_user"))%></a><br>
Skapat för relation? <b><%=Server.HtmlEncode(ObjRS("relation"))%></b><br>
Träffats IRL <b><%=Server.HtmlEncode(ObjRS("irl"))%></b><p></p>
Vill du acceptera? <select name="accept"><option value="Yes" selected>Ja</option><option value="No">Nej</option></select><p></p><input type="submit" value="Acceptera"></form><hr class="hr"><p></p><%

	ObjRS.MoveNext
	Loop

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

		End if

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

// Accepteras personen så ändras det i databasen att han är accepterad.
// Accepterar man inte personen så tas den bort.

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

		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

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

// Ändrar uppgifterna.

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

		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>

<hr class="hr">
Skapades av <a href="userview.asp?view=<%=Server.HtmlEncode(ObjRS("from_user"))%>"><%=Server.HtmlEncode(ObjRS("from_user"))%></a> relation till <a href="userview.asp?view=<%=Server.HtmlEncode(ObjRS("to_user"))%>"><%=Server.HtmlEncode(ObjRS("to_user"))%></a><br>
Skapades den <b><%=FormatDateTime(ObjRS("datum"),vbshorttime)&" "&FormatDateTime(ObjRS("datum"),vblongdate) %></b><br>
Har träffats IRL? <b><%=Server.HtmlEncode(ObjRS("irl"))%></b><p></p>

<hr class="hr">

Ändra uppgifterna?<p></p>

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

Träffat personen IRL? <select name="irl"><option value="<%=Server.HtmlEncode(ObjRS("irl"))%>" selected><%=Server.HtmlEncode(ObjRS("irl"))%></option><option value="">Välj</option><option value="Ja">Ja</option><option value="Nej">Nej</option></select><br>
Ändra relation? <%

	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

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

// Ändrar inställningarna i databasen.

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

		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

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

// Avslutar eller slutar väntar, den tas sedan bort.

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

		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

fortsättning..

JeppewebMedlem sedan sep. 2006462 inlägg
#2
/////////////////////////////////////////////////////////////////

// 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" -->
JeppewebMedlem sedan sep. 2006462 inlägg
#3

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!

voigtann1Medlem sedan juni 20019 519 inlägg
#4

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

Snälla sluta skriva med Caps!

JeppewebMedlem sedan sep. 2006462 inlägg
#5

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

voigtann1Medlem sedan juni 20019 519 inlägg
#6

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.

JeppewebMedlem sedan sep. 2006462 inlägg
#7

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" -->
voigtann1Medlem sedan juni 20019 519 inlägg
#8

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

JeppewebMedlem sedan sep. 2006462 inlägg
#9

va? :)

voigtann1Medlem sedan juni 20019 519 inlägg
#10

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

JeppewebMedlem sedan sep. 2006462 inlägg
#11

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

JeppewebMedlem sedan sep. 2006462 inlägg
#12

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

voigtann1Medlem sedan juni 20019 519 inlägg
#13

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

JeppewebMedlem sedan sep. 2006462 inlägg
#14

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 ?

voigtann1Medlem sedan juni 20019 519 inlägg
#15

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")) &"')"
JeppewebMedlem sedan sep. 2006462 inlägg
#16

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

voigtann1Medlem sedan juni 20019 519 inlägg
#17

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") = ""...

JeppewebMedlem sedan sep. 2006462 inlägg
#18

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

%>

voigtann1Medlem sedan juni 20019 519 inlägg
#19

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

JeppewebMedlem sedan sep. 2006462 inlägg
#20

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.

146 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
143 ms — hämta tråd, inlägg och bilagor (db)