kontaktformular

<%
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName  = "bacardil"
Mailer.FromAddress= "support@web-sale.dk"
Mailer.RemoteHost = "mail.domain.dk"
Mailer.AddRecipient "bacardil", "info@web-sale.dk"
Mailer.Subject    = "Fra mig til mig"
Mailer.BodyText  = "Dette er en test!"
Mailer.CharSet = 2

if Mailer.SendMail then
  Response.Write "Mailen er afsendt korrekt!"
else
  Response.Write "Følgende fejl opstod: " & Mailer.Response
end if

Set Mailer = Nothing
%>

//Det eneste du skal rette er din remote host.

<%
Set JMail = Server.CreateObject("JMAIL.SPEEDMAILER")
JMail.SendMail "support@web-sale.dk","support@bacardil.dk","emne","besked","mailserver.domain.tld"
Response.Write "Mailen ser sendt"
%>

Eneste problem med JMail Speedmailer er at du ikke har err response.

Men hva, mon ikke det virker ;)

Hmm nu siger du jo egentligt kontaktformular og ikke et mailscript.
Hang on..

Skulle mene den er der...puuha det er sent :)

<%
Option Explicit
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

    Dim strMail, strSubject, strBody, JMail, strMsg

    strMail = Request("mail") & ""
    strSubject = Request("subject") & ""
    strBody = Request("body") & ""
   
    If Not (strMail = "" Or strSubject = "" Or strBody = "") Then
        Set JMail = Server.CreateObject("JMAIL.SPEEDMAILER")
        JMail.SendMail "til_email@domain.tld",strMail,strSubject,strBody,"mail_server.domain.tld"
        strMsg = "Tak for din email.<br>"
    Else
        strMsg = "Alle felter skal udfyldes<br>"
    End If

End If
%>       
<html>
    <head>
        <title>KontaktFormular</title>
    </head>
    <body>
   
    <%=strMsg%>
    <form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
   
        <table>
            <tr>
                <td>Din e-mail adresse : </td>
                <td><input type="text" name="mail" value="<%=strMail%>"></td>
            </tr>
            <tr>
                <td>Emne : </td>
                <td><input type="text" name="subject" value="<%=strSubject%>"></td>
            </tr>
            <tr>
                <td>Besked : </td>
                <td><textarea name="body"><%=strBody%></textarea></td>
            </tr>
            <tr>
                <td></td>
                <td><input type="submit" value="Send"></td>
            </tr>
        </table>
    </form>
    </body>
</html>