Avatar billede mestersimon Nybegynder
31. marts 2005 - 14:56 Der er 8 kommentarer og
1 løsning

Mailsystem asp

Hey sidder og knokler med at implementere et ASP Mailsystem i mit community..

Mit spørgsmål lige nu er.. Har fået inbox til at virke, men nu skal jeg så få emails'ne i inboxen til at kunne vises.

Bruger dette link lige nu i min mail.asp <a href="readmail.asp?&mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%>


Vedlægger også lige koden fra min readmail.asp
<html>
<head>
    <%

Response.Buffer = True

mode = Request.QueryString("mode")

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
%>
</head>
blablabla



<%
                   
                       
'Hiver info om emailen frem:
                       
Set rs = Conn.Execute("select * from mail where mailid = " & Request.QueryString("mailid"))
                       
Conn.Execute("update mail set mailread = True")
                       
                       
'Tjecker om emailen tilhører brugeren der vil læse den
                       
if rs("mailmodtager") <> Session("brugernavn") then
                            Response.Redirect("inbox.asp")
                       
end if
                %>

</body>
</html>



Håber der er nogle der forstår dette selvom det virker lidt rodet.. men vil altså gerne have det til at fungere så når jeg trykker på det emne jeg kan se i min inbox, at jeg så også kan hive det ud af databasen.
Avatar billede a1a1 Novice
31. marts 2005 - 15:01 #1
du har i hvertfald et & for meget
forkert:
<a href="readmail.asp?&mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%>
rigtigt:
<a href="readmail.asp?mailid=<%=rs("mailid")%>"><%=rs("mailEmne")%>

;o)
Avatar billede busschou Praktikant
31. marts 2005 - 15:01 #2
jamen henter du ikke netop mailen med
Set rs = Conn.Execute("select * from mail where mailid = " & Request.QueryString("mailid"))
?
Avatar billede mestersimon Nybegynder
31. marts 2005 - 15:01 #3
den har jeg også lige rettet... nu får jeg ik nogen fejlmeddelse mere :) men den trækker intet ud?
Avatar billede mestersimon Nybegynder
31. marts 2005 - 15:02 #4
det burde den vel.. men der kommer intet ud som tekst
Avatar billede mestersimon Nybegynder
31. marts 2005 - 15:05 #5
Poster lige hele min readmail.asp

<html>
<head>
    <%

Response.Buffer = True

mode = Request.QueryString("mode")

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
%>
<!-- TemplateBeginEditable name="doctitle" -->
<!--#Include file="config.asp"-->
<title><%=SetTitle%></title>
<!-- TemplateEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link href="style.css" rel="stylesheet" type="text/css">
<!-- TemplateBeginEditable name="head" --><!-- TemplateEndEditable -->
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="748" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333">
  <tr bordercolor="#FFFFFF">
    <td colspan="4"><div align="left"><!--#Include file="inc_menu3.asp"--></div></td>
  </tr>
  <tr bordercolor="#FFFFFF">
    <td colspan="4"><div align="right">
        <!--#include file="inc_menu2.asp" -->
      </div></td>
  </tr>
  <tr bordercolor="#FFFFFF">
    <td width="20%" valign="top"><blockquote>
        <p align="left">
          <!--#include file="inc_menu.htm" -->
          <br>
        </p>
      </blockquote></td>
    <td colspan="2" valign="top"><p><strong><font size="4">Om F.C. Patrick</font></strong></p>
      <p>F.C. Patrick er et 7 mands hold dannet i ..... </p>
<br>
      <hr align="center">
      <font size="1"><br>
      <!--#include file="tjek.asp"-->
               
<%
                   
                       
'Hiver info om emailen frem:
                       
Set rs = Conn.Execute("select * from mail where mailid = " & Request.QueryString("mailid"))
                   
    Conn.Execute("update mail set mailread = True")
                       
                       
'Tjecker om emailen tilhører brugeren der vil læse den
                       
if rs("mailmodtager") <> Session("brugernavn") then
                       
    Response.Redirect("mail.asp")
                       
end if
                %>
                            hehe</table>
                       
                        <br>
                        <br>

                       
                <%
                rs.close
                %>
               

      </font></td>
    <td width="20%">&nbsp;</td>
  </tr>
  <tr bordercolor="#FFFFFF">
    <td colspan="4"><td>
  </tr>
</table>
</body>
</html>
Avatar billede a1a1 Novice
31. marts 2005 - 15:05 #6
du har heller ikke noget der skriver det ud f.eks.

Response.Write rs("mailtekst")
Avatar billede mestersimon Nybegynder
31. marts 2005 - 15:07 #7
hvor skal jeg evt. smide den ind henne? men kommer det ikke automatisk ud ved
Set rs = Conn.Execute("select * from mail where mailid = " & Request.QueryString("mailid"))
                   
    Conn.Execute("update mail set mailread = True")
Avatar billede mestersimon Nybegynder
31. marts 2005 - 15:20 #8
Fandt sku ud af det med din hjælp a1... :) har også fået emne og hele molevitten ind nu.. kan være jeg får brug for mere hjælp senere hvis det er iorden? :)

tak
Avatar billede a1a1 Novice
31. marts 2005 - 15:38 #9
selv tak ;o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester