Notifikationer

Markér alle som læst Log ud

askeb Nybegynder

13. februar 2003 - 00:06 Der er 17 kommentarer og
1 løsning

mail formular

Hejsa
Jeg skal bruge en mailformular til en side jeg er ved at lave til en radiostation...det skal bruges til lytterønsker...jeg tænkte jeg ville bruge jmail, men den kunne ikke klare det...
Er der nogen der gider at lave et færdig script til en formular med 4 felter med navnene:
Navn
Artistnavn
Melodinavn
Kommentar
?
Jeg skal modtage en mail på aske_bode@hotmail.com med beskeden:
Subject: Lytter ønske fra [navn]
Body: [navn] har ønsket [melodinavn] med [artistnavn]. Hans grund er: [kommentar]

/askeb
PS: Skriv evt. hvor mange point i skal ha...

Synes godt om

askeb Nybegynder

13. februar 2003 - 00:07 #1

jeg mener selvfølgelig at jeg ikke kunne klare det :)

Synes godt om

no_doubt Nybegynder

13. februar 2003 - 00:12 #2

Kan du ikke lege lidt med det her
<html>

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

<body>
<div align="left">

<table border="0" cellpadding="0" cellspacing="5" width="671" bgcolor="#6C8892">
<tr>
<td width="495" background="mainbg.gif" height="0"
style="background-repeat: repeat-y; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"
bordercolor="#000000" valign="top"><div align="center"><center><table border="0"
cellpadding="0" cellspacing="0" width="97%">
<tr>
<td valign="top"><p align="left"><b><font face="Arial"><br>
Ask Away<br>
<font size="2">Stil dine spørgsmål herunder</font><br>
</font></b><% 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></td>
</tr>
</table>
</div>
</body>
</html>

Synes godt om

no_doubt Nybegynder

13. februar 2003 - 00:22 #3

</head>

<body>
<div align="left">

<table border="0" width="100%">
<tr>
<td width="100%" align="center"><% if mode = "" then %>
<% mode = request("mode") %>
</td>
</tr>
<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("artist") ="" OR request.form("melodi") ="" 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("artist") & Request.Form("melodi")
JMail.AddRecipient Request.Form("D1")
JMail.Body = Request.Form("fra_navn") & " Kunne godt tænke sig at høre " & Request.Form("melodi") & "med" & Request.Form("artist") & " fordi " & 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"><p align="left"></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>
Dit ønske (artist)<br>
<input type="text" name="artist" size="20"><br>
Dit ønske (titel)<br>
<input type="text" name="melodi" size="20"><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>
Her.
Nu opretter du så en access database med de emails der skal kunne sendes til
under en tabel kaldet kontaktmail
Og to kolonner, der hedder kontaktmail (emailadressen) og kontaktnavn (det navn du ønsker skal fremgå af dropdown tabellen)

Synes godt om

no_doubt Nybegynder

13. februar 2003 - 01:06 #4

Sådan færdig
<form METHOD="post" ACTION="?mode=send" align="left">
<table border="0" width="100%">
<tr>
<td width="100%" align="center"><% if mode = "" then %>
<% mode = request("mode") %>
</td>
</tr>
<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("artist") ="" OR request.form("melodi") ="" OR request.form("besked") ="" then
response.write("Du mangler at indtaste en oplysning")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.dk"
JMail.Sender = "mark.mikkelsen@mail.dk"
JMail.Sendername = Request.Form("fra_navn")
JMail.Subject = Request.Form("artist") & " - " & Request.Form("melodi")
JMail.AddRecipient Request.Form("D1")
JMail.Body = Request.Form("fra_navn") & " kunne godt tænke sig at høre:" & vbcrlf & vbcrlf & Request.Form("melodi") & " med " & Request.Form("artist") & vbcrlf & vbcrlf & "Kommentar" & vbcrlf & 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>
Dit ønske (artist)<br>
<input type="text" name="artist" size="20"><br>
Dit ønske (titel)<br>
<input type="text" name="melodi" size="20"><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>
</form>
Denne her skal du oprette email adresser i en access database med jvf. 13/02-2003 00:22:01

