<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("community.mdb") Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT m.*, d.* From members m, dagbok d WHERE m.username = '"&session("username")&"' AND d.skribent = '"&session("username")&"'" RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic idnr = RecSet("id") medlem = RecSet("username") %>

Välkommen till <% =RecSet("username")%>´s dagbok! Här kan du läsa vad <% =RecSet("username")%> har skrivit i sin dagbok. Det är inte alla medlemmar som skriver i sina dagböcker men de som gör det får extra poäng. Varje medlem kan bara skriva en gång per dag i sin gästbok, detta har vi för att man inte ska kunna fuska till sig mer poäng. Vi hoppas ni får roligt genom att läsa andras medlemmars dagböcker och kanske just du upptäcker att du har samma intressen som just <% =RecSet("username")%>. Varför inte lägga till <% =RecSet("username")%> i din kompislista då? <% If Not RecSet.EOF Then Do Until RecSet.EOF response.write RecSet("datum") RecSet.MoveNext Loop Else Response.Write "Inga meddelanden hittades." End If %> <% If session("username") = medlem Then%> Skriv i din dagbok här nedan: <%End If%> <% RecSet.Close %>

Copyright 2002-2003. All kopiering förbjuden. Communityn är kodad av Andreas på Ampy.tk

<% RecSet.Close If Request.Querystring("vad") = "laggtill" Then Addera = "Select * From dagbok" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("datum") = Now RecSet("text") = Request.Form("text") RecSet("skribent") = session("username") RecSet.Update recset.close Response.Redirect("dagbok.asp?id="&idnr&"") End If %>