intern HTTP 500-serverfejl

Jeg får fejl i denne kode.. Hvorfor?

<%  Response.Buffer = True
    Select Case Request(\"submit\")
      Case \"true\"
        Set FileSysObj = Server.CreateObject(\"Scripting.FileSystemObject\")
        Set File = FileSysObj.OpenTextFile(\"resultat.txt\")
        File.Write Request(\"submit\")
        File.Close
        Set File = Nothing
        Set FileSysObj = Nothing
        If Err.Number <> 0 Then
          Response.Write \"<html><head><title>Tak...</title></head><body><h1>Tak for dit indlæg!</h1></body></html>\"
        Else
          Response.Write \"<html><head><title>Fejl: \" & Err.Number & \"</title></head><body><h1>Der er opstået en fejl!</h1><p>\" & Err.Description & \"</p></body></html>\"
        End If
      Case Else  %>
<html>
<head>
<title>Valgfrit projekt: Musikkopiering</title>
</head>
<body>
<form name=\"sporgeskema\" action=\"default.asp\" method=\"post\">
<table>
  <tr>
    <td colspan=\"2\"><h1>Spørgeskema om musikkopiering</h1></td>
  </tr>
<%  Set FileSysObj = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set File = FileSysObj.OpenTextFile(\"sporgeskema.txt\")
    Do Until File.AtEndOfStream = True
      Sporgsmal = Replace(File.ReadLine, \"Spørgsmål = \", \"\")
      AntalInput = Replace(File.ReadLine, \"AntalInput = \", \"\")
      Response.Write \"<tr><td valign=\"\"top\"\"><p>\" & Sporgsmal & \"</p></td><td><p>\"
      For I = 1 To AntalInput Step 1
        strType = Replace(File.ReadLine, \"Type = \", \"\")
        strName = Replace(File.ReadLine, \"Name = \", \"\")
        strValue = Replace(File.ReadLine, \"Value = \", \"\")
        strSize = Replace(File.ReadLine, \"Size = \", \"\")
        strSvar = Replace(File.ReadLine, \"Svar = \", \"\")
        Select Case strType
          Case \"text\": Response.Write \"<input type=\"\"\" & strType & \"\"\" name=\"\"\" & strName & \"\"\" size=\"\"\" & strSize & \"\"\">\"
          Case \"textarea\": Response.Write \"<textarea name=\"\"\" & strName & \"\"\" cols=\"\"\" & Left(strSize, 2) & \"\"\" rows=\"\"\" & Right(strSize, 2) & \"\"\"></textarea>\"
          Case Else: Response.Write \"<input type=\"\"\" & strType & \"\"\" name=\"\"\" & strName & \"\"\" value=\"\"\" & strValue & \"\"\">\" & strSvar & \"<br>\"
        End Select
      Next
      Empty = File.ReadLine
    Loop
    Reponse.Write \"</p></td></tr>\"
    Set File = Nothing
    Set FileSysObj = Nothing  %>
</table>
</form>
</body>
</html>