Søg
Avatar billede jr40 Nybegynder
21. august 2002 - 23:30 Der er 6 kommentarer og
1 løsning

Jmail ting

Er der nogle som har en jmail side som denne her.?
http://www.protuna.dk/webz/www.protunahandel.de/email.asp

altså øverst hvor man kan vælge hvadfor en email der skal sendes til samt:
navn:
email:
besked:
Avatar billede no_doubt Nybegynder
21. august 2002 - 23:33 #1
<html>

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

<body>
<div align="center"><center>

<table>
  <tr>
    <td valign="top"><p align="left"><% if mode = "" then %> <% mode = request("mode") %> </p>
    <form METHOD="post" ACTION="?mode=send">
      <div align="left"><table border="0" width="100%">
        <tr>
          <td width="100%" align="center"><font size="2" face="Arial"><% end if %> <% if mode = "send" then %> <% if request.form("fra_navn") = "" OR request.form("fra_mail") ="" OR request.form("emne") ="" OR request.form("besked") ="" then
response.write("Du mangler at indtaste en oplysning")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "post.tele.dk"
JMail.Sender = Request.Form("fra_mail")
JMail.Sendername = Request.Form("fra_navn")
JMail.Subject = Request.Form("emne")
JMail.AddRecipient Request.Form("D1")
JMail.Body = Request.Form("besked")
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Silent = True
If JMail.Execute then
%> Tak for din Mail. <% Else %> Mailen
          er desværre ikke afsendt prøv igen. <% End If %> <% end if %> <% end if %> </font></td>
        </tr>
        <tr>
          <td width="100%" align="center"><font size="2" face="Arial"><div align="left"><p></font><small><font
          face="Arial">Att :</font></small> <select name="D1" size="1">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database.mdb")
Set rs = Conn.Execute("select * from kontaktmail")
Do until rs.eof
%>            <option value="<%=rs("kontaktmail")%>"><%=rs("kontaktnavn")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>          </select><font size="2" face="Arial"><br>
          <br>
          Dit Navn:<br>
          <input type="text" name="fra_navn" size="20"><br>
          Din E-mail:<br>
          <input type="text" name="fra_mail" size="20"><br>
          Emne:<br>
          <input type="text" name="emne" size="35"><br>
          Spørgsmål/kommentar:<br>
          <textarea cols="35" rows="6" name="besked"></textarea><br>
          <br>
          <input TYPE="submit" VALUE="Send E-mail"></font></td>
        </tr>
      </table>
      </div>
    </form>
    </td>
  </tr>
</table>
</center></div>
</body>
</html>

Det eneste du skal bruger en database med tabel = kontaktmail og
og to felter, kontaktmail og kontaktnavn
Avatar billede jr40 Nybegynder
21. august 2002 - 23:52 #2
hmm den skriver fejl i:
Default.asp, line 15, column 3
Avatar billede jr40 Nybegynder
21. august 2002 - 23:52 #3
den kan åbenbart ik lide det her:
<% if mode = "" then %> <% mode = request("mode") %>
Avatar billede no_doubt Nybegynder
21. august 2002 - 23:57 #4
det skal virker, du kan mail den side det skal være på men kan først se på det imorgen
Avatar billede jr40 Nybegynder
21. august 2002 - 23:58 #5
Den ser sådan her ud:


<%@ Language=JScript%>

<html>

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

<body>
<div align="center"><center>

<table>
  <tr>
    <td valign="top"><p align="left"><% if mode = "" then %> <% mode = request("mode") %> </p>
    <form METHOD="post" ACTION="(EmptyReference!)?mode=send">
      <div align="left"><table border="0" width="100%">
        <tr>
          <td width="100%" align="center"><font size="2" face="Arial"><% end if %> <% if mode = "send" then %> <% if request.form("fra_navn") = "" OR request.form("fra_mail") ="" OR request.form("emne") ="" OR request.form("besked") ="" then
response.write("Du mangler at indtaste en oplysning")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.tele.dk"
JMail.Sender = Request.Form("fra_mail")
JMail.Sendername = Request.Form("fra_navn")
JMail.Subject = Request.Form("emne")
JMail.AddRecipient Request.Form("D1")
JMail.Body = Request.Form("besked")
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Silent = True
If JMail.Execute then
%> Tak for din Mail. <% Else %> Mailen
          er desværre ikke afsendt prøv igen. <% End If %> <% end if %> <% end if %> </font></td>
        </tr>
        <tr>
          <td width="100%" align="center"><font size="2" face="Arial"><div align="left"><p></font><small><font
          face="Arial">Att :</font></small> <select name="D1" size="1">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("contact.mdb")
Set rs = Conn.Execute("select * from kontaktmail")
Do until rs.eof
%>            <option value="<%=rs("kontaktmail")%>"><%=rs("kontaktnavn")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>          </select><font size="2" face="Arial"><br>
          <br>
          Dit Navn:<br>
          <input type="text" name="fra_navn" size="20"><br>
          Din E-mail:<br>
          <input type="text" name="fra_mail" size="20"><br>
          Emne:<br>
          <input type="text" name="emne" size="35"><br>
          Spørgsmål/kommentar:<br>
          <textarea cols="35" rows="6" name="besked"></textarea><br>
          <br>
          <input TYPE="submit" VALUE="Send E-mail"></font></td>
        </tr>
      </table>
      </div>
    </form>
    </td>
  </tr>
</table>
</center></div>
</body>
</html>
Avatar billede jr40 Nybegynder
22. august 2002 - 00:02 #6
har du ik nok mulighed for af se på det iaften.?
pleaseee
Avatar billede jr40 Nybegynder
22. august 2002 - 08:58 #7
jeg har lavet nyt spam til mit eget script som dur:
http://www.eksperten.dk/spm/248983
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 11:47 Printernavn i Enhedshåndtering er et andet end i Printere og Scannere Af Uvanga i Printere
04/1115:18 Hvordan er det - At man sætter et billed af en ting her på ? Af Ikke-ekspert i Diverse
03/1113:58 Status på UPS Af dcedata1977 i Andet hardware
02/1101:00 Problemer med software til Power Walker UPS - Nødstrømsbatteri Af ErikHg i Andet software
01/1120:16 Snapchat Af made18 i Apps til iOS
White papers
Flere white papers »