Skrive privat imellem 2 brugere

Du kunne jo lave en attribut i din tabel der hedder "private true/false" og sørge for at ved visning.

Pseudo:
hvis privat
  hvis postet af dig eller postet til dig
    vis besked

Jamen, har du nogen ide til en kode?! :D

Ja lidt senere skal jeg nok stykke noget sammen til dig :)

Okay! 1000 tak!

Har en mail jeg kan sende koden til? Så du kan få den hele..

Er ikke så glad, for at smide den her..

Det tror jeg er lidt imod ideen med eksperten. Det fede er jo at alle kan få glæde af spørgsmål og svar fremover :)... Så kan du ikke post lidt mere af koden herinde (det behøver ikke at være det hele) husk at fjerne evt. bruger/password, så prøver vi at finde en løsning sammen?

Mvh Casualty

<!-- #include file = "settings.asp" -->

<!-- #include file = "andratext.asp" -->

<link href="css/tema1.CSS" rel="stylesheet" type="text/css">

    <LINK REL=stylesheet HREF="forumdigital_mall.css" TYPE="text/css">
<LINK REL=stylesheet HREF="forumstyle.css" TYPE="text/css">

<%
nextPage = TRIM( Request("nextPage"))
IF nextPage = "" THEN nextPage = 1

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("Hemmeligt :)")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='"&request.querystring("id")&"' order by id desc"
rs.Open Addera, Connect, 3, 3

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&request.querystring("id")&"'"
rs1.Open Addera, Connect, 3, 3

if request.querystring("id") = session("id") then
Set rs5 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='"&request.querystring("id")&"' and last=0"
rs5.Open Addera, Connect, 3, 3
if not rs5.eof then
do until rs5.eof
rs5("last")=1
rs5.update
rs5.movenext
loop
response.redirect "visgb.asp?id="&session("id")
end if
end if

if request.querystring("action")="slet" then

Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where id = " & request.querystring("id")
rs.Open Addera, Connect, 3, 3
rs.delete
rs.update
rs.close
connect.close
set rs =nothing
set connect = nothing
response.redirect "visgb-slettet.asp?id="&request.querystring("id")
end if

if request.querystring("action")="spara" then
if session("id") <> request.querystring("id") then
rs.addnew
rs("namn")=session("user")
rs("inlagg")=request.form("requiredinlagg")
rs("gbid")= request.querystring("id")
rs("namnid")=session("id")
rs("datum") = now
rs.update

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("Hemmeligt :)")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&session("id")&"'"
rs.Open Addera, Connect, 3, 3
if rs("gast")&"" = "" then
gast = 0
else
gast = rs("gast")
end if
rs("gast") = gast + 1
rs("status") = rs("status") + poanggastbok
gast = rs("gast")
end if
rs.update

response.redirect "visgb.asp?id="&request.querystring("id")
end if
rs.PageSize = 5
if not rs.EOF then
rs.AbsolutePage = nextPage
%>
<% END IF %>
<center>


<table width="673" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" height="20" id="table34">
  <tr>
    <td height="19" bgcolor="#707E97" align="center" width="67">
    <font color="#E9E9E9"><a href="visprofil.asp?id=<%=request.querystring("id")%>">
    <font color="#FFFFFF"><span style="text-decoration: none">Profil</span></font></a></font></td>
    <td height="19" bgcolor="#707E97" align="center" width="110">
    <font color="#FFFFFF"><span style="font-weight:700">Gæstebog</span></font></td>
    <td height="19" bgcolor="#707E97" align="center" width="98">
    <font color="#E9E9E9"><a href="/dagbog/dagbog.asp?id=<%=request.querystring("id")%>">
    <font color="#FFFFFF"><span style="text-decoration: none">Dagbog</span></font></a></font></td>
    <td height="19" bgcolor="#707E97" align="center" width="123">
    <font color="#FFFFFF"><a href="vis15spg.asp?id=<%=request.querystring("id")%>">
    <font color="#FFFFFF">
    <span style="text-decoration: none">15 Spørgsmål</span></font></a></font></td>
    <td height="19" bgcolor="#707E97" align="center" width="114">
    <font color="#E9E9E9">
    <a href="visgalleri.asp?id=<%=request.querystring("id")%>">
    <font color="#FFFFFF">Billedgalleri</font></a></font></td>
    <td height="19" bgcolor="#707E97" align="center" width="154">
    <font color="#E9E9E9"><a href="visstatistik.asp?id=<%=request.querystring("id")%>">
    <font color="#FFFFFF"><span style="text-decoration: none">Statistik</span></font></a></font></td>
  </tr>
  </table>

<br>

<table width="673" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td bgcolor="#000000">
      <table width="671" border="0" cellspacing="0" cellpadding="0">
        <tr valign="top">
          <td width="667" bgcolor="#E9E9E9"> <br>
            <br>
            <%
     
