<%
PostCount = 1
objPath = "database.mdb"
strSQL = "SELECT TOP 5 * FROM tblRanking ORDER BY fldResult DESC"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(objPath))
Set objRS = objConn.Execute(strSQL)
Do until objRS.EOF
%>
<tr>
<td class="ranktd1"><%= PostCount %>.</td>
<td class="ranktd2"><%=objRS("fldName")%></td>
<td class="ranktd3"><%=objRS("fldDate")%></td>
<td class="ranktd4"><%=objRS("fldResult")%></td>
</tr>
<%
PostCount = PostCount + 1
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
%>
Frågan#1
Hej!
Jag plockar ut top 5 inlägg ur en databas baserat på resultat. Dessa presenteras sedan i en lista där jag skulle önska att kunna ranka de 1-5. Hur kan man lyckas med detta? Har experimenterat lite men lyckas inte riktigt.
<%
objPath = "database.mdb"
strSQL = "SELECT TOP 5 * FROM tblRanking ORDER BY fldResult DESC"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(objPath))
Set objRS = objConn.Execute(strSQL)
Do until objRS.EOF
%>
<tr>
<td class="ranktd1">1.</td>
<td class="ranktd2"><%=objRS("fldName")%></td>
<td class="ranktd3"><%=objRS("fldDate")%></td>
<td class="ranktd4"><%=objRS("fldResult")%></td>
</tr>
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
%>
Det är alltså där 1. står som jag skulle önska att det ändrades till t.ex. 3. för post 3.
Tack på förhand! :)