hvad er der galt?

hvad er der galt med dette script? den siger \"HTTP internal server error\"

kan i finde fejlen?

<%

    dim conn

    function OpenConn( DBName )

        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        ODBCpath = left(request.servervariables(\"PATH_TRANSLATED\"), instrrev(request.servervariables(\"PATH_TRANSLATED\"), \"data\\Script.mdb\"))
        Conn.Open \"DBQ=\" & ODBCpath & DBName & \";DefaultDir=\" & ODBCpath & \";Driver={Microsoft Access Driver (*.mdb)}\"

    end function

OpenConn(\"messages.mdb\")

<%
    SQL = \"select * from messages order by created desc\"
    set messages = conn.execute( SQL )
   
    if messages.eof then
        Response.Write \"Gæstebogen er tom !\"
    Else
       
        Response.Write \"<br><br>\"
        do while not messages.eof
   

            Response.Write \"<b><div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\" bgcolor=\"#FF0000\">& messages(\"Script\") &</td>\"
            Response.Write \"<b></center>
<td width=\"50%\" bgcolor=\"#FF0000\">
<p align=\"right\"><a href=\"& messages(\"url\") &\">Download HER</td>
</tr>
\"
            Response.Write \"<b><center>
<tr>
<td width=\"100%\" colspan=\"2\">& messages(\"message\") &</td>
</tr>
\"

            Response.Write \"<tr>
<td width=\"50%\" bgcolor=\"#FF0000\"><a href=\"messages(\"demo\")\">Demo</td>\"

            Response.Write \"</center>
<td width=\"50%\" bgcolor=\"#FF0000\">
<p align=\"right\">Af: & messages(\"name\") &</td>
</tr>
</table>
</div>\"
                                   
            messages.movenext

        loop
                   
    End If
    Response.Write \"<br><br>Klik <a href=\'default.asp\'>her</a> for at komme tilbage!\"
   
%>