ASP表单不能再发送 - 500 - 内部服务器错误

时间:2014-08-20 15:50:30

标签: html asp.net asp-classic internal-server-error

我工作的公司网站上的邮件表格(www.hendrixhuybregts.nl)不起作用。当您输入提交时,它将转到500 - 内部服务器错误页面。我现在知道Google-ing认为这是一个非常随机的错误消息并不能提供帮助。

相关网页的代码:

ASP mail

<%
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 :( 编辑 - 不包括来源,因为它看起来与上面类似)。

有人可以帮我解决这个问题吗?

1 个答案:

答案 0 :(得分:1)

不确定您提供的内容是否有人可以帮助您解决问题,但我们可以为您指明正确的方向。

首先,

  

Quote @yvette-d

     

&#34;我现在知道Google-ing认为这是一个非常随机的错误消息并不是真的有用。&#34;

完全是胡说八道。 HTTP 500 Internal Server Error是您最有用的资源,遗憾的是,默认情况下会远程关闭详细错误。

为了纠正这个问题,他们需要重新开启,在这个网站上有各种各样的答案来解决这个问题,而不是我反复思考他们已经回答的问题,我会指出你们中的一些。

  

quick search on SO

生成      

一旦确定了错误原因(到行号),可能会回来并更新问题,然后我们可能会进一步提供帮助。