login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:

Scripts > ASP > Contact formulieren > Een email formulier

Een email formulier

Auteur: DeafBoy - 28 maart 2005 - 13:46 - Gekeurd door: Maarten - Hits: 13918 - 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++-

  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. </head>
  5.  
  6. <body bgcolor="#FFFFFF" text="#000000">
  7. <form method="post" action="sendmail.asp">
  8. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  9. <tr>
  10. <td width="170">Naam:</td>
  11. <td>
  12. <input type="text" name="Naam">
  13. </td>
  14. </tr>
  15. <tr>
  16. <td>Tel.nummer:</td>
  17. <td>
  18. <input type="text" name="Telnummer" size="42">
  19. </td>
  20. </tr>
  21. <tr>
  22. <td>E-mail:</td>
  23. <td>
  24. <input type="text" name="email" size="42">
  25. </td>
  26. </tr>
  27. <tr>
  28. <td valign="top"> Opmerking:</td>
  29. <td>
  30. <textarea name="Opmerking" rows="5" cols="30"></textarea>
  31. </td>
  32. </tr>
  33. <tr>
  34. <td> </td>
  35. <td>
  36. <input type="submit" name="Verzend" value="Verzend">
  37. <input type="reset" name="Reset" value="Reset">
  38. </td>
  39. </tr>
  40. </table>
  41. </form>
  42. </body>
  43. </html>


-++sendmail.asp++-

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

 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Lees de reacties (3)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.034s