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?