snääälaaaaaa hjälp :(

jag har bytt iden i databasen till replikerinsid och nu funkar det inte och lägga till kompisar i sin kompislista

<%
If int(Request.QueryString("id")) = Session("id") Then 
Session("meddelande") = "Du kan inte ha dig själv som kompis."
Response.Redirect "kompislistan.asp" 
Else

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members Where id=" &Request.QueryString("id2")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

namn = RecSet("username")

RecSet.Close
Connect.Close

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/kompisar.mdb")&""

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From kompis"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Set RecSet9 = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From message"
RecSet9.Open Addera, Connect9, adOpenStatic, adLockOptimistic
'#####################################################

'####################### KONTROLLERAR OM KOMPIS REDAN FINNS ##################

DO UNTIL RecSet.EOF

	If RecSet("ID2") = int(Request.QueryString("id2")) AND int(Session("id")) = RecSet("ID1") Then
		RecSet.Close
		Connect.Close
		Response.Redirect "kompislistan.asp"
	End If

RecSet.MoveNext

Loop

'################################### KONTROLLEN SLUTFÖRD ######################

	RecSet.AddNew

	RecSet("ID1") = Session("id")
	RecSet("ID2") = Request.QueryString("id2")
	RecSet("namn") = namn
	RecSet("blevkompis") = now
	
	RecSet.Update

	RecSet.Close
	Connect.Close

	Set RecSet = nothing
	Set Connect = nothing

Response.Redirect "kompislistan.asp"
%>