Intern mail

Tænker du på et system hvor brugerne kan sende beskeder til hinanden internt på hjemmesiden?

I så fald kunne du lave det forholdsvist simpelt ved at bygge det op omkring en database.

Databasen kunne indeholde en tabel, som havde kolonnerne, fra, til, besked, læst. Fra og til-kolonnerne viser over i en brugertabel.

På den måde kan jeg chekke om der er noget mail ved at se om der er nogle poster i databasen der indeholder mit ID i til-feltet i databasen. Læst-feltet er et sand/falsk-felt som indikerer om jeg har læst den mail en anden bruger har sendt mig.

Var det noget i den retning du mente? .. systemet skal naturligvis udbygges så det indeholder mere end lige de basale send/modtag funktioner.

Lav to tabeller i en database. Den ene tabel indeholder alle brugernavne, og den anden alle beskederne.

I besked-tabellen lagres oplysninger, som kommer fra en form hvorfra man kan sende beskeder. Du kan have kolonnerne, til, fra, emne, besked, dato og læst.

Lav så en login-procedure hvor der tjekkes username og password i den første tabel. Hvis brugeren er ok, selectes alle poster i besked-tabellem hvor "til" svarer til brugeren der er netop er logget ind.
Du kan så fortælle brugeren hvor mange ulæste beskeder han har, ved at aflæse "læst" i de selectede poster.
Du laver så en side hvor alle beskeder bliver tilgængelige med links.
Når brugeren så læser en besked ændres "læst" i besked-tabellen.

Det er forholdsvis simpelt.

Følger bare med..... :)

Kim.

Hva' kunne i lave sådan en side til mig? :-)

giv mig din e-mailadresse og jeg mailer det fuldkomne script til dig. Men så skal der også falde point :-)

Ja, jeg kan godt lave det, men det er jo et ret stort system, så kunne man ikke få lidt flere point ???

Jeg ville meget gerne give jer flere point, men i kan måske få 50 points fra en af mine venner (jems) istedet, jeg prøver lige at høre ad hos ham!!

Det du vil have vi skal lave er:

Et login system.
Et internt mail system.

Har jeg ret ???

>ortak: du ka godt få 100 point mere!!Hvis det er ok??

Ja...

Hvad med mig ???

Tue : Nå nu du ha lavet det til ham, ka jeg så ikk få en kopi.. ? Du ka godt få nogen point for det hvis du vil ha det!

Tue : Hvis du vil sende det til mig på : djsmolf@yahoo.dk får du 200 point !!!

ok tue, du kan godt lave det.
Altså login og intern mail, OK?

Jeg vil også gerne give nogle point for det...... :)

tue: Du får af mig: 382 points OK?

Ok, jeg skal se om jeg kan få det lavet til i morgen, er det godt nok ???

Tue, Jeg vil give dig 100 point for at få det scriptet :)

Ja, men så for du først pointene der!!

ahl: Det er op til dig om, du vil have udviklet et ikke-gennemtestet script i morgen af en anden, eller om du vil modtage et gennemtestet script indeholdende internt mail-system med dertil hørende søgesystem på profiler.

Jeg kan da også lave et søge system i det jeg er i gang med at lave !!!

Hvis ahl vil havde det kan jeg også
lave en adresse bog, og måske noget andet, bare kom med idere, så ser jeg på det !!!

Tue:
lyder suverænt, bare sig hvor mange point du skal have!!!

Skal jeg lave en adresse bog og en søge
maskine, eller hvad ???

Hvis jeg skal lave det skal jeg have
500 point for det.

Er det i orden ???

Hvis jeg skal lave det kommer det nok til at tage lidt flere dage, men det ser vi på !!!

Hmm jeg kan højest give dig 300, er det godt nok?

Hvis du ikke har mere end 300 point,
så kan du jo ikke få alle de ekstre
funktion med...

Du kan give mig de 300 nu, og de 200
senere !!!

Så kan vi snakke om det !!!

Jeg har fundet det komplette system.... alt source kode.
funktioner...bla. addresse bog...mv.

var det noget ?

Chris >>>

Fortæl, fortæl...!

<//morpheus\\>

Jeg giver 300p mere (i alt: 682p!) så skal mail-systemet også indeholde:
Intern mail
Søger
Adressebog
Chat (med privat snak)
evt. andre fede funktioner fra dig.

PS. Jeg har lavet chatten, jeg mangler bare privat snak funktionen!

AHL: hvis du vil have alt det serveret....må du da op med mere end 1000 point..... jeg tror på en 1200 stykker mindst. ;-)

Chris>>> Hvor fandt du det system ???

<//morpheus\\>

Jeg vil gerne gi 450 oven i til tue : hvis jeg også får en kope!

Med chat og alt det ahl nævner!

Det vil sige at at tue får næsten 1100point.. Er det nok ?

Tue: hmm lyder ganske i orden for mig....

