Madness.nl | Scripts - Formulier

Hoofdmenu

•  Home
•  ASP Tips
•  Artikelen
•  ASP Lessen
•  Scripts
•  Opleidingen
•  Resources
•  Madness Forum
•  Nieuws
•  Adverteren?

Members

Inloggen
Registreer je nu!
Wachtwoord vergeten?

Laatste reacties

26-11 ASP en formulieren
09-06 ASP en databases
14-03 SQL de basis
28-02 Formulier > E-mail
07-08 Nieuwe versie Madne...

Madness.nl Forum

18:07 Golf Equipment Buyi..
18:06 Be one with yo..
14:53 Nike Air Max 90 goe..
14:49 uggs outlet nederla..
18:29 Umbrellas Are Absor..
18:25 Its bank time with ..
18:21 Its bank time with ..
18:17 Shades of Fun and P..
18:13 Discount Vouchers C..
18:08 Kid¡¯s Accouterment..

Formulier > E-mail

Terug naar scripts

Auteur: Ramon
Geplaatst op: 13-6-2002
Laatste update: 17-8-2003 18:19:29
Aantal keer bekeken: 1005959
Download script (zip file)

Formulier > E-mail

Omschrijving: Dit script bestaat uit twee pagina's. De eerste pagina bevat het formulier dat de gebruiker kan invullen. Na het invullen worden de gegevens naar het opgegeven e-mailadres verstuurd. Er zit verder geen controle of beveiliging op de velden.

Script:

Pagina: contact.htm

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

<body bgcolor="#FFFFFF" text="#000000">
<form name="contact" method="post" action="mail.asp">
  <h3>Contact</h3>
  <p>Om contact met ons op te nemen, kunt u het onderstaande formulier invullen.</p>
  <table width="400" border="0" cellspacing="0" cellpadding="2">
    <tr> 
      <td>Naam:</td>
      <td> 
        <input type="text" name="naam">
      </td>
    </tr>
    <tr> 
      <td>E-mail: </td>
      <td> 
        <input type="text" name="email">
      </td>
    </tr>
    <tr> 
      <td>Bericht</td>
      <td> 
        <textarea name="bericht" cols="30" rows="3"></textarea>
      </td>
    </tr>
  </table>
  <p>
    <input type="submit" name="Submit" value="Verstuur">
  </p>
  </form>
</body>
</html>

Pagina: mail.asp

<%
on error resume next
Set Mailer = Server.CreateObject("CDONTS.NewMail")

Onderwerp = "Reactie via de website"
VerstuurNaar = "uwemail@uwdomein.nl"

email = request("email")

if email = "" then
  email = "contact@website.nl"
end if

Mailer.From = email
Mailer.To = VerstuurNaar
Mailer.Subject = Onderwerp

for each whatever in request.form
  Bericht = Bericht & whatever & " = " & vbcrlf
  Bericht = Bericht & request.form(whatever) & vbcrlf & vbcrlf
next

Mailer.Body = Bericht
Mailer.Send
Set Mailer = nothing

' response.redirect "bedankt.htm" 

response.write "Bedankt voor het invullen van het formulier."
response.write "<a href='contact.htm'>Ga terug.</a>"
%>

Reacties

Reacties: Formulier > E-mail (Aantal reacties: 67 )
» Nieuwe reactie	View Mode : \| \|

Scripts

Overzicht
Script insturen

Zoeken

Zoekterm(en):