Archief - [PROG][ASP] The requested method POST is not allowed for the URL /contactemail.asp

<form action="contactemail.asp" enctype="application/x-www-form-urlencoded" method="post" name="informatie_aanvraag">
        <div id="formulier">                            
        <label class="groot" for="naam">Naam: </label>
        <input class="invulveld_groot" type="text" name="naam" id="naam" />
        <br />
        <label class="groot" for="adres">Straat + huisnr: </label>
        <input class="invulveld_groot" type="text" name="adres" id="adres" />
        <br />
        <label class="groot" for="postcode">Postcode: </label>
        <input class="invulveld_groot" type="text" name="postcode" id="postcode" />
        <br />
        <label class="groot" for="stad">Stad: </label>
        <input class="invulveld_groot" type="text" name="stad" id="stad" />
        <br />
        <label class="groot" for="emailadres">E-mail: </label>
        <input class="invulveld_groot" type="text" name="emailadres" id="emailadres" />
        <br />
        <label class="groot" for="tel">Telefoonnummer: </label>
        <input class="invulveld_groot" type="text" name="tel" id="tel" />
        <br />
        <label class="groot" for="periode">Op welke periode ziet u een belegging te doen: </label>
        <select class="invulveld_groot" name="periode" id="periode">
                  <option></option>
                  <option id="periode_keuze1">Binnen de 3 maand</option>
                  <option id="periode_keuze2">Binnen de 6 maand</option>
                  <option id="periode_keuze3">Binnen de 12 maand</option>
        </select>
        <br /><br />
        <label class="groot">Hebt u reeds beleggingseigendommen: </label>
        <label for="eigendom_ja">Ja</label>
        <input type="radio" name="eigendom" id="eigendom_ja" />
        <label for="eigendom_nee">Nee</label>
        <input type="radio" name="eigendom" id="eigendom_nee" />
        <br />
        <label class="groot">Hebt u reeds ervaring met vastgoed beleggingen: </label>
        <label for="ervaring_ja">Ja</label>
        <input type="radio" name="ervaring" id="ervaring_ja" />
        <label for="ervaring_nee">Nee</label>
        <input type="radio" name="ervaring" id="ervaring_nee" />
        <br /><br />
        <input class="button_verzenden" type="submit" value="" /> <input class="button_wissen" type="reset" value="" />
        </div>
</form>

<%

' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject

Dim FullName

Dim Address
Dim PostCode
Dim City

Dim Telephone

Dim Periode
Dim Investments
Dim Experience

' get posted data into variables
EmailFrom = Trim(Request.Form("emailadres")) 
EmailTo = "[email protected]"
Subject = "Aanvraag inlichtingen: Suitehotel - Ocean"

FullName = Trim(Request.Form("naam")) 

Address = Trim(Request.Form("adres")) 
PostCode = Trim(Request.Form("postcode"))
City = Trim(Request.Form("stad"))

Telephone = Trim(Request.Form("tel")) 

Periode = Trim(Request.Form("periode"))
Investments = Trim(Request.Form("eigendom"))
Experience = Trim(Request.Form("ervaring"))

' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false

If (Trim(FullName)="") Then validationOK=false

If (Trim(Address)="") Then validationOK=false
If (Trim(PostCode)="") Then validationOK=false
If (Trim(City)="") Then validationOK=false

If (Trim(Telephone)="") Then validationOK=false

If (validationOK=false) Then Response.Redirect("error.html?" & EmailFrom)

' prepare email body text
Dim Body
Body = Body & "Naam: " & FullName & VbCrLf
Body = Body & "Adres: " & Address & VbCrLf
Body = Body & "Stad: " & PostCode & Address & VbCrLf
Body = Body & "Telefoonnummer: " & Telephone & VbCrLf
Body = Body & "Op welke periode ziet u een belegging te doen: " & Periode & VbCrLf
Body = Body & "Hebt u reeds beleggingseigendommen: " & Investments & VbCrLf
Body = Body & "Hebt u reeds ervaring met vastgoed beleggingen: " & Experience & VbCrLf

' send email 
Dim mail
Set 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)
%>