Chris: Jeg vil også gerne have dit, men jeg har sq ikke flere point... Kan vi finde ud af noget?

-->Tue, lad os starte hvor vi kom fra!
Jeg har ikke 1200p, så lad os bare sige at du laver intern-mail, OK, så skulle 682 være nok!!

Nu kan jeg ikke finde rundt i hvad folk vil have lavet !!!

Skriv nedeunder hvad det er i gerne vil have lavet, + hvor
mange point i vil give for det, + jeres e-mail...

Så kan det være at jeg kan finde rundt i det !!!  §:-))

Tue : Jeg vil gerne have Søgemaskine + Adressebog + Chat med privat snak hvis det kan lade sig gøre !?!? Jeg har selv perlchat hvis du ikk gider sidde indsætte en chat + intern mail og seføli hvis du vil lave nogen andre fede fuktioner så du  velkommen.. *SS*.. Og jeg vil gerne give 400point nu for jeg har ikk flere men du kan få nogen flere senere ?

djsmolf@yahoo.dk

-Codeman

Halloo Codeman, jeg tror tue mener mig!!

Ok:
Intern-mail!!
Adressebog!!

Der er faktisk alt!!

Ahl.. Vi andre kan vel få en kopi ? Hvis vi gir lidt point oven i!?

Tue:

1) Intern mail
2) Søger
3) eventuelt et eller andet som du finder på ;) *HEH*

hmm jeg kan max give dig 400 - er det nok?

Kim.

ok. hvor mange vil have en kopi!!
-->Tue: Kan du ikke bare lave det jeg har sagt, (intern mail og adressebog) og sende det til mig??, der er jo mig der stillet spørgsmålet!!, og vis andre vil have en kopi, kan de bare give dig nongle point, BAGEFTER.
Tak!

Chris ????

Hvor fandt du det source henne ?

<//morpheus\\>

send til ahl@mail.com

Tue: whoops.. glemte at skrive min e-mail :)

aller@soccersn.com

Chris: hmm kan du sige hvor du fandt det henne?

kommer der til at ske' noget eller hvad, ellers blver jeg nød til at finde ud af at lave scriptet selv!! dvs. NUL points

Tue: Jeg skal nok give dig 400 points for følgende:

Intern mail
Adressebog
Søger

E-mail: kenneth@everest.dk

Giv lyd......

Rolig nu, jeg er godt i gang, det vare nok ikke ret lang tid før jeg er færdig !!!

hvor lang tid, ca.?

Husk at man forresten også skal kunne slette beskeden igen, når man har læst den!!

Det ved jeg ikke rigtig, det driller
mig lidt, men er det noget der haste ???

Nææ, men det skal hælst være færdigt i morgen!!

Det var synd, jeg har selv fundet ud af det!!

(-AHL-)

morpheus : Komplet Source er sendt til dig ;-)

Chris: Kan du sende sourcen til mig.. kenneth@everest.dk

Chris: hmm snakker vi om point for at sende det ? ;)

Kim.

-->Aller: er du klar over, hvor iriterende du er??

Chris>>>> U R The Best ! :o)


<//morpheus\\>

Morpheus... Ka du ikk sende mig en kopi af det du fik af criis ?

-Codeman

djsmolf@yahoo.dk

hvis du vil have lidt points er det iorden!

OG TUE! jeg er stadig interreseret i det du har lavet og vil gerne gi dig 400point!

-Codeman

Djsmolf@yahoo.dk

CODEMAN: hvis du vil have så opret et spørgsmål ;-)

Ahl: hvorledes?

Kim.

Codeman>> Jeg skal se på det, men det
driller mig lidt, men jeg skal nok få
det til at virke.

Chat med privat snak, den var svær,
det er jeg ikke sikker på at jeg kan lave, men resten skulle ikke være det
store problem !!!

Det kommen nok til at tage et stykke
tid, så jeg håber ikke af du skal bruge
det lige nu...

-->Tue, hvad er det der er svært?

Jeg har lidt problemer med at få den til
at skrive til databasen, det er ikke min connection, det er et eller andet
i mit script:

<%
If request("Send")= "Send" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("system.mdb")
strSQL = "SELECT * FROM Login WHERE Brugernavn='" & request.form("navn") & "'"
Set rs = myConn.Execute(strSQL)
    If (rs.BOF Or rs.EOF) Then
        response.redirect("send.asp?error=true")
    else
        intUID = rs("Id")
       
        strSQL = "SELECT * FROM Post"
        Set RS = Server.CreateObject("ADODB.Recordset")
        rs.Open strSQL, myConn, 3, 3
        rs.movefirst

          rs.AddNew
        rs("Id") = intUID & " "
        rs("Afsender") = request.cookies("login")("navn") & " "
        rs("subject") = Request.form("emne") & " "
        rs("tekst") = Request.form("besked") & " "
        rs("tid") = now
          rs.Update

Set rs = Nothing
Set myConn = Nothing
    End If
