Skriv E-mail adresse i formularfelt og send formdata til adressen

<form method="post" action="din_side.asp">
<b>E-mail:</b> <input type="text" name="email"><br>
<b>Info 1:</b> <input type="text" name="info1"><br>
<b>Info 2:</b> <input type="text" name="info2"><br>
<input type="submit">
</form>

<%
If Request.ServerVariables("Request_Method") = "POST" Then
  Set AspMail = Server.CreateObject("SMTPsvg.Mailer")
  AspMail.FromName = "Kurt"
  AspMail.FromAddress = "kurt@kurt.dk"
  AspMail.AddRecipient "Bjarne", Request.Form("email")
  AspMail.Subject = "Overskrift"
  AspMail.BodyText = "Besked"
  AspMail.RemoteHost = "mail.domaene.dk"

  If AspMail.SendMail Then
      Response.Write "Din mail er sendt!"
  Else
      Response.Write "Der opstod følgende fejl: " & AspMail.Response
  End If

  Set AspMail = Nothing
End If
%>

Måske har du ikke adgang til ASPmail, men så kan du f.eks. bruge JMail eller CDonts i stedet.
http://www.opfinderen.dk/sites/?id=14

Hej Netro
Tak for dit svar
Jeg har brugt følgende løsning med CDONTS:

Set objNewMail = CreateObject("CDONTS.NewMail")
  objNewMail.From = Request.Form("email")
  objNewMail.To = Request.Form("email")
  objNewMail.Subject = "Tilmelding"
  objNewMail.Body = body
  objNewMail.Send()

Jeg har lige et tillægsspørgsmål:
Hvad er syntaksen for at skive objNewMail.To = Request.Form("email"), hvor email kun indeholder den første del af en E-mail adresse f.eks. jj som skal sættes sammen med det resten af E-mail-adressen.
A la: objNewMail.To = Request.Form("email")+ @mail.tele.dk?

Hilsen
D8tv

CDonts fungerer også glimrende.

objNewMail.To = Request.Form("email") & "@mail.tele.dk"

Hej Netro
Tak for dit hurtige svar - det virker fremragende

Hilsen
D8tv