bli kompis

snälla snälla kan nån hjälpa mig har försökt och fixat det i flera timmar men funkar inte

jag vill att när man har blivit kompis med medlemmen ska bli medlem länken försvinna men annars inte!!

så här ser min kompis lista ut:

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

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 Where ID1 = "&Session("id")&" order by namn"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic 

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

Set RecSet3 = Server.CreateObject("ADODB.Recordset")
on error resume next
Addera = "Select * From members Where id = "&Recset("id2")
RecSet3.Open Addera, Connect3, adOpenStatic, adLockOptimistic

%>

och så här i medlemmens sida:

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("checkid")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>

kolumner:
ID1= medlemmens ID Nummer
ID2= kompisens ID Nummer

snälla kan nån hjälpa mig :(

På medlemmens sida ställer du en fråga typ:

strSQL = "Select * From kompis Where ID1 = "&Session("id")&" and ID2 = " & Request.QueryString("checkid")
set objRS = Connect.Execute(strSQL)
if objRS.eof then
'visa länk till bli medlem
end if

tack så mycket anders :)