Do until rs.EOF OR rowCount = rs.PageSize
rowCount = rowCount + 1
Set rs3= Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&rs("namnid")&"'order by id "
rs3.Open Addera, Connect, 3, 3
%>
            <table width="152%" border="0" cellspacing="0" cellpadding="0">
              <tr valign="top">
                <td width="25">
                  <% if rs("namnid")&""<> "" then%>
                  <% if rs3("bild")&""<>"" then%>&nbsp;
                  <% end if
    end if %>
                </td>
                <td width="51">
                  <p align="center">
                  <img src="<%=rs3("bild")%>" width="33" height="50" border="1" alt="<%=rs("namn")%>'s profilbillede"></td>
                <td bgcolor="#E9E9E9"><B>
                  <% if rs("namnid")&""="" then%>
                  <%=rs("namn")%> </b>// <%=rs("datum")%>
                  <% else %>
                  <a href="visprofil.asp?id=<%=rs("namnid")%>"><%=rs("namn")%></a>
                  - <%=rs("datum")%>
                  <%end if%>
                  <% if request.querystring("id")= session("id") then %>
                  - <a href="visgb.asp?id=<%=rs("namnid")%>"><strong>Svar</strong>
                  </a>
                  <% end if %>
                  <% if request.querystring("id")= session("id") then %>
                  - <a href="visgb.asp?action=slet&id=<%=rs("id")%>"><strong>Slet</strong>
                  </a>
                  <% end if %>
                  </a>
                  <br>
                </b> <%=byt(rs("inlagg"))%><br>
                  </td><br>
              </tr>
            </table>
            <p align="center">
            <%
rs.movenext
loop
%><br>
            <%
IF rs.PageCount > 1 THEN

%>
            Side:
            <%
    FOR a = 1 to rs.PageCount
IF a <> cINT( nextPage ) THEN %>
            <a href="visgb.asp?nextPage=<%=a%>&id=<%=request.querystring("id")%>">
            <font color="#000000"><%=a%></font></a>
            <%
ELSE %>
            (<%=a%>)
            <%
END IF
NEXT
end if


   
      %>
          <br>
&nbsp;</td>
          <td width="4" bgcolor="#E9E9E9">
<form name="form" method="post" action="visgb.asp?action=spara&id=<%=request.querystring("id")%>"  onSubmit="submitonce(this)">
              <div align="center">&nbsp;</div>
            </form></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
  <table width="673" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" height="20" id="table33">
  <tr>
   
          <td width="673" bgcolor="#E9E9E9">
<div align="right"></div>
            <form name="form" method="post" action="visgb.asp?action=spara&id=<%=request.querystring("id")%>"  onSubmit="submitonce(this)">
              <p align="center"><br><b>Ny besked i gæstebogen</b><br><br>
                <textarea name="requiredinlagg" rows="6" cols="61"></textarea> </p>
                <div align="center">
                <input type="submit" name="Submit" value="Tilføj ( Offentlig )">
                <input type="submit" name="Submit0" value="Tilføj ( Privat )"></div>
            </form></td>
</p>
<br>
  </tr>
  </table><a name="skrivigb">
  <table width="673" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" height="20" id="table35">
  <tr>
   
          <td width="673" bgcolor="#E9E9E9">
<p align="center"><br>
<b>Smileys</b><br><br>
:) <img src='http://www.syksrv1.frac.dk/smileys/smil.gif' alt=" Smiler "> </a>

;)

<img src='http://www.syksrv1.frac.dk/smileys/blink.gif' alt=" Blinker med øjet "></a></a></a></a>
            :P
<img src='http://www.syksrv1.frac.dk/smileys/tungeud.gif' width="21" height="21" alt=" Tunge ud af munden ">
:D
            <img src='http://www.syksrv1.frac.dk/smileys/stortsmil.gif' width="21" height="21" alt=" Stort smil "></a>
            </a>&nbsp;:O</a></a></a>
