|
|
Välkommen till <% =medlem%>´s dagbok!
Här kan du läsa vad <% =medlem%> 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 <% =medlem%>. Varför inte lägga till <% =medlem%> i din kompislista då?
<%
If Not RecSet.EOF Then
Do Until RecSet.EOF
Dim color
Dim counter
counter = counter + 1
If counter Mod 2 = 0 then
color = "#FFFDF5"
Else
color = "#FFFBE7"
End If
%>
|
<% =RecSet("datum")%>
<% =RecSet("text")%>
|
<%
RecSet.MoveNext
Loop
Else
Response.Write "Inga meddelanden hittades."
End If
%>
<% If session("username") = medlem Then%>
<%End If%>
|
|
|
|
