Hej!
Mit problem består i, at jeg ikke kan få den til at rykke cursoren til næste
recordset og derved får den samme record udskrevet hver gang.
ASP-fejlmeddelelsen jeg får, når jeg bruger "LadderRS.MoveNext" er
følgende:
Error #438: Object doesn't support this property or method
Min database forbindelse og SQL er testes og virker, så den behøves der ikke
ses på.
Løkken "<% do until pladsnummer=4 %>" er sat til 4 midlertidigt, får at
undgå en uendeliglykke, som ville opstå ved EOF, da den jo ikke skifter
record.
Jeg vil fortsat gerne "køre" min SQL denne måde :
"LadderRS=objConn.Execute(Query)".
Håber nogle kan hjælpe mig med at komme videre :0)
MVH
/Sune
Min ASP-kode ser følgende ud:
-----------------
<%
Dim objConn, LadderRS, Query, pladsnummer
On Error Resume Next
Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\home\duperdk\db\DanishVikings.mdb" 'online
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=e:\domain\db\DanishVikings.mdb" 'lokal test
objConn.Open
Set LadderRS=Server.CreateObject("ADODB.Recordset")
Query="SELECT [Characters].[characternavn], [Accounts].[accountnavn],
[Characters].[level] FROM Personer INNER JOIN (Accounts INNER JOIN
Characters ON [Accounts].[accountid]=[Characters].[accountid]) ON
[Personer].[personid]=[Accounts].[personid] WHERE [Personer].[aktiv]=True
ORDER BY [Characters].[level] DESC;"
LadderRS=objConn.Execute(Query)
%>
<table border="1" width="400" bgcolor="#C0C0C0" bordercolor=#FF0000
cellspacing="0">
<tr>
<td width="50"><b>Nr.</b></td>
<td width="160"><b>Navn</b></td>
<td width="140"><b>Account</b></td>
<td width="50"><b>Level</b></td>
</tr>
</table>
<BR>
<% pladsnummer=1 %>
<% do until pladsnummer=4 %>
<table border="1" width="400" bgcolor="#C0C0C0" bordercolor=#FF0000
cellspacing="0">
<tr>
<td width="50"><% Response.Write(pladsnummer) %></td>
<td width="160"><% =LadderRS("characternavn") %></td>
<td width="140"><% =LadderRS("accountnavn") %></td>
<td width="50"><% =LadderRS("level") %></td>
</tr>
</table>
<%
pladsnummer=pladsnummer + 1
LadderRS.MoveNext
loop %>
<% If Err.Number<>0 Then%>
<BR>Fejl<BR>
Error #<%=Err.Number%>: <%=Err.Description%><BR>
<%End If%>
--------------