---
title: "Crisses meddelandetjänst"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38183-crisses-meddelandetjänst"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2001-02-25T20:00:00.000Z"
updated: "2001-02-25T20:00:00.000Z"
replies: 0
views: 795
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38183-crisses-meddelandetjänst"
---

# Crisses meddelandetjänst

## #1 — crisse6, 2001-02-25T20:00Z

här är ett annat sätt att skicka meddelande till medlemmar, vi börjar med den sida som visar om man har meddelanden och från vem och när:

mejl.asp

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT \* From meddelande WHERE till ='" & Session("username") & "' ORDER BY datum DESC"
rsMess.Open SQL, Databas
If rsMess.EOF then
Response.Write "Du har inte ett enda grodmejl :("
else
Do while NOT rsMess.EOF

%\>
\<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;"\>
    \<tr\>
        \<td width="157" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;"\>\<p\>\<font
             face="Verdana" size="1" color="black"\>\<b\>&Auml;mne:\</b\>\</font\>\</td\>
        \<td width="154" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;"\>\<p\>\<font
             face="Verdana" size="1" color="black"\>\<b\>Fr&aring;n:\</b\>\</font\>\</td\>
        \<td width="150" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;"\>\<p\>\<font
             face="Verdana" size="1" color="black"\>\<b\>Skickat datum och tid:\</b\>\</font\>\</td\>
        \<td width="109" style="border-bottom-width:1; border-bottom-color:black; border-bottom-style:solid;"\>\<p\>\<font
             face="Verdana" size="1" color="black"\>\<b\>Status:\</b\>\</font\>\</td\>
    \</tr\>
    \<tr\>
        \<td width="157" style="border-right-width:1; border-right-color:black; border-right-style:solid;"\>\<p\>\<font face="Verdana" size="1" color="black"\>\<a href="lasmess.asp?id=\<%=rsMess("id")%\>"\>\<%=rsMess("rubrik")%\>\</a\>\</font\>&nbsp;\</td\>
        \<td width="154" style="border-right-width:1; border-right-color:black; border-right-style:solid;"\>\<p\>\<font face="Verdana" size="1" color="black"\>\<a href="blikompis.asp?username=\<%=rsMess("fran")%\>"\>\<%=rsMess("fran")%\>\</a\>\</font\>&nbsp;\</td\>
        \<td width="150" style="border-right-width:1; border-right-color:black; border-right-style:solid;"\>\<p\>\<font face="Verdana" size="1" color="black"\>\<%=rsMess("datum")%\>\</font\>&nbsp;\</td\>
        \<td width="109" style="border-right-width:1; border-right-color:black; border-right-style:solid;"\>\<p\>\<font face="Verdana" size="1" color="black"\>\<%=rsMess("status")%\>\</font\>&nbsp;\</td\>
	\<td width="109" style="border-right-width:0; border-right-color:black; border-right-style:solid;"\>\<p\>\<font face="Verdana" size="1" color="black"\>&nbsp;\<a href="raderamess.asp?ID=\<%=rsMess("ID")%\>"\>Ta bort!\</a\>\</font\>&nbsp;\</td\>    
\</tr\>
\</table\>
\<br\>

\<%
rsMess.MoveNext
Loop
rsMess.CLose
%\>
\<% End If %\>
\<br\>
\<a href="skickamess.asp"\>Skriv ett meddelande\</a\>

nu till den sida där man kan läsa sitt meddelande, lasmess.asp

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT \* From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2

If rsMess.EOF then
%\>
Hittade inte meddelandet!
\<%

%\>
\<% End If %\>
\<font face="Verdana" size="1" color="white"\>
\<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%\>
\<b\>Ämne:\</b\> \<%=rsMess("rubrik")%\>\<br\>
\<b\>Från:\</b\> \<a href="blikompis.asp?username=\<%=rsMess("fran")%\>"\>\<%=rsMess("fran")%\>\</a\>\<br\>
\<b\>Meddelande:\</b\>\<br\>\<br\>\</font\>
\<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;"\>
    \<tr\>
        \<td width="382"\>\<p\>\<font face="Verdana" size="1" color="black"\>\<%=rsMess("meddelande")%\>\</font\>\</td\>
    \</tr\>
\</table\>

\<% rsMess.Close %\>
\<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%\>

sedan skickamess.asp:

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<% if request.form("till")\<\>"" and request.form("meddelande")\<\>"" then

Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "INSERT INTO meddelande (\[fran\], \[datum\], \[meddelande\], \[rubrik\], \[till\], \[status\]) VALUES('" & Session("username") & "',#" & now & "#,'" & Request.Form("meddelande") & "','" & Request.Form("rubrik") & "','" & Request.Form("till") & "','Oläst')"
Databas.Execute(SQL)

%\>

Meddelandet är skickat!
\<% else %\>
\<body onLoad="teckenKvar()"\>
\<form name="meddelande" method="post" action="skickamess.asp"\>
\<p\>
\<font face="Verdana" size="1"\>Personens användarnamn:\</font\>\<br\>
\<input type="text" name="till" value="\<%=request.querystring("till")%\>" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"\>\</p\>
\<p\>
\<font face="Verdana" size="1"\>Ämne på ditt mejl:\</font\>\<br\>
\<input type="text" name="rubrik" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"\>\</p\>
\<p\>
\<font face="Verdana" size="1"\>Messet:\</font\>\<br\>
\<textarea name="meddelande" rows="16" cols="80" maxlenght="999" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"\>\</textarea\>\</p\>
\<font face="Verdana" size="1"\>\<input type="text" name="ticker" value="1000" size="3" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"
 disabled\> tecken kvar.\</font\>\<br\>
\<br\>\<input type="submit" value="Skicka!" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"\>\</p\>\</form\>\</font\>
\<% End If %\>

nu till sidan som gör det möjligt att radera meddelanden, raderamess.asp:

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "DELETE FROM meddelande WHERE id =" & request.querystring("id")
Databas.Execute SQL
%\>
\<a href="mejl.asp"\>Tillbaka\</a\>

sådär! hoppas det funkar :e annars får ni mejla mig på cristoffer@telia.com så får jag la ladda upp det :) databasen jag använder heter mess.mdb och har tabellen meddelande som har fält 
ID &#0124; räknare
fran &#0124; text
till &#0124; text
datum &#0124; datum/tid
meddelande &#0124; PM
status &#0124; text
rubrik &#0124; text

Permalänk: https://www.webforum.nu/p/38183

---

Tråden på webben: https://www.webforum.nu/amne/asp/38183-crisses-meddelandetjänst