Re: Sende en epost til admin fra en form på nettsiden [
Besvar ]
Av: Øyvind A. IsaksenDet er smart å unngå å bruke "mailto" metoden, da dette krever at brukeren har en epost klient installert på sin maskin.
Metoden beskrevet under bruker SMTP tjenesten installert på webserveren til å behandle mailen og sende den til angitt mailbox.
Vi lager 2 asp-sider, en med mailformen og en som prosesserer selve mailen.
Siden med mailformen kan se slik ut:
<form name="frmEmail" method="post" action="Prosess_Email.asp">
<input type="text" name="txtNavn" size="35">
<input type="text" name="txtEpost" size="35">
<input type="text" name="txtTema" size="35">
<textarea name="txtMelding" rows="3" cols="30"></textarea>
<input type="reset" name="Clear" value="Blank ut">
<input type="submit" name="Submit" value="Send melding">
Siden som prosesserer kan se slik ut:
<%
Dim Navn, Email, Tema, Melding
Set Navn = Request.Form("txtNavn")
Set Email = Request.Form("txtEpost")
Set Tema = Request.Form("txtTema")
Set Melding = Request.Form("txtMelding")
if Navn = "" Then Response.Redirect("Prosess_Email_Fault.asp")
if Email = "" Then Response.Redirect("Prosess_Email_Fault.asp")
if Tema = "" Then Response.Redirect("Prosess_Email_Fault.asp")
if Melding = "" Then Response.Redirect("Prosess_Email_Fault.asp")
%>
<%
set cdontsmailer = server.CreateObject("CDONTS.newmail")
cdontsmailer.from = Request("txtEpost")
cdontsmailer.to = "din@email.no"
cdontsmailer.subject = Request("txtTema")
cdontsmailer.body = Request("txtNavn") & " har sendt følgende melding fra min webside:"&_
vbcrlf & vbcrlf & Request("txtMelding")
cdontsmailer.send
set cdontsmailer = nothing
%>
Øverste del av koden inneholder en validerer som sender brukeren til en side (Prosess_Email_Fault.asp) hvis et felt ikke er fylt ut!