Har ett litet problem. Håller för tillfället på att bygga upp ett meddelande-system som tillåter olika användare att skicka meddelanden till varandra.
Nu är det så att jag vill att om jag t.ex. får ett meddelande från Johan så skall det hamna i "mappen" Johan. Jag har fått till det så att när man skickar meddelandet så sparas det i rätt "mapp", men när man sen ska läsa meddelendet så kommer det inte upp i rätt mapp 50% av tiden.
if Request.QueryString("mapp") = "" then
strMappnamn = "Inbox"
else
strMappnamn = Request.QueryString("mapp")
end if
if Request.QueryString("mapp") = "" then
strSQL = "SELECT * FROM messages WHERE tillID = " & Session("id") & " ORDER BY datum DESC"
else
strSQL = "SELECT * FROM messages WHERE tillID = " & Session("id") & " AND mapp = '" & strMappnamn & "' ORDER BY datum DESC"
end if
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open strSQL, Connect, 3, 3
Set rstMappar = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT DISTINCT (mapp) FROM messages ORDER BY mapp ASC"
rstMappar.Open strSQL, Connect, 3, 3
<form name="mappar">
Välj mapp
<select name="mapp" size="1" onchange="location.href='read_mess.asp?mapp=' + document.mappar.mapp.value;">
<option value="">Välj mapp</option>
<option value="">----------</option>
<%
do until rstMappar.EOF
if not rstMappar(0) = "" then
Response.Write("<option value=""" & rstMappar(0) & """")
if rstMappar(0) = strMappnamn then Response.Write(" selected")
Response.Write(">" & rstMappar(0) & "</option>" & vbCrLf)
end if
rstMappar.MoveNext
loop
rstMappar.Close
set rstMappar = nothing
%>
</select>
</form>
<table width="100%" border="0" cellspacing="0" cellpadding="2" class="text">
<table width="100%" border="0" cellspacing="0" cellpadding="2" class="text">
<%
Do Until RecSet.EOF
Response.Write("<tr>")
Response.Write("<td width=""30"">")
If RecSet("read") = 0 Then
Response.Write("<b>NYTT</b>")
Else
Response.Write "LÄST"
END IF
Response.Write("</td>")
Response.Write("<td width=""100""><b>" & RecSet("namn") & "</b></td>")
Response.Write("<td><a href=""do_read.asp?readid=" & RecSet("id") & """>" & RecSet("rubrik") 6 "</a></td>")
Response.Write("<td width=""100""><b>" & RecSet("datum") & "</b></td>")
Response("<td width=""80""><a href=""do_delete.asp?delID=" & RecSet("id") & """>radera</a></td>")
Response.Write("</tr>")
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</table>
[R]LADE TILL KOD SOM SÄTTER VARIABELN strMappnamn I BÖRJAN AV KODEN[/R]
------------------
~~~~~~~~~~~~~~~~~~~~
Silvio Fumei
silvio@fumei.net
www.fumei.net
~~~~~~~~~~~~~~~~~~~~
[Redigerat av SilvioF den 07 okt 2001]