End If
%>

<%@ Language=VBScript %>
<!--#include file="../includer/protect.inc"-->
<%
Response.Buffer = true
If Request.Form("Til")  <> "" Then
If Request.Form("Fra")  <> "" Then
  If Request.Form("Emne")  <> "" Then
  If Request.Form("Indhold")  <> "" Then
    dim beskedid, til, fra, sendt, last, emne, indhold
    til = Request.Form("til")
    fra = cstr(Session("Username"))
    sendt = Now
    emne = Request.Form("emne")
    indhold = Request.Form("indhold")
    last = "N"
    indhold = cstr(Replace(indhold, ",", "&#130;"))
    indhold = cstr(Replace(indhold, """","&quot;"))
    indhold = cstr(Replace(indhold, "<","&lt;"))
    indhold = cstr(Replace(indhold, ">","&gt;"))
   
    emne = cstr(Replace(emne, ",", "&#130;"))
    emne = cstr(Replace(emne, """","&quot;"))
    emne = cstr(Replace(emne, "<","&lt;"))
    emne = cstr(Replace(emne, ">","&gt;"))

set userConn= Server.CreateObject("ADODB.Connection")
userConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../UserData.mdb") & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Dim UsernameStr, PasswordStr, FornavnStr, EfternavnStr, EmailStr,AlderStr
UsernameStr = til
    checkSQL = "Select * FROM Users Where Username = '"& UsernameStr &"'"
    set checkRS=userConn.Execute (checkSQL)

If Not checkRS.EOF And Not checkRS.BOF Then

    set userConn= Server.CreateObject("ADODB.Connection")
    userConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../UserData.mdb") & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
    createSQL = "Insert Into Mail (Til, Fra, Sendt, Last, Emne, Indhold) Values ('"& til &"', '"& fra &"', '"& sendt &"', '"& last &"', '"& emne &"', '"& indhold &"')"
    set RS=userConn.Execute (createSQL)
   
    Response.Write "<font color='red'>Beskeden er sendt</font>, <A href='shwmsg.asp'>Tilbage!</A>"

    Else

    Response.Redirect "fejl.asp?id=0002&Fra=New Message"

End if

  End If
  end if
end if
else:
emne = Request.QueryString("Emne")
til = Request.QueryString("Til")
end if

%>

Kan du ikke lige se på mit script,
og rette fejlene !!!

Jeg for fejlmeddelsen:

ADODB.Recordset fejl '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

/eks projekt/enter/mail.asp, linje 15

Øjeblik!!

Prøv at rette mit script istedet, efter dit behov, jeg kan ikke rigtit se hvad der er galt!!

Kan du ikke lige sende alt det du har
lavet til: t_sandal@yahoo.com

-->Tue, nu når jeg har hjulpet dig, kan du så ikke sige mig hvor, man kan få et script der kan hente mails fra en pop3, og vise dem på siden?

Hvad for jeg for det, det er både send og modtag, jeg har lavet!!

Prøv at søg under pop3 på:

http://www.netcoders.dk

For jeg kender ikke lige svaret !!!

Hvad vil du have for det ???

Jge har prøvet der er ikke desværrer ikke noget!

Jeg ved ikke rigtig, jeg skal selv bruge det til noget rimeligt seriøst, såh.

jeg har levet et komplet bruger system!!
Login, søg bruger, internmail, sms, pop3 mail(snart!), ret profil, opret bruger, osv.

Ok, så er det også lige meget !!!

Ka jeg oxo få en Kopi af det system en eller anden , 300 Points ....

MVH Mig

Nå, så er der en beta version ude:

http://www.web-developer.dk/herbsoft/afstemning/eks/index.asp

Hvis i finder nogle fejl, eller i synes at der mangler noget, så send en e-mail til: t_sandal@yahoo.com

Ps. chatten virker ikke så godt endnu !!!

man skulle kunne skifte password!

Når ja, det bliver rettet med det samme !!!

Så er kommet en ny version:

http://www.web-developer.dk/herbsoft/afstemning/eks/index.asp

Der er blevet rettet et par fejl, og der er nu mulighed for at besvare og videre sende beskeder !!!

Hvis der er nogen der har nogle forslag til nogle andre ting der skal være i dette system, så kontakt mig på:
ICQ: 58548143
t_sandal@yahoo.com

Hej tue , ka du ikke sende mig en kopi også ..??

email : mikkelbn@image.dk
Icq : 30572008

Hej Tue

Hvad skal du have penge / point for brugersystemet ?

Kontakt mig på kenneth@everest.dk

Jeg vil også gerne have et system som den der han havde lavet.
Hvis der er nogle der vil sælge den for points så skal i bare skrive tilbage til denne spm.

Hvor mange point står det dersens script i ???

Jeg vil give 300 point !

<//morpheus\\>

Jeg er også temmelig interreseret i dette script. Jeg er med på at give over 300 point!

biozork