Bestilling fra webformular til email der er til at læse

Simpelt eks som har to formfelter et hvor man kan skrive sig som afsend og en besked.


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

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

  Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "stmp.DINSERVER.dk"
  JMail.Sender        = "dinemail@xxxx.dk"
  JMail.SenderName    = "Et godt navn her"
  JMail.Subject      = "Mail fra kontakt siden."
'Modtager
  JMail.AddRecipient  "dinmail@xxxxxx.dk"
  JMail.Body = "Hej " & vbCrLf & vbCrLf & "Du har modtger en ny besked:" & vbCrLf & vbCrLf 
  JMail.Body = JMail.Body & "Afsender: " & Request.Form("afsender") & vbCrLf
  JMail.Body = JMail.Body & "Besked: " & Request.Form("besked") & vbCrLf & vbCrLf
  JMail.Body = JMail.Body & "Hilsen Din hjemmeside"

'Send mailen
  JMail.Execute
 
  Set JMail = Nothing
%>
<center>Tak for din kommentar.</center>

<% else %>

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

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

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

Det var bare dejligt, mange tak