länka ihop folk

Jag har en databas med olika person
på formulär sidan kan man mata in personens info
samt en listruta med "person id nummer" länka ihop med en annan person.

man kan bara va ihop länat med en person

kalle väljer anna
på annas sida stor det kalle
Det är inga problem

problemet är anna ändrar till per
då ska kalle inte ha någon partner
per hade också sara som parter
då ska också sara inte ha någon partner

listrutan sparar id nummer på personen
partner_hidden är den gammla "personen id nummer" men den är gömd

Set RecSet = Server.CreateObject("ADODB.Recordset")
varId = request.querystring("id")
Addera = "Select * From person WHERE raknare = " & varID & " " 
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
			
if Request.Form("partner") = "" then
	RecSet("partner") = Request.Form("partner")
end if

slappartner = Request.Form("partner")

RecSet.Update 
RecSet.close
Set RecSet = nothing

hidden = Request.Form("partner_hidden")
if slappartner = hidden then
else
	if hidden = "0" then
	else
	gammal2 = ""
		set RecSet4 = connect.execute("SELECT * FROM person WHERE raknare = " & hidden)
		gammal2 = RecSet4("partner")
		RecSet4.close
		Set RecSet4 = nothing

		if hidden = request.querystring("id") then
		else
			Set RecSet2 = Server.CreateObject("ADODB.Recordset")
			Addera = "Select * From person WHERE raknare = " & hidden & " " 
			RecSet2.Open Addera, Connect, adOpenStatic, adLockOptimistic
			RecSet2("partner") = "0"
			RecSet2.Update 
			RecSet2.close
			Set RecSet2 = nothing
		end if
			
		if gammal2 = request.querystring("id") then
		else
			Set RecSet3 = Server.CreateObject("ADODB.Recordset")
			Addera = "Select * From person WHERE raknare = " & gammal2 & " " 
			RecSet3.Open Addera, Connect, adOpenStatic, adLockOptimistic
			RecSet3("partner") = "0"
			RecSet3.Update 
			RecSet3.close
			Set RecSet3 = nothing
		end if
	end if
	if slappartner = "0" then
	else
		ny2 = ""
		set RecSet6 = connect.execute("SELECT * FROM person WHERE raknare = " & slappartner)
		ny2 = RecSet6("partner")
		RecSet6.close
		Set RecSet6 = nothing
		
		Set RecSet5 = Server.CreateObject("ADODB.Recordset")
		Addera = "Select * From person WHERE raknare = " & slappartner & " " 
		RecSet5.Open Addera, Connect, adOpenStatic, adLockOptimistic
		RecSet5("partner") = request.querystring("id")
		RecSet5.Update 
		RecSet5.close
		Set RecSet5 = nothing
		
	if ny2 = "0" then
	else
		if ny2 = request.querystring("id") then
		else
			Set RecSet7 = Server.CreateObject("ADODB.Recordset")
			Addera = "Select * From person WHERE raknare = " & ny2 & " " 
			RecSet7.Open Addera, Connect, adOpenStatic, adLockOptimistic
			RecSet7("partner") = "0"
			RecSet7.Update 
			RecSet7.close
			Set RecSet7 = nothing
		end if
	end if
	end if
end if