Jmail

Her er et eks godt nok kun med to form felter...:

<html>
<head></head>
<body>

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "DIN.MAILSERVER.dk"
  JMail.Sender        = "MinMail@E-Mail.dk"
  JMail.SenderName    = "MinSide"
  JMail.Subject      = "Mail fra kontakt siden."
  JMail.AddRecipient  "MinMail@E-Mail.dk"
 
  JMail.Body = "Afsender: " & Request.Form("afsender") & vbCrLf
  JMail.Body = JMail.Body & "Besked: " & Request.Form("besked")
  JMail.Execute
 
  Set JMail = Nothing
%>
<center>Tak for din kommentar.</center>

<% else %>

<form method="POST" action="<%=Request.servervariables("SCRIPT_NAME")%>" id=form1 name=form1>

<table align="center">
<tr><td>
  <input type="text" name="afsender">
</td></tr>
<tr><td>
  <textarea rows="3" name="besked" cols="40"></textarea>
</td></tr>
<tr><td>
  <input type="submit" value="Send" name="Send"></td></tr>
</table>
</form>

<% end if %>
</body>
</html>

Du skal havde denne linie rettet: 
  JMail.ServerAddress = "DIN.MAILSERVER.dk"

Til at passe med din mail server som du skal sende mail igennem, du må spørge din udbyder www.frip.dk hvis du ikke kender den.

Her er et eksempel med 4...
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    felt1 = Trim(Request.Form("felt1"))
    felt2 = Trim(Request.Form("felt2"))
    felt3 = Trim(Request.Form("felt3"))
    felt4 = Trim(Request.Form("felt4"))

    Set JMail          = Server.CreateObject("JMail.SMTPMail")
    JMail.ContentType = "text/html"
    JMail.ISOEncodeHeaders = False
    JMail.ServerAddress = "Indtast din server adr. her"
    JMail.Sender        = "MinMail@E-Mail.dk"
    Jmail.SenderName = "MinMail@E-Mail.dk"
    JMail.Subject      = "Emne"
   
    JMail.Priority      = 1
    besked = felt1 + felt2 + felt3 + felt4 
    JMail.Body = besked
    JMail.Execute

    response.write "<font color=cc0000>Din mail er sendt</font><br/><br/>"
end if
%>

<form action="kontakt.asp"  method="post">
<textarea name="besked1"></textarea>
<input type="text" name="felt1"> 
<input type="text" name="felt2">         
<input type="text" name="felt3">         
<input type="text" name="felt4">         
<input type="submit" value="send"><br>
</form>

Eagleeye: Jeg var 1:16 for langsom ...  ;-)

tester lige om jeg kan få det til at virke :)

Hvad gør: vbCrLf
(JMail.Body = "Afsender: " & Request.Form("afsender") & vbCrLf
JMail.Body = JMail.Body & "Besked: " & Request.Form("besked")
JMail.Execute)

vbCrLf  svare til enter tasten.. Det giver en ny linie.

Takker, det lykkedes mig enda at få den tilpasset :D

I svarede jo begge to, håber det er iorden at jeg deler pointene

Takker og det er op til Eagleeye... han var hurtigst ;-)