Bestillingsform med "Intern HTTP 500-serverfejl"

Hej eksperter,

Jeg er i gang med at lave en skrabet bestillingsformular, men når jeg klikker på knappen send, får jeg af vide at siden ikke kan vises (Der opstod en intern HTTP 500-serverfejl).

Er der nogen der kan fortælle mig hvorfor?

<%
  ' Henter bestillingsformularen ind
  If Request.QueryString("send") = "" Then
      strOrdre_Antal1 = "<input type=""text"" name=""antal1"" style=""width: 30px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""1"">"
      strOrdre_Antal2 = "<input type=""text"" name=""antal2"" style=""width: 30px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""2"">"
      strOrdre_Antal3 = "<input type=""text"" name=""antal3"" style=""width: 30px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""3"">"
      strOrdre_Antal4 = "<input type=""text"" name=""antal4"" style=""width: 30px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""4"">"
      strOrdre_Antal5 = "<input type=""text"" name=""antal5"" style=""width: 30px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""5"">"
      strOrdre_Betaling1 = "<input type=""radio"" name=""betaling"" value=""1"" style=""background-color: rgb(101,122,111)""> Pr. efterkrav (<a href=""vejledning.asp?id=efterkrav"" class=""link1"">Se vejledning</a>)"
      strOrdre_Betaling2 = "<input type=""radio"" name=""betaling"" value=""2"" style=""background-color: rgb(101,122,111)""> Via bankoverførsel (<a href=""vejledning.asp?id=bank"" class=""link1"">Se vejledning</a>)"
      strOrdre_Fornavn = "<input type=""text"" name=""fornavn"" style=""width: 200px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""6"">"
      strOrdre_Efternavn = "<input type=""text"" name=""efternavn"" style=""width: 200px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""7"">"
      strOrdre_Adresse = "<input type=""text"" name=""adresse"" style=""width: 200px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""8"">"
      strOrdre_Postnr = "<input type=""text"" name=""postnr"" style=""width: 50px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""9"">"
      strOrdre_Bynavn = "<input type=""text"" name=""bynavn"" style=""width: 147px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""10"">"
      strOrdre_Telefon = "<input type=""text"" name=""telefon"" style=""width: 200px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""11"">"
      strOrdre_Email = "<input type=""text"" name=""epostadresse"" style=""width: 200px; height: 18px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""12"">"
      strOrdre_Besked = "<textarea name=""besked"" style=""width: 300px; height: 150px; font-family: Arial, Trebuchet MS; font-size: 8pt; color: rgb(0,0,0); background-color: rgb(170,184,169); border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(192,192,192); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(192,192,192)"" tabindex=""13""></textarea>"
      strOrdre_Accept = "<input type=""checkbox"" name=""accept"" value=""Ja"" style=""background-color: rgb(101,122,111); color: rgb(101,122,111)""> Jeg accepterer <a href=""../information/salgsbetingelser.asp"" class=""link1"">salgsbetingelserne</a>"
      strOrdre_Send = "<input type=""submit"" value=""  Send  "">"
  Else
      ' Sender bestillingen og henter resultatet ind på siden
      Ordre_Antal1 = Request.Form("antal1")
      Ordre_Antal2 = Request.Form("antal2")
      Ordre_Antal3 = Request.Form("antal3")
      Ordre_Antal4 = Request.Form("antal4")
      Ordre_Antal5 = Request.Form("antal5")
      Ordre_Betaling = Request.Form("betaling")
      Ordre_Fornavn = Request.Form("fornavn")
      Ordre_Efternavn = Request.Form("efternavn")
      Ordre_Adresse = Request.Form("adresse")
      Ordre_Postnr = Request.Form("postnr")
      Ordre_Bynavn = Request.Form("bynavn")
      Ordre_Telefon = Request.Form("telefon")
      Ordre_Email = Request.Form("epostadresse")
      Body = Request.Form("besked")
      Ordre_Accept = Request.Form("accept")
      Recipient = "minmail@minmail.dk"
      Subject = "mitdomain.dk"
      MailServer = "min.smtp.dk"
      Set myMail = Server.CreateObject("JMail.Message")
      myMail.From = Ordre_Email
      myMail.Subject = Subject
      myMail.AddRecipient Recipient
      ' myMail.ISOEncodeHeaders = false
      ' myMail.ContentTransferEncoding = "8bit"
      myMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
      myMail.Body = myMail.Body & "VAREBESTILLING:" & vbCrLf & vbCrLf & vbCrLf & "1. Accept af salgsbetingelser: " & Ordre_Accept & vbCrLf & vbCrLf & "2. Personoplysninger:" & vbCrLf & "------------------------------------------------------------" & vbCrLf & vbCrLf & "IP-adresse: " & Request.ServerVariables ("REMOTE_ADDR") & vbCrLf & "Fornavn:          " & Ordre_Fornavn & vbCrLf & "Efternavn:        " & Ordre_Efternavn & vbCrLf & "Adresse:          " & Ordre_Adresse & vbCrLf & "Postnummer og By: " & Ordre_Postnr & "  " & Ordre_Bynavn & vbCrLf & vbCrLf & "Telefon:          " & Ordre_Telefon & vbCrLf & "E-postadresse:    " & Ordre_Email & vbCrLf & vbCrLf & vbCrLf & "3. Vareoplysninger:" & vbCrLf & "------------------------------------------------------------" & vbCrLf & vbCrLf & "Vare 1: " & Ordre_Antal1 & " varebeskrivelse" & vbCrLf & "Vare 2: " & Ordre_Antal2 & " stk. varebeskrivelse" & vbCrLf & "Vare 3: " & Ordre_Antal3 & " varebeskrivelse" & vbCrLf & "Vare 4: " & Ordre_Antal4 & " varebeskrivelse" & vbCrLf & "Vare 5: " & Ordre_Antal5 & " stk. varebeskrivelse" & vbCrLf & "4. Betalingsoplysninger:" & vbCrLf & "------------------------------------------------------------" & vbCrLf & vbCrLf & "Betaling: " & Ordre_Betaling & vbCrLf & vbCrLf & "5. Bemærkninger:" & vbCrLf & "------------------------------------------------------------" & vbCrLf & vbCrLf & Body
      myMail.Priority = 3
      Set myMail = Nothing
      If Not myMail.Send(MailServer) Then
        strFejl = "Beskeden blev ikke sendt, da der opstod en fejl: " & myMail.log
      Else
        strOrdre_Antal1 = Ordre_Antal1
        strOrdre_Antal2 = Ordre_Antal2
        strOrdre_Antal3 = Ordre_Antal3
        strOrdre_Antal4 = Ordre_Antal4
        strOrdre_Antal5 = Ordre_Antal5
        strOrdre_Betaling = Ordre_Betaling
        strOrdre_Fornavn = Ordre_Fornavn
        strOrdre_Efternavn = Ordre_Efternavn
        strOrdre_Adresse = Ordre_Adresse
        strOrdre_Postnr = Ordre_Postnr
        strOrdre_Bynavn = Ordre_Bynavn
        strOrdre_Telefon = Ordre_Telefon
        strOrdre_Email = Ordre_Email
        strOrdre_Besked = Body
        strOrdre_Accept = Ordre_Accept
      End If
  End If
%>

Apo