Avatar billede dino84 Nybegynder
04. december 2003 - 17:30 Der er 2 kommentarer og
2 løsninger

Send mail via jmail efter udfyldt formular

Hey

Jeg har her en formular som smider nogle dataer ind i en database.. Nu vil jeg så gerne have at de skal sendes som mail os...

Mailen skal sendes til den mail der bliver indtastet....

Hvordan bygges det ind i denne kode?

Det skal så laves i jmail...

<html>
<head>
<title>Untitled Document</title>
</head>

<body>
  <table width="510" border="0" cellspacing="1" cellpadding="2">
    <tr>
    <td width="100%" align="center"><strong>Udfyld formular for tilmelding</strong></td>
    </tr>
     
      <table width="90%" align="center" border="0" cellspacing="10" cellpadding="0">
      <tr>
        <form action="nyheder.asp?mode=kommentarer&id=<%=Request.Querystring("id")%>" method="post">
        <td align="left" valign="top">
         
<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../database/bustur.mdb")
   
'Hvis brugeren har submittet formularen
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
'Tjecker om felterne er udfyld
    if (Request.Form("navn") <> "" AND Request.Form("email") <> "" AND Request.Form("mobil") <> "" AND Request.Form("antal") <> "" AND Request.Form("city")  <> "") then
   
'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from tilmeldte"
    rs.Open strsql, conn, 1, 3
   
'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("kampid") = Server.HTMLEncode(Request("kampid"))
    rs("navn") = Server.HTMLEncode(Request("navn"))
    rs("email") = Server.HTMLEncode(Request("email"))
    rs("mobil") = Server.HTMLEncode(Request("mobil"))
    rs("antal") = Server.HTMLEncode(Request("antal"))
    rs("city") = Server.HTMLEncode(Request("city"))
    rs("kommentar") = (Request("kommentar"))
    rs("dato") = Now()
    rs.update
   
    Response.Redirect("nyheder.asp?mode=kommentarer&id="& Request.Querystring("id") &"")
   
    rs.Close
    set rs = nothing
   
    else
    Response.Write("<strong><font color='red'>Du mangler at udfylde felter !</font></strong>")
   
    end if
    end if
%>
        </td>
      </tr>
      <tr>
      <input type="hidden" name="kampid" value="<%=Request.Querystring("id")%>">
        <td align="left" valign="top"><b>Dit Navn <font color="#336699">*</font></b></td><td align="right"><input name="navn" type="textbox" class="InputTable" size="40"></td>
      </tr>
      <tr>
        <td align="left" valign="top"><b>By <font color="#336699">*</font></b></td><td align="right"><input name="city" type="textbox" class="InputTable" size="40"></td>
      </tr>
      <tr>
        <td align="left" valign="top"><b>Din E-mail <font color="#336699">*</font></b></td><td align="right"><input name="email" type="textbox" class="InputTable" size="40"></td>
      </tr>
        <tr>
        <td align="left" valign="top"><b>Dit mobil nr. <font color="#336699">*</font></b></td><td align="right"><input name="mobil" type="textbox" class="InputTable" size="9"></td>
      </tr>
        <tr>
        <td align="left" valign="top"><b>Antal pladser <font color="#336699">*</font></b></td><td align="right"><input name="antal" type="textbox" class="InputTable" size="2"></td>
      </tr>
      <tr>
        <td align="left" valign="top"><strong>Kommentar </strong><br><font color="#777777"><em>[Skriv her hvis du har nogen tilføjelser eller spørgsmål.<br>Evt. hvis du skal samles op på vejen eller selv har billet.]</em></font></td><td align="right"><textarea cols="39" rows="10" name="kommentar"></textarea></td>
      </tr>
        <tr>
        <td align="left" valign="top"><input name="submit" type="submit" class="Button" value="Tilmeld mig"></td><td align="right"><input name="reset" type="reset" class="Button" value="Slet og Start Forfra"></td>
      </form>
      </tr>
      </table>
    </td>
    </tr>
  </table>
 
  <a href="nyheder.asp"><strong>Tilbage</strong></a>
     
</body>
</html>
Avatar billede websam Nybegynder
04. december 2003 - 17:35 #1
Du sætter dim mail funktion ind efter de nedenstående liner så skulle det virke :
   
rs.Close
set rs = nothing
Avatar billede -thomas- Nybegynder
04. december 2003 - 17:39 #2
Hmm... noget lign:

For Each formelement In Request.Form
    strValue = Request.Form(formelement)
    strContent = strContent & formelement & ": " & strValue & "<br>" & vbCrlf
Next

Set jmail = Server.CreateObject("JMail.Message")
    jmail.From = "from"
    jmail.FromName = "fromname"
    jmail.Subject = "subject"
    jmail.HTMLBody = strContent
    jmail.AddRecipient "modtageremail"
Set jmail = Nothing
Avatar billede -thomas- Nybegynder
04. december 2003 - 17:40 #3
Det var vel et svar...
Avatar billede truelz Nybegynder
04. december 2003 - 17:40 #4
body = "Du er tilmeldt til følgende: " & vbcrlf 'linieskift i mailen
body = body & "Tilmeldingsdato: " & Now() & vbcrlf
body = body & "Flere relevante oplysninger..."
Set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "test@mydomain.com"
msg.FromName = "My Realname"
msg.AddRecipient Server.HTMLEncode(Request("email")), Server.HTMLEncode(Request("name"))
msg.Subject = "Noget..."
msg.Body = body
msg.Send( "en gyldig mailserver, evt. localhost" )
Set msg = Nothing

Følgende skal så bare kastes ind umidlbart efter du har skrevet til databasen.
Det kunne være en fordel at lægge de postede data ned i en variabel i starten af scriptet, da de så vil være hurtigere at hente.
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