The mail forms on the site of a company (www.hendrixhuybregts.nl) I work for are not working. When you enter the submit it goes to the 500 - internal server error page. I know by now from Google-ing that it is quite a random error message that doesn't really help.
The code of the pages concerned:
<%
response.write ""
controle_veld=0
check_invoer
if controle_veld=1 then
  response.write ""
else
  MyBody = "<HTML>" & vbcrlf & _
    "<BODY>" & vbcrlf & _
    "<TABLE>" & vbcrlf & _    
    "<TR><TD>Gegevens: </TD><TD>" & vbcrlf & _ 
    "<TR><TD>Naam: </TD><TD>" & Request.form("naam") & "</TD></TR>" & vbcrlf & _ 
    "<TR><TD>Telefoon: </TD><TD>" & Request.form("telefoon") & "</TD></TR>" & vbcrlf & _ 
    "<TR><TD>E-mail: </TD><TD>" & Request.form("email") & "</TD></TR>" & vbcrlf & _ 
    "<TR><TD>Vraag / Opmerking: </TD><TD>" & Request.form("opmerking") & "</TD></TR>" & vbcrlf & vbcrlf & _ 
    "</body>"& _ 
    "</html>" 
  Const CdoBodyFormatHTML = 0
  Const CdoBodyFormatText = 1
  Const CdoMailFormatMime = 0
  Const CdoMailFormatText = 1
  Set myMail = CreateObject("CDO.Message")
  myMail.From     = "info@dh-p.nl"
  myMail.To       = "info@dh-p.nl"
  myMail.Subject  = "Contactformulier website"
  myMail.HTMLBody = MyBody
  myMail.Send
  set myMail = nothing
  response.redirect "bedankt.html"
end if
%>
<%
sub check_invoer
  response.write "<br>"
  if request.form("naam")="" then
    response.write "U heeft het veld <B>Naam</B> niet ingevuld.<br>"
    controle_veld=1
  end if
  if request.form("telefoon")="" then
    response.write "U heeft het veld <B>Telefoon</B> niet ingevuld.<br>"
    controle_veld=1
  end if
  if request.form("email")="" then
    response.write "U heeft het veld <B>E-mail</B> niet ingevuld.<br>"
    controle_veld=1
  end if
end sub
%>
ASP mail 2: (Editor - Not included source as it looks similar to the above).
Can someone help me fix this?
 
     
    