Formularer

Hvilket mailprogram har du til rådighed? JMail, formmail eller noget andet?

//Claus

Min server understøtter jmail.

Men det kunne være bedst hvis man kunne fixe det uden alle de der jmail osv..

//jr40

Prøv evt. bbs\'s svar i dettet spg:

http://www.eksperten.dk/spm/87769

//Claus

er det her ikke nok :)
<body>
<form action=\"/cgi-bin/formmail/FormMail.pl\" method=\"POST\" name=\"navn\">
            <input type=\"hidden\" name=\"recipient\" value=\"din@mail.dk\">
            <input type=\"hidden\" name=\"redirect\" value=\"send brugeren videre.htm\">
            <input type=\"hidden\" name=\"subject\" value=\"overskrift\">
Navn<br>
<input type=\"text\" name=\"realname\" size=\"30\"><br>

Efternavn<br>
<input type=\"text\" name=\"Adresse\" size=\"30\"><br>
e-mail<br>
<input type=\"text\" name=\"Telefon\" size=\"30\"><br>
icq<br>
<input type=\"text\" name=\"Alder\" size=\"30\"><br>
hjemmeside<br>
<input type=\"text\" name=\"email\" size=\"30\"><br>
besked<br>
<textarea name=\"Motivering\" rows=\"10\" cols=\"25\"></textarea><br>
<input type=\"submit\" name=\"submitbutton\" value=\"Send !\">
&nbsp;&nbsp;&nbsp;&nbsp;
<input type=\"reset\" name=\"reset\" value=\" Slet ! \">
</form>
</body>

marz/ Den dur ik så godt, da den spørger efter: /FormMail.pl

>jr40<

Hvadfor dur det jer ik:


              <td width=\"100%\" height=\"254\" bordercolor=\"#FF0000\">
                <p><
                <form action=\"prøve.asp\" method=post>
                  <table>
                    <tr>
                      <td>Navn</td>
                      <td>
                        <input type=text name=\"Navn\"  >
                      </td>
                    </tr>
                    <tr>
                      <td>E-mail</td>
                      <td>
                        <input type=text name=\"E-mail\" >
                      </td>
                    </tr>
                    <tr>
                      <td>Overskrift</td>
                      <td>
                        <input type=text name=\"Subject\" >
                      </td>
                    </tr>
                    <tr>
                      <td>Besked</td>
                      <td>
                        <textarea rows=\"2\" name=\"besked\" cols=\"28\"></textarea>
                      </td>
                    </tr>
                    <tr>
                      <td></td>
                      <td>
                        <input type=submit value=\"Submit\" name=\"submit\">
                      </td>
                    </tr>
                  </table>
                </form>
                >
                <%
    Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
    Mailer.RemoteHost    = \"mail.tele.dk\"
    Mailer.FromName      = request.form(\"Navn\")
    Mailer.FromAddress  = request.form(\"E-mail\")
    Mailer.AddRecipient \"Dit navn\", \"andre@privat.tele.dk\"
    Mailer.Subject      = request.form(\"Subject\")
    Mailer.BodyText      = request.form(\"besked\")
    Mailer.SendMail
    Set Mailer = Nothing
%>

Kunne forestille mig det er fordi du bruger et ø i dit filnavn (prøve.asp)!!!

Hvilken fejl får du???

Ligger din formular og dit mail-script i samme eller to forskellige filer???

Den skriver der er fejl i ligne 135.

Okay - og hvordan ser linje 135 ud????

Og ligger din formular og dit mail-script i samme fil???

Her er siden:
http://aklausen.dyndns.dk:9000/andre/start.asp

Ja Formular & Mail-Script ligger i samme asp fil.

//Jr40

Linket virker ikke - og du svarede ikke på hvad der står i linie 135!!!!

Det er lidt væsentligt hvis jeg skal kunne hjælpe dig!

Der står det her:
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")

Og hvordan lyder fejlen???

Prøv at kopiere fejlmeddelelsen og post den her! ;0)

Har på fornemmelsen at det er et server-komponent der mangler på serveren!

Fejlen:
----
Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
/andre/start.asp, line 136
-----

Så vidt jeg kan se forsøger du dig med ASP-Mail - prøv at kontakte teledanmark for at undersøge om deres servere understøtter det eller om de evt. understøtter JMail - hvis de understøtter JMail har jeg et script der fungerer!

Hmmm prøv bare af sende jmail scriptet til mig.

Skal du have min mail eller..

Kan bare poste det her:

<%
Dim subj, tekst, email, Connect, rs, hilsen, strSlut, strNoRes

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"jupiter\"

subj = Request.Form(\"subject\")
tekst = replace(Request.Form(\"body\"), VbCrLf, VbCrLf)
email = Request.Form(\"receiver\")

If email = \"Danmark\" Then
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    rs.Open \"SELECT * FROM Jupiter_club_dk\", Connect, 1, 3
    hilsen = \"Kære\"
    strSlut = \"Klik ind på http://www.jupiter.scanbox.com for at se de nyeste covers til de nyeste Jupiter titler.\"
    strNoRes = \"-Svar venligst ikke på denne mail-\"
End if

If email = \"Norge\" Then
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    rs.open \"SELECT * FROM Jupiter_club_no\", Connect, 1, 3
    hilsen = \"\"
    strSlut = \"Klik ind på http://www.jupiter.scanbox.com for at se de nyeste covers til de nyeste Jupiter titler.\"
    strNoRes = \"-Svar venligst ikke på denne mail-\"
End if

If email = \"Sverige\" Then
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    rs.open \"SELECT * FROM Jupiter_club_se\", Connect, 1, 3
    hilsen = \"\"
    strSlut = \"Klik ind på http://www.jupiter.scanbox.com for at se de nyeste covers til de nyeste Jupiter titler.\"
    strNoRes = \"-Svar venligst ikke på denne mail-\"
End if

If email = \"Finland\" Then
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    rs.open \"SELECT * FROM Jupiter_club_sf\", Connect, 1, 3
    hilsen = \"Dear\"
    strSlut = \"Click in at http://www.jupiter.scanbox.com to see the latest covers for the latest Jupiter titles.\"
    strNoRes = \"-Please do not reply on this mail-\"
End if

If email = \"England\" Then
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    rs.open \"SELECT * FROM Jupiter_club_uk\", Connect, 1, 3
    hilsen = \"Dear\"
    strSlut = \"Click in at http://www.jupiter.scanbox.com to see the latest covers for the latest Jupiter titles.\"
    strNoRes = \"-Please do not reply on this mail-\"
End if

do while not rs.EOF

Set msg = Server.CreateObject(\"JMail.Message\")
msg.Logging = True
msg.Silent = True

msg.From = \"Jupiter@Scanbox.Com\"
msg.FromName = \"Jupiter Webmaster\"
msg.AddRecipient rs(\"Mail\")
msg.Subject = subj
msg.Body = tekst
msg.Body = hilsen & \" \" & rs(\"Navn\") & VbCrLf & VbCrLf & msg.Body & VbCrLF & VbCrLf & VbCrLf &\"----------------------------------------\" & VbCrLf & strSlut & VbCrLf & VbCrLf & strNoRes

If not msg.Send(\"10.1.1.42\") Then
    Response.Write \"<pre>\" & msg.log & \"</pre>\"
Else
    Response.Write \"Beskeden er sendt!\"
End if

rs.MoveNext
loop

Set JMail = Nothing

Response.Redirect(\"news_letter_ok.asp\")
%>

Dette er hvad jeg har brugt - og det fungerer fint.
Du skal nok lige rette det til.

Oki tjekker lige om jeg kan få det til af du, ellers skriver jeg lige tilbage.

Finno