Denne her passer kun til din
<form METHOD="post" ACTION="?mode=send" align="left">
<table border="0" width="100%">
<tr>
<td width="100%" align="center"><% if mode = "" then %>
<% mode = request("mode") %>
</td>
</tr>
<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("artist") ="" OR request.form("melodi") ="" OR request.form("besked") ="" then
response.write("Du mangler at indtaste en oplysning")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.dk"
JMail.Sender = "mark.mikkelsen@mail.dk"
JMail.Sendername = Request.Form("fra_navn")
JMail.Subject = Request.Form("artist") & " - " & Request.Form("melodi")
JMail.AddRecipient "aske_bode@hotmail.com"
JMail.Body = Request.Form("fra_navn") & " kunne godt tænke sig at høre:" & vbcrlf & vbcrlf & Request.Form("melodi") & " med " & Request.Form("artist") & vbcrlf & vbcrlf & "Kommentar" & vbcrlf & 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>Dit Navn:<br>
<input type="text" name="fra_navn" size="20"><br>
Dit ønske (artist)<br>
<input type="text" name="artist" size="20"><br>
Dit ønske (titel)<br>
<input type="text" name="melodi" size="20"><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>
</form>

Synes godt om

no_doubt Nybegynder

13. februar 2003 - 01:06 #5

Dropdown metoden kan du se på: http://1q.frip.dk/test.asp

Synes godt om

askeb Nybegynder

13. februar 2003 - 12:48 #6

ok....det var måske lige lovlig mange...jeg kan godt lide dit foreslag med accessdatabasen, men du har skrevet:
JMail.Sender = "mark.mikkelsen@mail.dk"
- det virker vel ikke, så hvad skal jeg skifte det ud med?

Synes godt om

no_doubt Nybegynder

13. februar 2003 - 12:50 #7

Det er bare den mail der kommer til at stå som afsender, hvis du vil have brugerens email skal du have validere mv.

Synes godt om

askeb Nybegynder

13. februar 2003 - 12:53 #8

ok, jeg prøver lige at teste den af...skal jeg ha en accessdatabase oppe for at teste den?, og i så fald med hvilke tabels og kolonner?

Synes godt om

no_doubt Nybegynder

13. februar 2003 - 12:59 #9

"Nu opretter du så en access database med de emails der skal kunne sendes til
under en tabel kaldet kontaktmail
Og to kolonner, der hedder kontaktmail (emailadressen) og kontaktnavn (det navn du ønsker skal fremgå af dropdown tabellen)"

Synes godt om

askeb Nybegynder

13. februar 2003 - 13:09 #10

hvad med primary key? er det vigtigt? (jeg er MEGET ny til ASP)

Synes godt om

no_doubt Nybegynder

13. februar 2003 - 13:10 #11

Når den spørger siger du bare ja, det er ikke så nødvendigt

Synes godt om

askeb Nybegynder

13. februar 2003 - 13:38 #12

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/radiotsn/lytter.asp, line 76

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Har du en anelse om hvad der er gået galt?

Synes godt om

askeb Nybegynder

13. februar 2003 - 13:41 #13

det skal lige siges at siden jeg satte formen op på hedder lytter.asp...

Synes godt om

no_doubt Nybegynder

14. februar 2003 - 00:25 #14

Ligemeget, Jmail er ikke installeret (tror jeg)
prøv først at installere dette
http://tech.dimac.net/Websites/dimac/Website/Products/w3JMail/buy
ellers er det dine servere, eller email adresser der ikke passer.

Synes godt om

askeb Nybegynder

14. februar 2003 - 15:58 #15

ok...nu er det installeret på min computer...men det er vel ikke mig der skal installere det? Jeg bruger et webhotel...

Synes godt om

no_doubt Nybegynder

14. februar 2003 - 20:34 #16

nej så skal du bare forsøge.
prøv at rette dine smpt servere

Synes godt om

askeb Nybegynder

17. februar 2003 - 16:15 #17

ok...jeg fik det aldrig til at virke men du får pointsene alligevel...

Synes godt om

no_doubt Nybegynder

20. februar 2003 - 01:32 #18

så må du lige skrive og finde ud af hvadfor komponenter dit hotel støtter

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS