fejl: En standardegenskab for objektet blev ikke fundet.

Kan du ikke skrive HELE din kode?

jo det kan jeg da godt, hvis det kan hjælpe

<!--#include file="includes/functions.asp"-->
<!--#include file="includes/inc_top.asp"-->
<%
    If Request("WID") <> "" Then
    WID = Request("WID")

    Set conntemp = Server.CreateObject("ADoDB.Connection")
    conntemp.Open DSN
    strSQL = "SELECT * FROM Wars WHERE WID = "& Request("WID")
    set rsWars = conntemp.execute(strSQL)
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
        <td width="100%" valign="middle" background="images/header.gif" height="20">
            <table border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr>
                    <td align="center" width="100%"><font size="2"><b>vs. <%=rsWars("W_OPPONENT")%></b></font></td>
                </tr>
            </table>
        </td>
    </tr>
    <tr>
        <td width="20%"><font class="content">Clan name:</font></td>
        <td width="80%"><font class="content"><%=rsWars("W_OPPONENT")%></font></td>
    </tr>
    <tr>
        <td width="20%"><font class="content">Tag:</font></td>
        <td width="80%"><font class="content"><%=rsWars("W_OPPONENT_TAG")%></font></td>
    </tr>
    <tr>
        <td width="20%"><font class="content">Country:</font></td>
        <td width="80%"><font class="content"><%=rsWars("W_COUNTRY")%></font></td>
    </tr>
    <tr>
        <td width="20%"></td>
        <td width="80%"></td>
    </tr>
    <tr>
        <td width="20%"><font class="content">Date:</font></td>
        <td width="80%"><font class="content"><%=rsWars("W_DATE")%></font></td>
    </tr>
    <tr>
        <td width="20%"><font class="content">Type:</font></td>
        <td width="80%"><font class="content"><%=rsWars("W_TYPE")%></font></td>
    </tr>
    <%
        If Len(rsWars("W_MAP2")) = 0 Then       
            Maps = ""& rsWars("W_MAP1") &""
        Else
            Maps = ""& rsWars("W_MAP1") &"/"& rsWars("W_MAP2") &""
        End If
    %>
    <tr>
        <td width="20%"><font class="content">Map(s):</font></td>
        <td width="80%"><font class="content"><%=Maps%></font></td>
    </tr>
    <tr>
        <td width="20%"><font class="content">Score:</font></td>
        <td width="80%"><font class="content"><%=rsWars("W_SCORE_US")%> - <%=rsWars("W_SCORE_US")%></font></td>
    </tr>
    <tr>
        <td valign="top" width="20%"><font class="content">Report:</font></td>
        <td width="80%"><font class="content"><%=Break(rsWars("W_REPORT"))%></font></td>
    </tr>
    <tr>
        <td width="100%" valign="top">
            <hr size="1" color="#000000" noshade>
        </td>
    </tr>
</table>
<%
    rsWars.close : Set rsWars = Nothing
    Else

    intPage = Request("SiteNum")
    If isNumeric(intPage) = False or intPage < 1 Then
        intPage = 1
    End If
   
    Set rsWarsList = Server.CreateObject("ADoDB.RecordSet")
    strSQL = "SELECT * FROM Wars ORDER BY W_DATE DESC"
    rsWarsList.Open strSQL, DSN, 1

    If Not (rsWarsList.BOF or rsWarsList.EOF) Then
    rsWarsList.PageSize = 50
    rsWarsList.AbsolutePage = intPage
    intRecCount = rsWarsList.PageSize
    intPageCount = rsWarsList.PageCount
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
        <td width="100%" valign="middle" background="images/header.gif" height="20">
            <table border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr>
                    <td align="center" width="100%"><font size="2"><b>Wars</b></font></td>
                </tr>
            </table>
        </td>
    </tr>
    <tr>
    <%
        If Clng(intPage) > 1 Then
            Response.Write "<td width=""50%""><font class=""content""><a href=""wars.asp?SiteNum="& intPage - 1 &""">&lt;&lt; Previous 50</a></font></td>"
        Else
            Response.Write "&nbsp;"
        End If

        If Clng(intPage) < Clng(intPageCount) Then
            Response.Write "<td width=""50%"" align=""right""><font class=""content""><a href=""wars.asp?SiteNum="& intPage + 1 &""">Next 50 &gt;&gt;</a></font></td>"
        Else
            Response.Write "&nbsp;"
        End If
    %>
    </tr>
    <tr>
        <td width="15%"><font class="content"><b>Opponent</b></font></td>
        <td width="15%"><font class="content"><b>Country</b></font></td>
        <td width="20%" align="center"><font class="content"><b>Date</b></font></td>
        <td width="20%" align="center"><font class="content"><b>Type</b></font></td>
        <td width="11%" align="center"><font class="content"><b>Score</b></font></td>
        <td width="19%" align="center"><font class="content"><b>Details</b></font></td>
    </tr>
    <% Do While Not rsWarsList.EOF And intRecCount > 0 %>
    <tr>
        <td width="15%"><font class="content"><%=rsWarsList("W_OPPONENT_TAG")%></font></td>
        <td width="15%"><font class="content"><%=rsWarsList("W_COUNTRY")%></font></td>
        <td width="20%" align="center"><font class="content"><%=rsWarsList("W_DATE")%></font></td>
        <td width="20%"><font class="content"><%=rsWarsList("W_TYPE")%></font></td>
        <%
            If rsWarsList("W_SCORE_US") = rsWarsList("W_SCORE_THEM") Then
                ScoreColor = "#000080"
            ElseIf rsWarsList("W_SCORE_US") > rsWarsList("W_SCORE_THEM") Then
                ScoreColor = "#006600"   
            ElseIf rsWarsList("W_SCORE_US") < rsWarsList("W_SCORE_THEM") Then
                ScoreColor = "#9D0B0E"
            End If
        %>
        <td width="11%" align="center"><font class="content" color="<%=ScoreColor%>"><%=rsWarsList("W_SCORE_US")%> - <%=rsWarsList("W_SCORE_THEM")%></font></td>
        <td width="19%" align="center"><font class="content"><a href="wars.asp?wid=<%=rsWarsList%>">Details</a></font></td>
    </tr>
    <%
        rsWarsList.close : set rsWarsList = Nothing
        intRecCount = intRecCount - 1
        rsWarsList.MoveNext
        Loop
    %>
    <tr>
        <td width="100%" valign="top">
            <hr size="1" color="#000000" noshade>
        </td>
    </tr>
</table>
<br>
<% Else %>
<p align="center">No wars played yet!</a>
<%
    End If
    End If
%>
<!--#include file="includes/inc_footer.asp"-->

Her  lukker du recordsetet før du er du flytter til næste record:

        rsWarsList.close : set rsWarsList = Nothing
        intRecCount = intRecCount - 1
        rsWarsList.MoveNext
        Loop


Det kan give den fejl i Movenext... koden skal være sådan her så der først lukkes for recordsetet efter loop'et:

        intRecCount = intRecCount - 1
        rsWarsList.MoveNext
        Loop
        rsWarsList.close : set rsWarsList = Nothing

okay, det var så 1 fejl, men den skriver stadig det samme...

i linien et par linier over har du et link:

<td width="19%" align="center"><font class="content"><a href="wars.asp?wid=<%=rsWarsList%>">Details</a></font></td>

Det mangler en kolonne navn angivelse i <%=rsWarsList("MANGLER_KOLONNE")%>

hvilke nogle fejl, man kan lave når man laver det om natten og man er træt, men så er det jo godt at eksperten findes :D

mange tak for hjælpen (igen) eagleeye