Asp contact formulier

Status
Niet open voor verdere reacties.

Skafaahh

Nieuwe gebruiker
Lid geworden
17 sep 2011
Berichten
3
Hallo,

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:
Nee, dit is niet echt hetgeen naar waar ik op zoek ben.

De bedoeling is dat er een mail wordt gestuurd als men het formulier invult. Ik heb ondertussen al een generator gevonden, die de code genereert, en het werkt nog altijd niet.

Heeft iemand een werkend asp.net formulier in vb?


Mvg
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan