Avatar billede no_doubt Nybegynder
17. november 2002 - 21:32 Der er 30 kommentarer og
1 løsning

send en mail

nogen der kan skrive hvad jeg "mangler" her for at den sender mig en mail med alle lektier der er blevet indtastet

<html>

<head>
<title>New Page 4</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body>
<font size="1" color="#000000"><a </tr>

<form name="insert" form id="insert" style="display : none ;" onsubmit="return Check()"
action="file:///C:/Documents%20and%20Settings/Mark%20Mikkelsen/Desktop/lektie/default1.asp"
method="post">
  </a><div align="center"><center><table border="1" bordercolor="#000000" bgcolor="#C0C0C0"
  width="620">
    <tr>
      <td width="118"><div align="left"><p><small><font face="Arial">&nbsp;</font></small><%set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "select * from lektier"
Set rs = Conn.Execute(strSQL)

%><small><font
      face="Arial" color="#000000"><em><%
'Tjek om form er send til seid så gem i databasen:
if request.servervariables("REQUEST_METHOD") = "POST" then
 
  dag = Replace(Request.Form("dag"),"'", "''")
  fag = Replace(Request.Form("fag"),"'","''")
  opgave = Replace(Request.Form("opgave"),"'","''")
  ugenummer = Replace(Request.Form("ugenummer"),"'","''")
  sql = "INSERT INTO lektier (dag, fag, opgave, ugenummer) VALUES ('" & dag & "',  '" & fag & "', '" & opgave & "', '" & ugenummer & "')"
  Conn.execute(sql) 'Så er det gemt i databsen.
end if
%><script language="JavaScript"><!--
function Check() {
if (document.insert.dag.value == "") {
alert("Du mangler at angive dagen!");
return false;
}
if (document.insert.fag.value == "") {
alert("Du mangler at angive faget!");
return false;
}
if (document.insert.opgave.value == "") {
alert("Du mangler at angive opgaven!");
return false;
}
if (document.insert.ugenummer.value == "") {
alert("Du mangler at angive ugenummer for opgaven!");
return false;
}
}
// --></script></em></font></font><strong><font
      face="Arial">Dag</font></strong></small><a </tr><font size="1" color="#000000"></font></td>
      <td width="118"></a><strong><small><font face="Arial">Fag</font></small></strong></td>
      <td width="255"><strong><small><font face="Arial">Opgave</font></small></strong></td>
      <td width="50"><strong><small><font face="Arial">Uge</font></small></strong></td>
      <td width="50"><strong><small><font face="Arial">Udfør</font></small></strong><a </tr></td>
    </tr>
    <tr>
      <td width="118"><div align="center"><center><p><input type="text" name="dag" size="12"></td>
      <td width="118" align="center"><strong><font face="Arial"><small><div align="center"><center><p></small></font></strong><input
      type="text" name="fag" size="12"></td>
      <td width="255" align="center"><div align="center"><center><p><textarea rows="2"
      name="opgave" cols="20"></textarea></td>
      <td width="50" align="center"><div align="center"><center><p><input type="text"
      name="ugenummer" maxlength="2" size="2"></td>
      <td width="50" align="center"><input type="submit" value="Gem" name="B1"></td>
    </tr>
  </table>
  </center></div></a>
</form>
</body>
</html>
Avatar billede andersf Nybegynder
17. november 2002 - 21:43 #1
Hvilken fejl-meddelse får du? Der står ofte i hvilken line der er fejl og årsagen til fejlen.

/AndersF
Avatar billede oasen Nybegynder
17. november 2002 - 21:47 #2
Sådan her f.eks.:

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "mig@selv.dk"
objCDO.To = "mig@selv.dk"
objCDO.Subject = "Ny opgave - " & Now
objCDO.Body = Request.Form("dag") & vbCrlf & Request.Form("fag") & vbCrlf & Request.Form("opgave") & vbCrlf & Request.Form("ugenummer")
objCDO.Importance = 2
objCDO.BodyFormat = 1
objCDO.Send
Set objCDO = Nothing
Avatar billede no_doubt Nybegynder
17. november 2002 - 21:47 #3
der er ingen fejlmeddelse vil bare gerne have sendt en mail hvor der står hvilke ting der er blevet lagt i db'en..
Avatar billede no_doubt Nybegynder
17. november 2002 - 21:49 #4
en jmail udgave... sorry
Avatar billede oasen Nybegynder
17. november 2002 - 21:52 #5
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "---.---.dk"
JMail.Sender = "mig@selv.dk"
JMail.Subject = "Ny opgave - " & Now
JMail.AddRecipient "mig@selv.dk" 
JMail.Body = "Hej " & strFuldenavn & VbCrLf & VbCrLf
JMail.Body = Request.Form("dag") & vbCrlf & Request.Form("fag") & vbCrlf & Request.Form("opgave") & vbCrlf & Request.Form("ugenummer")
JMail.Priority = 3
JMail.Execute
Set JMail = Nothing
Avatar billede no_doubt Nybegynder
17. november 2002 - 21:56 #6
hvordan skulle de se ud hvis den skulle tage alle navnene fra en database og sende den til..
Avatar billede no_doubt Nybegynder
17. november 2002 - 21:59 #7
og hvor vil du egentlig sætte det ind henne ?`selve send delen i forhold til insert
Avatar billede oasen Nybegynder
17. november 2002 - 22:00 #8
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "---.---.dk"
JMail.Sender = "mig@selv.dk"
JMail.Subject = "Ny opgave - " & Now
JMail.AddRecipient "mig@selv.dk"
Set rs = Conn.Execute("Select Navn From Database Order By Navn")
While Not rs.EOF
  JMail.Body = JMail.Body & vbCrlf & rs("Navn")
  rs.MoveNext
Wend
JMail.Priority = 3
JMail.Execute
Set JMail = Nothing
Avatar billede oasen Nybegynder
17. november 2002 - 22:02 #9
if request.servervariables("REQUEST_METHOD") = "POST" then

' Her!

end if
Avatar billede oasen Nybegynder
17. november 2002 - 22:03 #10
Det er fuldstændig underordnet, om det er før eller efter dit insert-statement.
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:03 #11
nej det skal vel efter insættelsen ikke..
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:05 #12
hvis db'en hedder db
tabellen hedder brugere
og kolonnen med email hedder email og deres navn hedder navn

hvordan ser den så ud
Avatar billede oasen Nybegynder
17. november 2002 - 22:07 #13
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "---.---.dk"
JMail.Sender = "mig@selv.dk"
JMail.Subject = "Ny opgave - " & Now
JMail.AddRecipient "mig@selv.dk"
Set rs = Conn.Execute("Select navn, email From brugere Order By navn")
While Not rs.EOF
  JMail.Body = JMail.Body & vbCrlf & rs("navn") & " - " & rs("email")
  rs.MoveNext
Wend
JMail.Priority = 3
JMail.Execute
Set JMail = Nothing

Det er fuldstændig underordnet, om det er før eller efter dit insert-statement.
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:12 #14
Mailen skulle gerne se sådan ud

Hej "Navn"

Der er blevet tilføjet en ny lektie til "dag" i uge "ugenummer" Lektien er i "fag"
Opgaven : "opgaven"

MVH "navn"
Se andre lektier på "siden den er sendt fra"
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:13 #15
JMail.AddRecipient "mig@selv.dk"
er det ikke også alle dem i databasen ?
Avatar billede oasen Nybegynder
17. november 2002 - 22:23 #16
Ok...

Set JMail = Server.CreateObject("JMail.SMTPMail")

Set rs = Conn.Execute("Select Navn From Database Order By Navn")
While Not rs.EOF

  JMail.ServerAddress = "---.---.dk"
  JMail.Sender = "admin@domaene.dk"
  JMail.Subject = "Ny opgave"
  JMail.AddRecipient rs("navn")
  JMail.Body = "Hej " & rs("navn") & vbCrlf & vbCrlf & "Der er blevet tilføjet en ny lektie til " & Request.Form("dag") & " i uge " & Request.Form("ugenummer") & ". Lektien er i " & Request.Form("fag") & vbCrlf & "Opgaven: " & Request.Form("opgave") & vbCrlf & vbCrlf & "MVH (hvilket navn?)" & vbCrlf & "Se andre lektier på siden"
  JMail.Priority = 3
  JMail.Execute

  rs.MoveNext
Wend

Set JMail = Nothing
Avatar billede oasen Nybegynder
17. november 2002 - 22:24 #17
"JMail.AddRecipient "mig@selv.dk"
er det ikke også alle dem i databasen ?"

Jeg troede først du ville sende en mail til dig selv, når en person lagde en opgave ind.
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:25 #18
Jamen kunne jo ændre det til at man kunne skrive sig op til at få sendt lektien.
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:27 #19
Hvad gør jeg galt..
<%
'Tjek om form er send til seid så gem i databasen:
if request.servervariables("REQUEST_METHOD") = "POST" then
 
  dag = Replace(Request.Form("dag"),"'", "''")
  fag = Replace(Request.Form("fag"),"'","''")
  opgave = Replace(Request.Form("opgave"),"'","''")
  ugenummer = Replace(Request.Form("ugenummer"),"'","''")
  navn = Replace(Request.Form("navn"),"'","''")
  sql = "INSERT INTO lektier (dag, fag, opgave, ugenummer, navn) VALUES ('" & dag & "',  '" & fag & "', '" & opgave & "', '" & ugenummer & "', '" & navn & "')"
  Conn.execute(sql) 'Så er det gemt i databsen.
Set JMail = Server.CreateObject("JMail.SMTPMail")
Set rs = Conn.Execute("Select navn From brugere")
While Not rs.EOF
JMail.ServerAddress = "mail.dk"
JMail.Sender = "admin@domaene.dk"
JMail.Subject = "Ny opgave"
JMail.AddRecipient rs("navn")
JMail.Body = "Hej " & rs("navn") & vbCrlf & vbCrlf & "Der er blevet tilføjet en ny lektie til " & Request.Form("dag") & " i uge " & Request.Form("ugenummer") & ". Lektien er i " & Request.Form("fag") & vbCrlf & "Opgaven: " & Request.Form("opgave") & vbCrlf & vbCrlf & "MVH (hvilket navn?)" & vbCrlf & "Se andre lektier på siden"
JMail.Priority = 3
JMail.Execute
rs.MoveNext
Wend
Set JMail = Nothing
end if
%>
Avatar billede oasen Nybegynder
17. november 2002 - 22:28 #20
Jeg fatter simpelthen ikke, hvor du vil hen! Prøv at læse dit oprindelige spørgsmål igen:

"nogen der kan skrive hvad jeg "mangler" her for at den sender mig en mail med alle lektier der er blevet indtastet"

Og nu er vi ude i en eller anden venteliste.
Du er nødt til at være meget mere konkret, hvis JEG skal hjælpe dig.
Avatar billede oasen Nybegynder
17. november 2002 - 22:30 #21
Hvordan ser din databaseforbindelse ud?
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:30 #22
sorry.. det jeg gerne vil have er at den sender de nye lektier når den er tilføjet til alle i brugere... (deres email ligger i samme tabel i kolonnen email.. og deres navn ligger i navn i samme tabel) men det der er galt nu, er at den ikke tilføjer
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:32 #23
<%set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "select * from lektier"
Set rs = Conn.Execute(strSQL)
%>
Avatar billede oasen Nybegynder
17. november 2002 - 22:36 #24
Prøv denne:


'Tjek om form er send til seid så gem i databasen:
if request.servervariables("REQUEST_METHOD") = "POST" then
 
  dag = Replace(Request.Form("dag"),"'", "''")
  fag = Replace(Request.Form("fag"),"'","''")
  opgave = Replace(Request.Form("opgave"),"'","''")
  ugenummer = Replace(Request.Form("ugenummer"),"'","''")
  navn = Replace(Request.Form("navn"),"'","''")
  sql = "INSERT INTO lektier (dag, fag, opgave, ugenummer, navn) VALUES ('" & dag & "',  '" & fag & "', '" & opgave & "', '" & ugenummer & "', '" & navn & "')"
  Conn.execute(sql) 'Så er det gemt i databsen.
Set JMail = Server.CreateObject("JMail.SMTPMail")
Set rs = Conn.Execute("Select navn, email From brugere")
While Not rs.EOF
JMail.ServerAddress = "mail.dk"
JMail.Sender = "admin@domaene.dk"
JMail.Subject = "Ny opgave"
JMail.AddRecipient rs("email")
JMail.Body = "Hej " & rs("navn") & vbCrlf & vbCrlf & "Der er blevet tilføjet en ny lektie til " & dag & " i uge " & ugenummer & ". Lektien er i " & fag & vbCrlf & "Opgaven: " & opgave & vbCrlf & vbCrlf & "MVH " & navn & vbCrlf & "Se andre lektier på siden"
JMail.Priority = 3
JMail.Execute
rs.MoveNext
Wend
Set JMail = Nothing
end if
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:40 #25
Navnet MVH er fra tabellen lektie og kolonnen navn
Avatar billede oasen Nybegynder
17. november 2002 - 22:45 #26
MVH "navn" !?

Er afsenderens navn ikke personen, der indsender opgaven??
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:51 #27
Jo.. den bliver jo lagret sammen med opgaven i tabellen lektie
Avatar billede oasen Nybegynder
17. november 2002 - 22:57 #28
Men når du indsætter data for den nye opgave i tabellen "lektie", er variablen "navn" det navn, der skal stå som afsender af mails'ne, ik'?
Avatar billede no_doubt Nybegynder
17. november 2002 - 22:59 #29
nej ikke afsender navn men bare fremgå i bunden hvor der står MVH "navn fra lektie"
Avatar billede oasen Nybegynder
17. november 2002 - 23:25 #30
Hvad er så problemet? Det gør det vel også, som det er nu... Har du prøvet det?
Avatar billede oasen Nybegynder
20. november 2002 - 10:32 #31
...?
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