ASPmail

<%
if Request.Querystring = "1" Then
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "Afsenders navn"
  Mailer.FromAddress= "Afsenders email"
  Mailer.RemoteHost = "host"
  Mailer.AddRecipient "Modtager navn", "modtager@email"
  Mailer.Subject    = "emne
  Mailer.BodyText  = request.form("name") & VBcrlf & request.form("email")
  if Mailer.SendMail then
    Response.Write "Mail sent..."
  else
    Response.Write "Mail send failure. Error was " & Mailer.Response
  end if
end if

%>

<html>
<body>
<form action="post" action="tilmeld.asp?1">

<input type=text id=name><br>
<input type=text id=email><br>
<input type="submit">
</form>
</body>
</html>

sådan....fint tak for det....

Men lige lidt mere......Kan jeg ikke få den til at poppe et lille vindue op, hvori der står, at mailen nu er sendt istedet for at den skriver "mail sendt..." lige over felterne???

DTM

<html>
<body>
<form id=frm>
<input type=text id=name><br>
<input type=text id=email><br>
<input type="button" id="submit" value="Send">
</form>
<script language=Jscript>
function launch(){
    void(window.open('tilmeld.asp?name=' + document.getElementById("name").value + '&email=' + document.getElementById("email").value,null, 'menubar=0, resizable=0, scrollbars=0,status=0,toolbar=0,height=200,width=200'))
}
document.getElementById("submit").onclick = launch;
</script>
</body>
</html>


-- tilmeld.asp start --

<%
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "Afsenders navn"
  Mailer.FromAddress= "runech@mail.dk"
  Mailer.RemoteHost = "mail.ishoejby.dk"
  Mailer.AddRecipient "Modtager navn", "runech@mail.dk"
  Mailer.Subject    = "emne"
  Mailer.BodyText  = request.querystring("name") & VBcrlf & request.querystring("email")
  if Mailer.SendMail then%>
<html>
<body>
Mailen blev sendt!
<script language=JScript>
if (window.opener.document.getElementById("name"))
  window.opener.document.getElementById("name").value = "";
if (window.opener.document.getElementById("email"))
  window.opener.document.getElementById("email").value = "";

</script>
</body>
</head>
<%
  else
    Response.Write "Mail send failure. Error was " & Mailer.Response
  end if
%>

<html>
<body>
<form id=frm>
<input type=text id=name><br>
<input type=text id=email><br>
<input type="button" id="submit" value="Send">
</form>
<script language=Jscript>
function launch(){
    void(window.open('tilmeld.asp?name=' + document.getElementById("name").value + '&email=' + document.getElementById("email").value,null, 'menubar=0, resizable=0, scrollbars=0,status=0,toolbar=0,height=200,width=200'))
}
document.getElementById("submit").onclick = launch;
</script>
</body>
</html>


-- tilmeld.asp start --

<%
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "Afsenders navn"
  Mailer.FromAddress= "Afsenders email"
  Mailer.RemoteHost = "host"
  Mailer.AddRecipient "Modtager navn", "modtagers email"
  Mailer.Subject    = "emne"
  Mailer.BodyText  = request.querystring("name") & VBcrlf & request.querystring("email")
  if Mailer.SendMail then%>
<html>
<body>
Mailen blev sendt!
<script language=JScript>
if (window.opener.document.getElementById("name"))
  window.opener.document.getElementById("name").value = "";
if (window.opener.document.getElementById("email"))
  window.opener.document.getElementById("email").value = "";

</script>
</body>
</head>
<%
  else
    Response.Write "Mail send failure. Error was " & Mailer.Response
  end if
%>

Tak for det, nu virker det bare som det skal.... :-)