<img src='http://www.syksrv1.frac.dk/smileys/chok.gif' width="21" height="21" alt=" Chokeret ">
:(
<img src='http://www.syksrv1.frac.dk/smileys/mundned.gif' width="21" height="21" alt=" Trist "></a></a>
:@
            <img src='http://www.syksrv1.frac.dk/smileys/vred.gif' width="21" height="21" alt=" Vred "></a>
:$
            <img src='http://www.syksrv1.frac.dk/smileys/flov.gif' width="21" height="21" alt=" Flovt / Forlegen "></a>
</p>
<p align="center">(G)
<img src='http://www.syksrv1.frac.dk/smileys/foddag/gave.gif' width="21" height="20" alt=" Gave ">
            (F)
<img src='http://www.syksrv1.frac.dk/smileys/rose/roseop.gif' width="20" height="20" alt=" Rose ">
(W)
<img src='http://www.syksrv1.frac.dk/smileys/rose/rosened.gif' width="20" height="20" alt=" Vissen Rose ">
(S)</a></a>
<img src='http://www.syksrv1.frac.dk/smileys/godnat.gif' width="20" height="20" alt=" Måne - Godnat "></a></a>
(*)
<img src='http://www.syksrv1.frac.dk/smileys/stjerne.gif' alt=" Stjerne "></a>
<a name="skrivigb6">
(L)
<img src='http://www.syksrv1.frac.dk/smileys/hjerte.gif' width="20" height="20" alt=" Hjerte "></a></a><a name="skrivigb7">
(U)
<img src='http://www.syksrv1.frac.dk/smileys/smadrethjerte.gif' width="20" height="20" alt=" Smadret hjerte "></a></a></a><br>
<br>
<br>
<b><a name="skrivigb">
  Andre muligheder</a></b><br>
&nbsp;<center>
<table border="0" cellpadding="0" cellspacing="1" width="216" height="20" id="table36">
    <tr>
        <td align="center">
        <p align="center"><b><a name="skrivigb">
          [f]</a></b></td>
        <td width="166"><a name="skrivigb">
          Skriver med <b>fed</b> skrift</a></td>
    </tr>
    <tr>
        <td align="center">
        <p align="center"><b><a name="skrivigb">
          [/f]</a></b></td>
        <td width="166"><a name="skrivigb">
          Afslutter <b>fed</b> skrift</a></td>
    </tr>
    <tr>
        <td align="center">&nbsp;</td>
        <td width="166">&nbsp;</td>
    </tr>
    <tr>
        <td align="center"><b>[k]</b></td>
        <td width="166">Skriver med <i>kursiv</i></td>
    </tr>
    <tr>
        <td align="center"><b>[/k]</b></td>
        <td width="166">Afslutter <i>kursiv</i></td>
    </tr>
    <tr>
        <td align="center">&nbsp;</td>
        <td width="166">&nbsp;</td>
    </tr>
    <tr>
        <td align="center"><b>[blue]</b></td>
        <td width="166">Skriver med <font color="#0000FF">blå</font> skrift</td>
    </tr>
    <tr>
        <td align="center"><b>[/blue]</b></td>
        <td width="166">Afslutter <font color="#0000FF">blå</font> skrift</td>
    </tr>
    <tr>
        <td align="center">&nbsp;</td>
        <td width="166">&nbsp;</td>
    </tr>
    <tr>
        <td align="center"><b>[red]</b></td>
        <td width="166">Skriver med <font color="#FF0000">rød</font> skrift</td>
    </tr>
    <tr>
        <td align="center"><b>[/red]</b></td>
        <td width="166">Afslutter med <font color="#FF0000">rød</font> skrift</td>
    </tr>
    <tr>
        <td align="center">&nbsp;</td>
        <td width="166">&nbsp;</td>
    </tr>
</table>
            </td>
            </a>
            <a name="skrivigb">
  <br>
  </tr>
  </table></a>

    <p>
<br></p>

Hej du.... jeg får ikke tid til at kigge på det i aften da jeg lige har fået gæster... Jeg vil meget gerne kigge på det i morgen hvis det ikke er for sent for dig... Ellers kan det jo være at der kommer andre med bud...

Mvh Casualty

Det er helt i orden du! ;)

Hej... Undskyld jeg først svarer nu :)
Jeg er rimelig presset mht. tid :(
Jeg har meget indtrykket af at du har brug for at jeg laver noget kode til dig så du får det til at virke. Jeg har desværre ikke tid til at sætte mig ind i hvordan din kode fungerer lige nu og derfor heller ikke tid til at kode en løsning til dig, men jeg håber at der kommer andre forbi som kan hjælpe dig...

Mine råd til dig lige nu:
....Ved skrivning af besked....
# Indsæt et ekstra felt, der evt. hedder "private", i din tabel hvor beskederne ligger.
# I den form hvor man submitter, lav en checkbox hvor man kan angive om meddelelsen skal være privat (Det er lidt pænere end at have to knapper som du har nu, men ikke et must).
# På den side der modtager dataene fra din form, skal du, der hvor dataene skrives i DB, huske at tilføje værdien fra din checkbox.

....Ved læsning af besked....
Jeg kunne forestille mig at du løber alle rækker i en tabel igennem og visualiserer dem på skærmen.

# i løkken der løber rækker igennem, tjek om attributten private er true/false.
Hvis den er false så vis beskeden som du hele tiden har gjort.
Hvis den er true så vis beskeden, hvis id nummeret på den der har skrevet beskeden eller den der skal modtage beskeden, er magen til id nummeret på den der er logget ind (forudsætter at du ved hver besked har en relation til forfatteren).

Håber at det kan bruges
Mvh Casualty

Hvordan gør man at den aflæser modtager og afsender's ID?

Lukker - ingen løsning fundet og jeg rydder op i mine åbne spg :-)