Hallo,
Ben al een tijdje aan het zoeken, naar de code van een asp contact formulier.
Dit is de form
de code
->
Waarom werkt dit niet?
Mvg
Ben al een tijdje aan het zoeken, naar de code van een asp contact formulier.
Dit is de form
Code:
<form method="post" action="">
<table>
<tr>
<td width="150">
Naam:
</td>
<td>
<input type="text" name="naam" size="30" />
</td>
</tr>
<tr>
<td>
Je e-mailadres:
</td>
<td>
<input type="text" name="emailfrom" size="30" />
</td>
</tr>
<tr>
<td valign="top">
Je bericht:
</td>
<td>
<textarea name="body" rows="8" cols="40"></textarea>
</td>
</tr>
<tr>
<td><asp:Button runat="server" ID="btnverstuur" Text="verstuur" />
</td>
</tr>
</table>
</form>
de code
->
Code:
Protected Sub btnverstuur_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnverstuur.Click
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Naam
' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom"))
EmailTo = "test@hotmail.com"
Subject = "website...- contact"
Naam = Trim(Request.Form("Naam"))
' validation
Dim validationOK
validationOK = True
If (Trim(EmailFrom) = "") Then validationOK = False
If (validationOK = False) Then Response.Redirect("error.htm?" & EmailFrom)
' prepare email body text
Dim Body
Body = Body & "Naam: " & Naam & vbCrLf
' send email
Dim mail
mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send()
' redirect to success page
Response.Redirect("ok.htm?" & EmailFrom)
End Sub
Waarom werkt dit niet?
Mvg
Laatst bewerkt: