Laddade hem ASPECTs community v.05b från ASP-sidan eftersom jag inte vill ha ett vanligt community men med vissa av de funktionerna som ett vanligt community :q
Ajja... Sedan skulle jag pröva så att koden fungerar, men det gör den inte om man skall skicka meddelanden, för då kommer det hela tiden upp det att medlemmen inte är registrerad...
Koden för sidan som skall skicka meddelandet kommer här
/red.
Oooops...Ber så hemskt mycketm om ursäkt, upptäckte att jag inte hade ändrat bägge databaskopplingarna :r
Men nu kan jag ju använda den här tråden om det är något annat jag undrar över ;)
Tack // Coccozz
<%If Request.Querystring("del") = "" then
Set conn = Server.CreateObject("ADODB.Connection")
conn.open koppling
SQL = "DELETE * FROM friends WHERE id = " & Request.Querystring("del")
conn.Execute(SQL)
conn.close
Set conn = nothing
END IF
%>
Vet inte vad jag har gjort fel, är väl inget ASP proffs precis :OO
Tack // Coccozz
Då till en annan sak ;)
Just nu kan man lägga till samma kompis hur många gånger som helst, hur löser man detta, för man ska ju bara kunna lägga till en användare som kompis en gång :)
SQL = "Select * FROM friends WHERE id = " & Request.Querystring("del")
set recset = conn.execute(SQL)
if not recset.eof then
response.write "Du har redan personen som medlem"
else
SQL = "Update..."
end if
SQL = "Select * FROM friends WHERE id = " & Request.Querystring("del")
set recset = conn.execute(SQL)
if not recset.eof then
response.write "Du har redan personen som medlem"
else
SQL = "INSERT INTO friends (id) values ("&request.querystring("del") &")"
conn.Execute(SQL)
end if
Så... ID ska vara tal och inte en räknare i detta sammanhang...
Skickar upp så långt jag har kommit... Det fungerar att lägga till vänner men man kan fortfarande lägga till de hundra gånger om man vill det :(
<!-- #Include File="adovbs.inc" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/databas/members.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM friends WHERE id = " & Request.Querystring("id")
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
if not recset.eof then
response.write "Du har redan personen som medlem"
else
DO UNTIL RecSet.EOF
If RecSet("id2") = Request.QueryString("id") AND Session("id") = RecSet("id1")Then
RecSet.Close
Conn.Close
Response.Redirect "kompisar.asp"
End If
RecSet.MoveNext
Loop
RecSet.AddNew
RecSet("id1") = Session("id")
RecSet("id2") = Request.Querystring("id")
RecSet.Update
RecSet.Close
Conn.Close
Response.Redirect "kompisar.asp"%>
<%end if%>
<!-- #Include File="adovbs.inc" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/databas/members.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select id1, id2 FROM friends WHERE id = " & Request.Querystring("id")
Set RecSet = Conn.Execute(SQL, , 1)
if not recset.eof then
response.write "Du har redan personen som medlem"
else
SQL = "INSERT INTO friends (id1, id2) VALUES (" & Session("id") &", " & Request.QueryString("id") & ")"
Conn.Execute SQL, , 128
End If
RecSet.Close : Set RecSet = Nothing
Conn.Close : Set Conn = Nothing
Response.Redirect "kompisar.asp"
%>
