Een email formulier

Auteur: DeafBoy - 28 maart 2005 - 13:46 - Gekeurd door: Maarten - Hits: 13992 - Aantal punten: 3.00 (1 stem)

Een email formulier verzenden met ASP.

Om gebruik te kunnen maken van een mailform moet er wel mailobjects zijn geinstalleerd op de server waar het formulier komt te draaien. Mailobjects zijn in dit geval ServerObjects.

Het email formulier bestaat uit twee bestanden.
-++index.asp++-
-++sendmail.asp++-

Code:

-++index.asp++-

php code - Bekijk de code zonder highlighting - Klap code in

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<form method="post" action="sendmail.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="170">Naam:</td>
    <td> 
      <input type="text" name="Naam">
    </td>
  </tr>
  <tr> 
    <td>Tel.nummer:</td>
    <td> 
      <input type="text" name="Telnummer" size="42">
    </td>
  </tr>
  <tr> 
    <td>E-mail:</td>
    <td> 
      <input type="text" name="email" size="42">
    </td>
  </tr>
  <tr> 
    <td valign="top"> Opmerking:</td>
    <td> 
      <textarea name="Opmerking" rows="5" cols="30"></textarea>
    </td>
  </tr>
  <tr> 
    <td> </td>
    <td> 
      <input type="submit" name="Verzend" value="Verzend">
      <input type="reset" name="Reset" value="Reset">
    </td>
  </tr>
</table>
</form>
</body>
</html>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body bgcolor="#FFFFFF" text="#000000">
<form method="post" action="sendmail.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="170">Naam:</td>
    <td> 
      <input type="text" name="Naam">
    </td>
  </tr>
  <tr> 
    <td>Tel.nummer:</td>
    <td> 
      <input type="text" name="Telnummer" size="42">
    </td>
  </tr>
  <tr> 
    <td>E-mail:</td>
    <td> 
      <input type="text" name="email" size="42">
    </td>
  </tr>
  <tr> 
    <td valign="top"> Opmerking:</td>
    <td> 
      <textarea name="Opmerking" rows="5" cols="30"></textarea>
    </td>
  </tr>
  <tr> 
    <td> </td>
    <td> 
      <input type="submit" name="Verzend" value="Verzend">
      <input type="reset" name="Reset" value="Reset">
    </td>
  </tr>
</table>
</form>
</body>
</html>

-++sendmail.asp++-

php code - Bekijk de code zonder highlighting - Klap code in

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
'Hier geef je aan dat het mailcomponent ASPMail is. Wanneer je een ander component gebruikt verander je alleen het onderstaande regel
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

'Hier onder moet u een geldig SMTP adres invullen..
Mailer.RemoteHost  = "smtp.is.nl"

Mailer.FromName   =  Request.Form("Naam")
Mailer.FromAddress=  Request.Form("email")
Mailer.AddRecipient  "IS HELPDESK", "helpdesk@is.nl"
'Hieronder kun je nog eventueel een CC sturen.. Wilt u dat, dan moet u de quotum op de eerst volgende regel weghalen.
'Mailer.AddCC  	     "John Doe", "johndoe@nothing.com"
Mailer.Subject    =  "Een e-mail formulier verzenden"
Mailer.BodyText   =  "Tel: " & Request.Form("Telnummer") & chr(10) & "Opmerking: " & Request.Form("opmerking")

if not Mailer.SendMail then
  Response.Write "<a href='javascript:window.history.back();'>terug</a><br><br>Er is een fout opgetreden...<br><br>"
  Response.Write Mailer.Response
else
  Response.Write "Uw bericht is succesvol verzonden."
end if
%>
</body>
</html>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body bgcolor="#FFFFFF" text="#000000">
<%
'Hier geef je aan dat het mailcomponent ASPMail is. Wanneer je een ander component gebruikt verander je alleen het onderstaande regel
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
 
'Hier onder moet u een geldig SMTP adres invullen..
Mailer.RemoteHost  = "smtp.is.nl"
 
Mailer.FromName   =  Request.Form("Naam")
Mailer.FromAddress=  Request.Form("email")
Mailer.AddRecipient  "IS HELPDESK", "helpdesk@is.nl"
'Hieronder kun je nog eventueel een CC sturen.. Wilt u dat, dan moet u de quotum op de eerst volgende regel weghalen.
'Mailer.AddCC  	     "John Doe", "johndoe@nothing.com"
Mailer.Subject    =  "Een e-mail formulier verzenden"
Mailer.BodyText   =  "Tel: " & Request.Form("Telnummer") & chr(10) & "Opmerking: " & Request.Form("opmerking")
 
if not Mailer.SendMail then
  Response.Write "<a href='javascript:window.history.back();'>terug</a><br><br>Er is een fout opgetreden...<br><br>"
  Response.Write Mailer.Response
else
  Response.Write "Uw bericht is succesvol verzonden."
end if
%>
</body>
</html>

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Lees de reacties (3)