HTTP 500.100

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required
/dev/projects/bugs.asp, line 33


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Page:
GET /dev/projects/bugs.asp

Hvad er der galt her ??

<!--#include virtual=\"/dev/_db.asp\"-->
<%
    bDontCount = False
    sPageTitle = \"Counselor - Fejl\"
    bAdminOnly = False
    lSubjectID = 0

    lProjectID = request(\"pid\")
   
    OpenDB sConnProjects
    sSQL = \"SELECT Name, FileName, PageViews FROM Projects WHERE ProjectID = \" & lProjectID
    rs.Open sSQL,,,adCmdTable
    sProjectName = rs(\"Name\")
    sFileName = rs(\"FileName\")
    rs(\"PageViews\") = rs(\"PageViews\") + 1
    rs.Update
    rs.close
    conn.close
   
    sTitleBar = \"web :: <a href=\"\"/dev/index.asp\"\">hjem</a> :: <a href=\"\"/dev/projects/index.asp\"\">dokumenter</a> :: <a href=\"\"/dev/projects/\" & sFileName & \"\"\">\" & lcase(sProjectName) & \"</a> :: fejl\"
%>

<!--#include virtual=\"/dev/_header.asp\"-->

<br>

<p class=\"smallheader\">
<%=sProjectName%> :: Bugs
</p>
<table border=0 cellpadding=1 cellspacing=0 width=\"100%\">
<%
    conn.Open sConnFeedBack
        set rs.ActiveConnection = conn \'linie33
    sSQL = \"SELECT * FROM Bugs WHERE ProjectID = \" & lProjectID & \" ORDER BY Solved DESC, BugID DESC\"
    rs.Open sSQL,,,adCmdTable
   
    do while not rs.eof
        lBugID = rs(\"BugID\")
        sTitle = rs(\"Title\")
        sDescription = rs(\"Description\")
        sFileName = rs(\"FileName\")
        sRecommended = rs(\"RecommendedSolution\")
        sSubmittedBy = rs(\"SubmittedBy\")
        sSubmitDate = formatdatetime(rs(\"SubmitDate\"),2) & \" - \" & formatdatetime(rs(\"SubmitDate\"),4)
        if rs(\"Solved\")=True then
            sTitle = sTitle & \" (solved)\"
            sStyle=\" style = \"\"color:#808080;\"\"\"
        else
            sStyle = \"\"
        end if
       
        if len(sTitle)>0 then sTitle = server.htmlencode(sTitle)
        if len(sDescription)>0 then
            sDescription = server.htmlencode(sDescription)
            sDescription = replace(sDescription, chr(13), \"<br>\")
        end if
           
        if len(sRecommended)>0 then
            sRecommended = server.htmlencode(sRecommended)
            sRecommended = replace(sRecommended, chr(13), \"<br>\")
        end if
%>

    <tr bgcolor=\"#e6e6fa\">
        <td class=\"smallerheader\" width=20>»</td>
        <td class=\"smallerheader\"<%=sStyle%>><%=sTitle%></td>
        <td align=right><%=sFileName%> </td>
    </tr>
    <tr bgcolor=\"#fdf5e6\">
        <td></td>
        <td colspan=2 align=right>Submitted By: <i><%=sSubmittedBy%> on <%=sSubmitDate%></i></td>
    </tr>
    <tr>
        <td></td>
        <td colspan=2><%=sDescription%></td>
    </tr>
    <tr>
        <td></td>
        <td colspan=\"2\" style=\"color: #dc143c;\"><%=sRecommended%></td>
    </tr>
    <tr height=10>
    </tr>
               
<%   
        rs.movenext
    loop

    CloseDB
%>
</table>
<p align=right>
<a href=\"upload.asp?pid=<%=lProjectID%>\">Upload et dokument</a> |
    <a href=\"reportbug.asp?pid=<%=lProjectID%>\">Rapporter en fejl</a> |
    <a href=\"recommend.asp?pid=<%=lProjectID%>\">Foreslå en feature</a> |
    <a href=\"question.asp?pid=<%=lProjectID%>\">Stil et spørgsmål</a> |
    <a href=\"submitsite.asp?pid=<%=lProjectID%>\">Tilføj en webside</a>
</p>

<br>
<!--#include virtual=\"/dev/_footer.asp\"-->