Vad är problemet?
Vad får du för felmeddelande?
------------------
It's a scoobie oobie doobie scoobie doobie melody - Im a Scatman
Frågan#1
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"
%>
